(Magic Utilities of September 26, 1981  12:00 PM)/print

(magic)(magicdict /begin).cvx .def
(cif)(magic).load .def

(magicdict).where
  (.pop).cvx
  ((magicdict)256 .dict .def).cvx
.ifelse

magicdict .begin

(begin)
(jamrun magicrun .eq .not
   ((CIF.bcd).loadbcd
    loadstipples
    (draw)(drawscreen).cvx .def
    (outlinemode).false .def
    (magicrun)jamrun .def
    (Init.cif)readcif reset
   ).cvx
 .if
 (Magic)/print
).cvx .def

(magicrun)0 .def

(.reddown)(2 .copy 4 trackbox).cvx .def
(.redup)
(4 .copy .pop .exch .pop .lt
  (expand).cvx
  (contract).cvx
 .ifelse
 draw .displayon
).cvx .def

(.yellowdown)().cvx .def
(.yellowup)(scroll draw .displayon).cvx .def

(.bluedown)(2 .copy 1 trackbox).cvx .def
(.blueup)
(setclipregion draw .displayon
).cvx .def

(fit)(boundbox expand).cvx .def

(clipfit)(fit boundbox setclipregion).cvx .def

(atorigin)(boundbox .pop .pop getclipregion .pop .pop scroll).cvx .def

(scrollto)
(getclipregion
 3 -1 .roll .add 2 .div
 3 1 .roll .add 2 .div
 .exch scroll draw .displayon
).cvx .def

(readcif)
(parsecif
   (fit).cvx
 .if
).cvx .def

(readic)
(parseic
   (fit).cvx
 .if
).cvx .def

(clear)
(endcif erase
).cvx .def

(reset)
(clear unoutline screen
).cvx .def

(show)
(Show log file. Expects name of log file)
(1 .bytestream (logstream) .exch .def
 more).cvx /def

(more)
(Resume showing log file. No parameters)
( logstream .type (.streamtype) .eq
    (  (logstream showone .not
          ((No more errors)/print
           (logstream)(none).def .exit
          ).cvx
        .if
        ( More? ).print
        .mystream .readline .pop .dup .length 0 .eq
          (.pop).cvx
          (0 1 .substring (n) .eq
             (.exit).cvx
           .if
          ).cvx
        .ifelse
      ).cvx .loop
    ).cvx
    ((No more errors)/print).cvx
  .ifelse
).cvx /def

(logstream)(none).def

(showone)
(.token
  (.exch .token .pop .exch .readline .pop
   .print scrollto
   .true
  ).cvx
  (.false).cvx
.ifelse
).cvx .def


