%BandsInit.jam last changed October 8, 1982 5:13 pm (graphics.jam) /run (BandPackage) /loadbcd (bands) 256 .dict .def bands .begin (KSpaceImpl) /loadbcd (XBandGraphicsImpl) /loadbcd (CGJaMBrick) /loadbcd /clr (.printbands)() .cvx .def (.dlpbands)() .cvx .def (br)( (baboon-red.ais) .drawimage) .cvx .def (monk)( (monk.ais) .drawimage) .cvx .def (.getlpd) (.getl = .getp = .getd = ) .cvx .def (.startpath)((.enterpoint)(.moveto (.enterpoint)(.lineto).cvx .def).cvx .def).cvx .def (star)(.startpath 144 5 ((!f) .exch .def !f .cos 5 .mul !f .sin 5 .mul .enterpoint !f 144 .add) .cvx .rept .pop .drawarea) .cvx .def (pstar2)(.initdc .hornetdc (READY) = 8.5 36 .mul 11 36 .mul .translate .gray 60 76 .scale star .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def (showstar)(.initdc .screendc (READY) = 300 400 .translate .gray 60 60 .scale star .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showlstar)(.initdc .screendc (READY) = 310 410 .translate .gray 95 80 .scale star .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showrstar)(.initdc .screendc (READY) = 300 400 .translate .gray 45 .rotate 90 80 .scale star .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showcheckers)(.initdc .screendc (READY) = .gray .checkerbrick 300 400 .translate 60 60 .scale star .closebands (WORKING) = .initdc .showbands (DONE) =).cvx .def (showarea)(.initdc .screendc (READY) = .gray 1 .sub .touch .moveto (.touch .lineto) .cvx .rept .drawarea .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showgirl)(.initdc .screendc (READY) = .magicbrick (girl22-red.ais) .drawimage .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showlgirl)(.initdc .screendc (READY) = .magicbrick 8.5 72 .mul 512. .div 10 72. .mul 512. .div .scale (girl22-red.ais) .drawais .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (printgirl)(.initdc .hornetdc (READY) = .stingerbrick (girl22-red.ais) .drawais .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def (printlgirl)(.initdc .hornetdc (READY) = .stingerbrick 8.5 72 .mul 512. .div 11 72. .mul 512. .div .scale (girl22-red.ais) .drawais .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def %(printtrc)(.initdc .hornetdc (READY) = .stingerbrick 0 17 ((!f) .exch .def !f 16 .mul .setcolor 0 !f 36. .mul 8. 72 .mul !f 1 .add 36. .mul .drawbox !f 1 .add) .cvx .rept .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def %(showtrc)(.initdc .screendc (READY) = .magicbrick 0 17 ((!f) .exch .def !f 16 .mul .setcolor 0 !f 36. .mul 8. 72 .mul !f 1 .add 36. .mul .drawbox !f 1 .add) .cvx .rept .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showboon)(.initdc .screendc (READY) = .magicbrick br .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showrboon)(.initdc .screendc (READY) = 500 0 .translate 0 0 .setcp 45 .rotate br .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (showlboon)(.initdc .screendc (READY) = .magicbrick 8.5 72 .mul 512. .div 10 72. .mul 512. .div .scale br .closebands (WORKING) = .initdc .showbands (DONE) =) .cvx .def (printboon)(.initdc .hornetdc (READY) = .stingerbrick br .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def (printlboon)(.initdc .hornetdc (READY) = .stingerbrick 8.5 72 .mul 512. .div 11 72. .mul 512. .div .scale br .closebands (WORKING) = .initdc .printbands (DONE) =) .cvx .def (dlpprint)((!x) .exch .cvx .def .initdc .platemakerdc .black (READY) = !x .closebands (WORKING) = .initdc .dlpbands) .cvx .def (dlpparc)((7 72 .mul 144 .translate 90 .rotate 0 0 .setcp 80 3. .div .dup .scale parc)dlpprint) .cvx .def (hornetprint)((!x) .exch .cvx .def .initdc .hornetdc .black (READY) = !x .closebands (WORKING) = .initdc .printbands) .cvx .def (hornetparc)((7 72 .mul 144 .translate 90 .rotate 0 0 .setcp 80 3. .div .dup .scale parc)hornetprint) .cvx .def (screenprint)((!x) .exch .cvx .def .initdc .screendc .black (READY) = !x .closebands (WORKING) = .initdc .showbands) .cvx .def (screenparc)((7 72 .mul 144 .translate 90 .rotate 0 0 .setcp 80 3. .div .dup .scale parc)screenprint) .cvx .def (landsparc)((1 36 .mul 144 .translate 0 0 .setcp 80 3. .div .dup .scale parc)screenprint) .cvx .def (bbrick) (0 16 255 (.dup 255.0 .div .icolor dobrow ).cvx .for 255 255.0 .div .icolor 256 dobrow) .cvx .def (relbrick)( .exch 10 .div 36 .mul .dup 35 .add 3 -1 .roll 16 .div 36 .mul .dup 35 .add .exch 3 1 .roll .drawbox) .cvx .def (dobrow)(0 10 179 (2 .copy 10 .exch .buildbrick relbrick) .cvx .for) .cvx .def (listbrick)(1 1 .getp (1 .sub (row#) .exch .store /cr listrow /clr).cvx .for /cr).cvx .def (listrow)(1 1 .getl (1 .sub row# .exch .getbu .001 .add 100. .mul .cvi .cvs .print ( ) .print).cvx .for).cvx .def (compareBoon)(.initdc .screendc .initdc .pushdc 50 100 .translate 0 0 .setcp .5 .5 .scale (baboon-red.ais) .drawimage .popdc 50 50 .setcp (Halftoned Bandfile Image) .drawtext 350 50 .setcp (Grey Level Image) .drawtext .closebands .showbands .initdc 350 100 .setcp .5 .5 .scale (baboon-red.ais) .drawimage ) .cvx .def (stest)((.initdc (Helvetica18.ks) .setfont .pushdc 50 100 .translate 0 0 .setcp .5 .5 .scale (baboon-red.ais) .drawimage .popdc 50 50 .setcp (Halftoned Image) .drawtext 400 50 .setcp (Filled Area) .drawtext 475 200 .translate 0 0 .setcp 170360B .stipple 30 30 .scale star .initdc )screenprint).cvx .def (ptest)((.initdc (Helvetica18.ks) .setfont .pushdc 50 100 .translate 0 0 .setcp .5 .5 .scale (baboon-red.ais) .drawimage .popdc 50 50 .setcp (Halftoned Image) .drawtext 400 50 .setcp (Filled Area) .drawtext 475 200 .translate 0 0 .setcp 170360B .stipple 30 30 .scale star .initdc )hornetprint).cvx .def (slib)((.tentfilter 6 45 .buildbrick .pushdc 50 50 .translate 0 0 .setcp 80 3. .div .dup .scale parc .popdc 50 450 .translate 0 0 .setcp 80 3. .div .dup .scale .75 .5 .scale parc)screenprint).cvx .def (hlib)((.tentfilter 8 45 .buildbrick .pushdc 50 50 .translate 0 0 .setcp 80 3. .div .dup .scale parc .popdc 50 450 .translate 0 0 .setcp 80 3. .div .dup .scale .75 .5 .scale parc)hornetprint).cvx .def (dlplib)((.tentfilter 18 45 .buildbrick .pushdc 50 50 .translate 0 0 .setcp 80 3. .div .dup .scale parc .popdc 50 450 .translate 0 0 .setcp 80 3. .div .dup .scale .75 .5 .scale parc)dlpprint).cvx .def (red150filter)(.tcosfilter 6 75 .buildbrick).cvx .def (red80filter)(.tcosfilter 11 75 .buildbrick).cvx .def (green150filter)(.tcosfilter 6 105 .buildbrick).cvx .def (green80filter)(.tcosfilter 11 105 .buildbrick).cvx .def (blue150filter)(.tcosfilter 6 90 .buildbrick).cvx .def (blue80filter)(.tcosfilter 11 90 .buildbrick).cvx .def .tcosfilter 5 0 .buildbrick 40 .setbufferpages (INITED) =