(/setview) (.touch .touch .touch .touch viewport).cvx .def (viewport) (4 .copy 4 .copy .setclip .erase .drawbox .setview ).cvx .def (dot)(2 .copy .dot).cvx .def (path)((.touch .enterpoint).cvx .rept .newboundary).cvx .def (rect)(.touch .touch .enterrect).cvx .def (clip)(.startpath path .cliparea .erase).cvx .def (cclip)(.startpath path .clippedcliparea .erase).cvx .def (clips)(.startpath (rect).cvx .rept .cliparea .erase).cvx .def (rclips)(.startpath (.touch .touch .enterrect).cvx .rept .cliparea .erase).cvx .def (poly)(.touch dot .moveto 1 .sub (.touch .drawto) .cvx .rept) .cvx .def (area)(.startpath (.touch dot .enterpoint) .cvx .rept .drawarea) .cvx .def (spray)(.touch .translate .pushdc 120 (0 0 .moveto 1000 0 .drawto 3 .rotate) .cvx .rept .popdc) .cvx .def (spline)(.dup (.touch dot 3 -1 .roll) .cvx .rept .enterspline).cvx .def (cspline)(.dup (.touch dot 3 -1 .roll) .cvx .rept .entercspline).cvx .def (blob)(.startpath cspline .drawarea).cvx .def (cblob)(.startpath cspline .cliparea .erase).cvx .def (gencircle)(1. 0 .moveto .dup 360. .exch .div 0 3 -1 .roll(2 .copy .pop .add .dup .dup .cos .exch .sin .drawto) .cvx .rept .pop .pop) .cvx .def (tp) 4 .array .def (#)(.load).cvx .def (text) ( text This command accepts an initial position, a leading value and a string on the operand stack. The text is broken into parts that are separated by carraige returns. These parts are displayed using the x part of the position as the left margin.) [ tp 0 3 -1 (.roll)# (.aput)# tp 3 3 -1 (.roll)# (.aput)# tp 2 3 -1 (.roll)# (.aput)# tp 1 3 -1 (.roll)# (.aput)# tp 0 (.aget)# ( ) [ tp 1 (.aget)# tp 2 (.aget)# (.moveto).cvx (.search)# [ (.drawstring).cvx tp 2 tp 2 (.aget)# tp 3 (.aget)# (.sub)# (.aput)# ] [ (.drawstring).cvx (.exit)# ] (.ifelse)# (.cvx)# (.exec)# ] (.cvx)# (.loop)# ] /xdef (zoom) ("zoom" allows the user to look (temporarily) at a portion of the screen. the first four .touches define a mapping and repaint the given display object in the new mapping. the last touch removes the window and repaints the original object.) ((!f).exch .def !f lookat .touch .pop .pop !f refresh)/xdef (lookat)(.pushdc .touch .touch .touch .touch 4 .copy 12 4 .roll viewport 5 -1 .roll .drawob .popdc).cvx .def (refresh)(.pushdc 5 1 .roll .setclip .erase .drawob .popdc).cvx .def (paint) 0 .def (replace) 1 .def (invert) 2 .def (erase) 3 .def (gray0) -1 .def (gray1) 32767 .def (gray2) 32735 .def (gray3) 24543 .def (gray4) 24415 .def (gray5) 23391 .def (gray6) 23390 .def (gray7) 23134 .def (gray8) 23130 .def (gray9) 6746 .def (gray10) 6730 .def (gray11) 2634 .def (gray12) 2570 .def (gray13) 2058 .def (gray14) 2050 .def (gray15) 2 .def (gray16) 0 .def (black) gray0 .def (white) gray16 .def (checked) 13260 .def (areatest)((.mouse .translate star .drawob).cvx .loop).cvx .def (linetest)(.touch .translate (0 0 .moveto .mouse .drawto).cvx .loop).cvx .def (texttest)((.mouse .moveto fox .drawstring).cvx .loop).cvx .def (fox)(The quick brown fox jumps over the lazy dog.).def (ttest)((.mouse .translate .dup .drawob).cvx .loop).cvx .def (rtest)(.pushdc (.mouse .translate .dup .drawob 1 .rotate).cvx .loop).cvx .def (stest)((.mouse .moveto .dup .drawstring).cvx .loop).cvx .def (ctest)((.mouse .moveto .dup .drawchars).cvx .loop).cvx .def (boxarea)(.initboxer area .stopboxer showbox).cvx .def (showbox)(.pushdc invert .paint black .texture .startpath 4 (.enterpoint).cvx .rept .drawarea .popdc).cvx .def (box)(.touch .touch .drawboxarea).cvx .def (rect)(.touch .touch .enterrect).cvx .def (bkg)(.pushdc gray8 .texture replace .paint .drawscreenarea .popdc).cvx .def (init)(.initdc bkg).cvx .def (t)(.touch .translate 0 0 .moveto).cvx .def (e)(.erase).cvx .def