Return to module1.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Kan |
File: [local] / OpenXM / src / kan96xx / Kan / module1.sm1 (download)
Revision 1.1, Fri Oct 8 02:12:02 1999 UTC (24 years, 9 months ago) by maekawa
Initial revision |
@@@.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 %%%%%%%%%%%%%%%%%%%%%%%%%% ;