File: [local] / OpenXM / src / kan96xx / Kan / module1.sm1 (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 9 months ago) by maekawa
Branch: OpenXM
CVS Tags: ALPHA Changes since 1.1: +0 -0
lines
o import OpenXM sources
|
@@@.quiet { }
{(macro package : module1.sm1, 1994 -- Nov 8, 1998) message} ifelse
/@@@.resolutionIsLoaded 0 def
/resolution {
@@@.resolutionIsLoaded {
sResolution
}
{
(Efficient resolution is still under construction, cf. Kan/lib/tower-sugar.sm1, tower.sm1 ) message
(Loading tower.sm1 from the load path: sResolution) message
(tower.sm1) run
/@@@.resolutionIsLoaded 1 def
} ifelse
} def
/lpoint { init @@@.esymbol . degree } def
%%%%%%%%%%%%%%%%%%%%%%%%%%
;