%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) =