%NEW PARC logo %written by John Warnock % last edited by Ken Pier, February 28, 1984 3:23:24 pm PST % last edited by Rick Beach, February 14, 1984 8:41:02 pm PST (graphics.jam) .run (circlepatches.jam) .run (reset){ .initdc e }.cvx .def (dtouch){ .touch .touch }.cvx .def (!dx) 0 .def (!dy) 0 .def (trans) ((!dy) .exch !dy .add .store (!dx) .exch !dx .add .store).cvx .def (settrans) ((!dy) .exch .store (!dx) .exch .store).cvx .def (dotrans) (!dy .add .exch !dx .add .exch).cvx .def (lineto) (dotrans .lineto).cvx .def (moveto) (dotrans .moveto).cvx .def (movetonext) (dotrans .movetonext).cvx .def (P)( 0 0 movetonext 0 6 lineto 3 3.5 trans 270 450 2.5 36 (lineto) .cvx narc -3 -3.5 trans 3 0 lineto ).cvx .def (P')( 0 dt .add 0 dt .add movetonext 0 dt .add 6 dt .sub lineto 3 3.5 trans 270 450 2.5 dt .sub 36 (lineto) .cvx narc -3 -3.5 trans 3 dt .sub 1. dt .add lineto 3 dt .sub 0 dt .add lineto ).cvx .def (A)( 0 0 movetonext 4 6 lineto 6 6 lineto 6.25 5.75 lineto 6.25 .25 lineto 6 0 lineto 3.75 0 lineto 3.75 1.5 .75 .mul lineto 3 0 lineto ).cvx .def (A')( 0 dt 1 1 1.5 .div .add .5 .exp .mul dt 1.5 .div .add .add 0 dt .add movetonext 4 dt 1.5 .div .add 6 dt .sub lineto 6 dt 1.414 .div .sub 6 dt .sub lineto 6.25 5.75 dt 1.414 .mul .sub lineto 6.25 .25 dt 1.414 .mul .add lineto 6 dt 1.414 .div .sub 0 dt .add lineto 3.75 dt .add 0 dt .add lineto 3.75 dt .add 3.75 dt .add 3 dt 1.5 .div .sub .sub 1.5 .mul dt .add lineto 3 dt 1.5 .div .sub 0 dt .add lineto ).cvx .def (R)( .25 0 movetonext 0 .25 lineto 0 5.75 lineto .25 6 lineto 3 3.5 trans 270 450 2.5 36 (lineto) .cvx narc -3 -3.5 trans 3 0 lineto 3 1 movetonext 3 4. lineto 7. 0 lineto 4 0 lineto ).cvx .def (R')( .25 dt 1.414 .div .add 0 dt .add movetonext 0 .25 dt 1.414 .mul .add lineto 0 5.75 dt 1.414 .mul .sub lineto .25 dt 1.414 .div .add 6 dt .sub lineto 3 3.5 trans 270 dt 2.5 .atan .sub 450 2.5 dt .sub 36 (lineto) .cvx narc -3 -3.5 trans 3 dt .sub 0 dt .add lineto 3 1 dt 1.414 .mul .add movetonext 3 4. dt 1.414 .mul .sub lineto 7. dt 1.414 .mul .sub dt .sub 0 dt .add lineto 4 dt 1.414 .div .add 0 dt .add lineto ).cvx .def (C)( .pushdc (fp)(movetonext).cvx .def 3 3 trans 5 355 3 72 (fp (fp)(lineto).cvx .def) .cvx narc -3 -3 trans .popdc 3 3 3. 5 .sin .mul .add lineto 3 3 3. 5 .sin .mul .neg .add lineto ).cvx .def (C')( (fp)(movetonext).cvx .def .pushdc 3 3 trans 5 dt 3 .atan .add 355 dt 3 .atan .sub 3 dt .sub 72 (fp (fp)(lineto).cvx .def) .cvx narc -3 -3 trans .popdc 3 dt .sub 3 3. 5 .sin .mul .add dt .add lineto 3 dt .sub 3 3. 5 .sin .mul dt .add .neg .add lineto ).cvx .def (parc)( 0 0 settrans .pushdc 1 1.5 .scale % .true .setopaque .pushdc .black .flushpath P 3 0 trans A 6.25 0 trans R 5. 0 trans C .drawarea .popdc .pushdc .white 0 0 settrans .flushpath P' 3 0 trans A' 6.25 0 trans R' 5. 0 trans C' .drawarea .popdc .pushdc 0 0 settrans .flushpath P' 3 0 trans A' 6.25 0 trans R' 5 0 trans C' 3 6.25 .add 5. .add .neg 0 trans .cliparea 1 30. .div .dup .scale 1 1 1.5 .div .scale -.75 72 .mul -4.75 72 .mul .translate 0 0 .setcp (/Indigo/Ais/NewParc.ais) .setsampledcolor 0 0 1000 1000 .drawbox .popdc .popdc ).cvx .def (logo){ .pushdc 0.8 0.64 .scale 50 50 .translate 0 0 .setcp 80 3. .div .dup .scale parc .popdc }.cvx .def (bottomleftlogo){ 0.8 0.64 .scale 80 3.0 .div .dup .scale parc }.cvx .def (bottomrightlogo){ 2.5 72 .mul 0 .translate 0.8 0.64 .scale 80 3.0 .div .dup .scale parc }.cvx .def (dt) .1 .def Ê*˜JšœÏkœ˜J˜J˜;J˜=J˜Jšœ˜J˜J˜šœÏaœ˜Jšœ ˜ Jšœ ˜ J˜—šœžœ˜ Jšœ ˜ Jšœ ˜ J˜—JšœÏnœ˜ JšœŸœ˜ JšœŸœD˜JJšœŸœ2˜;JšœŸœ*˜2JšœŸœ˜#JšœŸœ˜#šœŸ œ ˜+J˜—šœŸœ˜J˜J˜ J˜ J˜!J˜ J˜ J˜ J˜—šœŸœ˜J˜J˜J˜ J˜)J˜ J˜J˜J˜ J˜—šœŸœ˜J˜J˜ J˜ J˜J˜J˜ J˜ J˜J˜ J˜ J˜—šœŸœ˜J˜NJ˜#J˜&J˜$J˜%J˜&J˜J˜JJ˜#J˜ J˜—šœŸœ˜J˜J˜ J˜J˜ J˜ J˜!J˜ J˜ J˜J˜ J˜ J˜ J˜ J˜—šœŸœ˜J˜,J˜J˜ J˜)J˜ J˜;J˜ J˜J˜!J˜J˜/J˜(J˜ J˜—šœŸœ˜J˜JšœŸœ˜J˜ J˜/J˜ J˜J˜J˜$J˜ J˜—šœŸœ˜JšœŸœ˜J˜J˜ J˜WJ˜ J˜J˜/J˜6J˜ J˜—šœŸœ˜Jšœ ˜ J˜J˜ J˜J˜J˜J˜ Jšœ)˜)J˜ J˜J˜J˜J˜ J˜ Jšœ-˜-J˜J˜J˜ J˜ JšœM˜MJ˜ J˜J˜J˜%Jšœ5˜5J˜J˜ J˜ J˜—šœžœ˜JšœV˜VJšœ ˜ J˜—šœžœ˜Jšœ,˜,Jšœ ˜ J˜—šœžœ˜JšœE˜EJšœ ˜ J˜—JšœŸœ ˜ J˜J˜—…— €°