%VideoBands.jam last changed September 19, 1982 9:06 pm (BandPackage) /loadbcd (bands) 256 .dict .def bands .begin (KSpaceImpl) /loadbcd (XBandGraphicsImpl) /loadbcd (CGJaMBrick) /loadbcd /clr (.printbands)() .cvx .def (.dlpbands)() .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 .moveto 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 .moveto 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 .moveto 80 3. .div .dup .scale parc)screenprint) .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 (dtouch)().cvx .def (redcameo) (.initdc 0 144 .translate 0 0 .moveto 1.2 1.2 .scale .pushdc cback 0 0 1000 1000 .drawbox .6 .6 .scale 250 150 .translate 390 500 elipse .cliparea gray 0 0 1000 1000 .drawbox 0 0 .moveto (ygirl-red.ais) showr .popdc (color1) (.97 .6 .8 .hsvcolor).cvx .def 20 80 cameoborder ).cvx .def (grncameo) (.initdc 0 144 .translate 0 0 .moveto 1.2 1.2 .scale .pushdc cback 0 0 1000 1000 .drawbox .6 .6 .scale 250 150 .translate 390 500 elipse .cliparea gray 0 0 1000 1000 .drawbox 0 0 .moveto (ygirl-grn.ais) showg .popdc (color1) (.97 .6 .8 .hsvcolor).cvx .def 20 80 cameoborder ).cvx .def (blucameo) (.initdc 0 144 .translate 0 0 .moveto 1.2 1.2 .scale .pushdc cback 0 0 1000 1000 .drawbox .6 .6 .scale 250 150 .translate 390 500 elipse .cliparea gray 0 0 1000 1000 .drawbox 0 0 .moveto (ygirl-blu.ais) showb .popdc (color1) (.97 .6 .8 .hsvcolor).cvx .def 20 80 cameoborder ).cvx .def