(screen)
(screen - no parameters. output = draw
)
((screen)select loadstipples
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def

(press)
(selection: <pages down><pages across> press
output: <1st page row><1st page column>
   <last page row><last page column><filename> output
)
(jamrun pressrun .eq .not
   ((CIFPress.bcd).loadbcd
    (pressrun)jamrun .def
   ).cvx
 .if
 (press)select loadcolors
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 draw .displayon
).cvx /def
(pressrun)0 .def

(versatec)
(selection: <strips> versatec
output: <1st strip><last strip><filename> output
)
(jamrun versatecrun .eq .not
   ((CIFVersatec.bcd).loadbcd
    (versatecrun)jamrun .def
   ).cvx
 .if
 .dup (versatec)select loadstipples
   outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 1 .eq .not (draw).cvx .if
 .displayon
).cvx /def
(versatecrun)0 .def

(ramtek)
(selection: <strips> ramtek
output: <1st strip><last strip><filename> output
)
(jamrun ramtekrun .eq .not
   ((CIFRamtek.bcd).loadbcd
    (ramtekrun)jamrun .def
   ).cvx
 .if
 .dup (ramtek)select loadstipples
   outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 1 .eq .not (draw).cvx .if
 .displayon
).cvx /def
(ramtekrun)0 .def

(extractor)
(selection: extractor
output: <filename> output
)
(jamrun extractorrun .eq .not
   ((CIFExtractor.bcd).loadbcd
    (extractorrun)jamrun .def
   ).cvx
 .if
 (extractor)select
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def
(extractorrun)0 .def

(drc)
(selection: drc
output: <filename> output
)
(jamrun drcrun .eq .not
   ((CIFDRC.bcd).loadbcd
    (drcrun)jamrun .def
   ).cvx
 .if
 (drc)select
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def
(drcrun)0 .def

(reticle)
(selection: reticle
output: <filename> output
)
(jamrun reticlerun .eq .not
   ((CIFReticle.bcd).loadbcd
    (reticlerun)jamrun .def
   ).cvx
 .if
 (reticle)select
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def
(reticlerun)0 .def

(mann)
(selection: <units> mann     <units> := english|metric
output: <filename> output
)
(jamrun mannrun .eq .not
   ((CIFMann.bcd).loadbcd
    (mannrun)jamrun .def
   ).cvx
 .if
 (mann)select
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def
(mannrun)0 .def
(metric)0 .def
(english)1 .def

(manntocif)
(<filename> manntocif
)
(jamrun manntocifrun .eq .not
   ((ManntoCIF.bcd).loadbcd
    (manntocifrun)jamrun .def
   ).cvx
 .if
mtoc
).cvx /def
(manntocifrun)0 .def

(cif)
(selection: cif
output: <symbols><filename> output    <symbols> := all|called
)
(jamrun cifrun .eq .not
   ((CIFCIF.bcd).loadbcd
    (cifrun)jamrun .def
   ).cvx
 .if
 (cif)select
 outlinemode (savedraw) (draw) .ifelse (drawscreen).cvx .def
 .displayon
).cvx /def
(cifrun)0 .def
(all).true .def
(called).false .def

(erc)
(<filename><lowlimit><highlimit> erc
)
(jamrun ercrun .eq .not
   ((MagicERC.bcd).loadbcd
    (ercrun)jamrun .def
   ).cvx
 .if
 static
).cvx /def
(ercrun)0 .def


(stippledict)100 .dict .def

(setstipple)
(<layername><array or string of g0 g1 g2 g3> setstipple
)
(2 .copy stippledict 3 1 .roll .put
 .cvx .exec loadstipple
).cvx /def

(loadstipples)(stippledict (.cvx .exec loadstipple).cvx .dictforall).cvx .def


(colordict)100 .dict .def

(setcolor)
(<layername><array or string of hue sat bri> setcolor
)
(2 .copy colordict 3 1 .roll .put
 .cvx .exec loadcolor
).cvx /def

(loadcolors)(colordict (.cvx .exec loadcolor).cvx .dictforall).cvx .def

(draw)(drawscreen).cvx .def
(outlinemode).false .def

(outline)
(outlinemode .not
   ((savedraw)(draw).load .def
    (draw)(erase boundbox drawboxarea drawframe).cvx .def
    (outlinemode).true .def
   ).cvx
 .if
).cvx .def

(unoutline)
(outlinemode
   ((draw)(savedraw).load .def
    (outlinemode).false .def
   ).cvx
 .if
).cvx .def

(initnames)(6 .bytestream (namestream).exch .def).cvx .def
(name)(namedict .begin).cvx .def
(finishnames)(namestream .killstream).cvx .def
(namedict) 10 .dict .def
namedict .begin
  (.reddown)
  (3 .copy .moveto .drawstring
   3 -1 .roll outname
   .exch .cvi .cvs outname
   .cvi .cvs outname
   (
)outname
  ).cvx .def

  (.redup)(.pop .pop .end).cvx .def

  (outname)
  (namestream ( ).writebytes
   namestream .exch .writebytes
  ).cvx .def
.end

(.prompt)(.displayon (#).print).cvx .def

.end

()/print

magic
(670)\58b5B393b8B32b6B102b11B14b9B37b9B32b7B46b3B30b7B41b8B64b8B107b7B43b6B42b5B29b5B39b4B100b4B653b6B158b5B370b8B356b6B344b9B283b3B247b7B271b4B322b9B167b3B319b3B196b10B240b8B200b4B50b7B164b9B