%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