(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "20-May-2000 10:12:31" ("compiled on " {DSK}<project>medley3.5>lispusers>TWODGRAPHICS.;2) " 9-Apr-2000 18:01:32" tcompl'd in "LFG 8-May-2000 ..." dated " 8-May-2000 12:15:45") (FILECREATED " 6-May-87 14:09:27" {QV}<PEDERSEN>LISP>TWODGRAPHICS.;3 47028 changes to%: (VARS TWODGRAPHICSCOMS) (FNS CLIPPED.BITBLT CREATEVIEWPORT SETSTREAMSUBREGION SETWORLDREGION TWODGRAPHICS.BITBLT CLIPPED.BLTSHADE COMPUTETRANSFORM COMPUTEWORLDREGION STREAMREGIONTOWORLDREGION STREAMTOWORLD TWODGRAPHICS.CLOSEFN TWODGRAPHICS.DRAWTO TWODGRAPHICS.DRAWLINE TWODGRAPHICS.DRAWTOPT TWODGRAPHICS.DSPFILL TWODGRAPHICS.DSPRESET TWODGRAPHICS.MOVETO TWODGRAPHICS.MOVETOPT TWODGRAPHICS.PLOTAT TWODGRAPHICS.RELDRAWTO TWODGRAPHICS.RELDRAWTOPT TWODGRAPHICS.RELMOVETO TWODGRAPHICS.RESHAPEFN WORLDREGIONTOSTREAMREGION WORLDTOSTREAM CLIPCODE CLIPPED.DESTREGION CLIPPED.DRAWBETWEEN CLIPPED.DRAWLINE CLIPPED.DRAWTO CLIPPED.PLOTAT CLIPPED.PRIN1 CLIPPED.RELDRAWTO CLIPPED.SOURCEREGION REPLACE.REGION) previous date%: " 6-May-87 12:19:11" {QV}<PEDERSEN>LISP>TWODGRAPHICS.;2) CREATEVIEWPORT :D8 (L (2 SOURCE 1 STREAMSUBREGION 0 STREAM)) �Þ��h@ ����!A³HHHH����b¿B³o����o����o����o��������b¿HA ����¬o����AH����¿BZdl ����²1¿J…d3•µùi¿h²`����d@�¿dA¿dB¿ ����°0BÃ����²`����B ����d@�¿dA¿ ����Šo����B ����Y@ ����²@ ����¿@g����I����I�(218 WINDOWADDPROP 205 TWODGRAPHICS.INIT 197 WINDOWP 190 ERROR 178 COMPUTEWORLDREGION 163 NCREATE2 142 COMPUTETRANSFORM 96 EQLENGTH 85 CL:ERROR 72 SUBREGIONP 62 CREATEREGION 31 CREATEREGION 6 DSPCLIPPINGREGION) (212 VIEWPORTS 157 |VIEWPORTTYPE#| 150 VIEWPORT 121 |VIEWPORTTYPE#|) ( 184 "Not region or viewort: ~S" 78 "~s not a subregion of ~s" 57 1.0 52 1.0 47 0.0 42 0.0) COMPUTETRANSFORM :D8 (L (0 VIEWPORT)) ��@����É@����É@����HkÙíIíìÎ@����Hí@����dÈýÈÑí�IêíìÎ@����HkÙíIíìÎ @����Hí@����dÈ ýÈÑí�IêíìÎ@����n?€jÑ@����dÈýÈÑìÎ@����@����dÈýÈ Ñ@����dÈýÈÑìíÎ@����n?€jÑ@����dÈ ýÈÑìÎ@����@����dÈýÈ Ñ@����dÈ ýÈÑìíÎ@�NIL (257 VIEWPORT 244 VIEWPORT 238 VIEWPORT 221 VIEWPORT 210 VIEWPORT 191 VIEWPORT 178 VIEWPORT 172 VIEWPORT 155 VIEWPORT 144 VIEWPORT 119 VIEWPORT 108 VIEWPORT 82 VIEWPORT 58 VIEWPORT 48 VIEWPORT 24 VIEWPORT 13 VIEWPORT 5 VIEWPORT) () COMPUTEWORLDREGION :D8 (L (0 VIEWPORT)) �s��@����É@����dÈýÈÑí�@����dÈýÈ Ñí�@����dÈ ýÈÑí�@����dÈýÈ Ñí�HJéIëHLéKëHIëHKë����]@����M@�(101 CREATEREGION) (108 VIEWPORT 58 VIEWPORT 43 VIEWPORT 28 VIEWPORT 13 VIEWPORT 5 VIEWPORT) () SETSTREAMSUBREGION :D8 (L (1 VIEWPORT 0 REGION)) �K���AdÃ����¿o����A ����¿A����É�g���� ����@ ����«o����@ ����¿A����@A �����(72 COMPUTETRANSFORM 56 CL:ERROR 44 SUBREGIONP 38 GETWINDOWUSERPROP 19 CL:ERROR) (63 VIEWPORT 33 WINCLIPPINGREGION 26 VIEWPORT 6 VIEWPORT) ( 50 "Not a subregion of stream: ~s" 13 "Not a VIEWPORT: ~s") SETWORLDREGION :D8 (L (1 VIEWPORT 0 REGION)) �&���AdÃ����¿o����A ����¿A����@A �����(35 COMPUTETRANSFORM 19 CL:ERROR) (26 VIEWPORT 6 VIEWPORT) ( 13 "Not a viewport: ~s") STREAMREGIONTOWORLDREGION :D8 (L (1 VIEWPORT 0 REGION)) ���@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�@�A����dÈýÈÑí�H����êíí�@�A����dÈýÈÑí�H����êíí������(170 CREATEREGION) (159 FLOATP 144 VIEWPORT 124 FLOATP 109 VIEWPORT 89 FLOATP 74 VIEWPORT 59 VIEWPORT 40 FLOATP 25 VIEWPORT 10 VIEWPORT) () STREAMTOWORLD :D8 (L (2 OLDPT 1 VIEWPORT 0 PT)) �Ë��Bµd@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�B@�A����dÈýÈÑí�A����dÈýÈÑí�H����êèíí�B�NIL (191 FLOATP 176 VIEWPORT 161 VIEWPORT 141 FLOATP 126 VIEWPORT 111 VIEWPORT 91 FLOATP 76 VIEWPORT 61 VIEWPORT 43 FLOATP 28 VIEWPORT 13 VIEWPORT) () TWODGRAPHICS.BITBLT :D8 (L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATIONVIEWPORT 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 11 TWODGRAPHICS.CURRENTVIEWPORT) �CµWbÃ����«o����C ����¿C����É�¡ C����ɹD£I°,C����dÈýÈ Ñí�C����dÈýÈÑí�D����êèííºE¤I°,C����dÈýÈ Ñí�C����dÈ ýÈÑí�E����êèíí»G¡IIGC ���� ����¼@½A¾B_¿F_¿G_¿@Ã����¢±�Ö@����É�½@����É_¿A¤O°,@����dÈýÈ Ñí�@����dÈýÈÑí�A����êèíí¾B¥O°,@����dÈýÈ Ñí�@����dÈ ýÈÑí�B����êèíí_¿F¦O°@����dÈýÈÑí�F����êíí_¿G§O°@����dÈ ýÈÑí�G����êíí_¿LO ����¼Gg����ð²OF¥I°C����dÈýÈÑí�F����êíí_¿G¦I°C����dÈ ýÈÑí�G����êíí_¿LMNOHJKOOGGG �����(512 CLIPPED.BITBLT 400 INTERSECTREGIONS 162 INTERSECTREGIONS 157 WORLDREGIONTOSTREAMREGION 23 CL:ERROR) (480 FLOATP 464 VIEWPORT 440 FLOATP 425 VIEWPORT 408 TEXTURE 384 FLOATP 368 VIEWPORT 343 FLOATP 328 VIEWPORT 304 FLOATP 289 VIEWPORT 274 VIEWPORT 253 FLOATP 238 VIEWPORT 223 VIEWPORT 205 VIEWPORT 196 VIEWPORT 186 VIEWPORT 136 FLOATP 121 VIEWPORT 106 VIEWPORT 86 FLOATP 71 VIEWPORT 56 VIEWPORT 41 VIEWPORT 30 VIEWPORT 11 VIEWPORT) ( 17 "Destination not a viewport: ~s") TWODGRAPHICS.CLOSEFN :D8 (L (0 W)) �F���@g����h����@g����h����@g����h����@g����g��������@g����g���������(67 WINDOWDELPROP 51 WINDOWDELPROP 35 PUTWINDOWPROP 23 PUTWINDOWPROP 11 PUTWINDOWPROP) (62 TWODGRAPHICS.RESHAPEFN 57 RESHAPEFN 46 TWODGRAPHICS.CLOSEFN 41 CLOSEFN 29 WINCLIPPINGREGION 17 VIEWPORTS 5 TWODPROPS?) () TWODGRAPHICS.DRAWBETWEEN :D8 (L (6 DASHING 5 COLOR 4 VIEWPORT 3 OPERATION 2 WIDTH 1 PT2 0 PT1)) ����@@AABCDEF �����(18 TWODGRAPHICS.DRAWLINE) NIL () TWODGRAPHICS.DRAWLINE :D8 (L (8 DASHING 7 COLOR 6 VIEWPORT 5 OPERATION 4 WIDTH 3 Y2 2 X2 1 Y1 0 X1)) �Ï�� F����É�F����É�F����dÈýÈ Ñí�F����dÈýÈÑí�@����êèííF����dÈýÈ Ñí�F����dÈ ýÈÑí�A����êèííF����dÈýÈ Ñí�F����dÈýÈÑí�B����êèííF����dÈýÈ Ñí�F����dÈ ýÈÑí�C����êèííIJKLMDEHGG �����(204 CLIPPED.DRAWLINE) (177 FLOATP 162 VIEWPORT 147 VIEWPORT 135 FLOATP 120 VIEWPORT 105 VIEWPORT 93 FLOATP 78 VIEWPORT 63 VIEWPORT 51 FLOATP 36 VIEWPORT 21 VIEWPORT 13 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.DRAWTO :D8 (L (6 DASHING 5 COLOR 4 VIEWPORT 3 OPERATION 2 WIDTH 1 Y 0 X)) �w��D����É�D����ÉD����dÈýÈ Ñí�D����dÈýÈÑí�@����êèííD����dÈýÈ Ñí�D����dÈ ýÈÑí�A����êèííIJKBCHEF �����(116 CLIPPED.DRAWTO) (93 FLOATP 78 VIEWPORT 63 VIEWPORT 51 FLOATP 36 VIEWPORT 21 VIEWPORT 13 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.DRAWTOPT :D8 (L (5 DASHING 4 COLOR 3 VIEWPORT 2 OPERATION 1 WIDTH 0 PT)) ����@@ABCDE �����(14 TWODGRAPHICS.DRAWTO) NIL () TWODGRAPHICS.DSPFILL :D8 (L (3 VIEWPORT 2 OPERATION 1 TEXTURE 0 REGION)) �3��C����É��hddChdddg����Bd¥H ����Ad¥H ����@ �����(48 TWODGRAPHICS.BITBLT 41 DSPTEXTURE 32 DSPOPERATION) (23 TEXTURE 5 VIEWPORT) () TWODGRAPHICS.DSPRESET :D8 (L (0 VIEWPORT)) �G��@����É�@����ÉhH ����H ����IIØmÿØH ����Õ ����hdg����@�����(68 TWODGRAPHICS.DSPFILL 55 DSPYPOSITION 49 FONTASCENT 31 DSPXPOSITION 25 DSPLEFTMARGIN) (62 REPLACE 13 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.INIT :D8 (L (0 W)) �\���@g���� ����³N@g����i����@g����h����@g����h@ ��������@g����g��������@g����g����i����h�(87 WINDOWADDPROP 70 WINDOWADDPROP 54 PUTWINDOWPROP 49 DSPCLIPPINGREGION 36 PUTWINDOWPROP 24 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (81 TWODGRAPHICS.RESHAPEFN 76 RESHAPEFN 65 TWODGRAPHICS.CLOSEFN 60 CLOSEFN 42 WINCLIPPINGREGION 30 VIEWPORTS 18 TWODPROPS? 5 TWODPROPS?) () TWODGRAPHICS.MOVETO :D8 (L (2 VIEWPORT 1 Y 0 X)) �c���B����dÈýÈ Ñí�B����dÈýÈÑí�@����êèííB����dÈýÈ Ñí�B����dÈ ýÈÑí�A����êèííB����É������(96 MOVETO) (89 VIEWPORT 77 FLOATP 62 VIEWPORT 47 VIEWPORT 35 FLOATP 20 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.MOVETOPT :D8 (L (1 VIEWPORT 0 PT)) ����@@A�����(9 TWODGRAPHICS.MOVETO) NIL () TWODGRAPHICS.PLOTAT :D8 (L (3 OPERATION 2 VIEWPORT 1 GLYPH 0 PT)) �'��B����É�B����ÉI@B ����AHC ����h�(35 CLIPPED.PLOTAT 26 WORLDTOSTREAM) (13 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.RELDRAWTO :D8 (L (6 DASHING 5 COLOR 4 VIEWPORT 3 OPERATION 2 WIDTH 1 DELTAY 0 DELTAX)) �W��D����É�D����É�D����dÈýÈÑí�@����êííD����dÈ ýÈÑí�A����êííIJKBCDEF �����(84 CLIPPED.DRAWTO) (62 FLOATP 47 VIEWPORT 36 FLOATP 21 VIEWPORT 13 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.RELDRAWTOPT :D8 (L (5 DASHING 4 COLOR 3 VIEWPORT 2 OPERATION 1 WIDTH 0 DPT)) ����@@ABCDE �����(14 TWODGRAPHICS.RELDRAWTO) NIL () TWODGRAPHICS.RELMOVETO :D8 (L (2 VIEWPORT 1 DY 0 DX)) �G��B����É��B����dÈýÈÑí�@����êííB����dÈ ýÈÑí�A����êííH�����(68 RELMOVETO) (57 FLOATP 42 VIEWPORT 31 FLOATP 16 VIEWPORT 5 VIEWPORT) () TWODGRAPHICS.RELMOVETOPT :D8 (L (1 VIEWPORT 0 DPT)) ����@@A�����(9 TWODGRAPHICS.RELMOVETO) NIL () TWODGRAPHICS.RESHAPEFN :D8 (L (0 WINDOW)) �›��@g���� ����h@ ����"IHëZIHë[@g���� ����!Lµ@g����I����@]����ɾM����JNê ����KNê ����JNê ����KNê ��������¿M ����¿L\°¢�(147 COMPUTETRANSFORM 138 CREATEREGION 133 FIXR 121 FIXR 110 FIXR 100 FIXR 73 PUTWINDOWPROP 53 GETWINDOWUSERPROP 17 DSPCLIPPINGREGION 10 GETWINDOWUSERPROP) (91 VIEWPORT 82 VIEWPORT 67 WINCLIPPINGREGION 48 VIEWPORTS 5 WINCLIPPINGREGION) () WORLDREGIONTOSTREAMREGION :D8 (L (1 VIEWPORT 0 REGION)) ���@�A����dÈýÈ Ñí�A����dÈýÈÑí�H����êèíí@�A����dÈýÈ Ñí�A����dÈ ýÈÑí�H����êèíí@�A����dÈýÈÑí�H����êíí@�A����dÈ ýÈÑí�H����êíí�����(170 CREATEREGION) (159 FLOATP 144 VIEWPORT 124 FLOATP 109 VIEWPORT 89 FLOATP 74 VIEWPORT 59 VIEWPORT 40 FLOATP 25 VIEWPORT 10 VIEWPORT) () WORLDTOSTREAM :D8 (L (2 OLDPT 1 VIEWPORT 0 PT)) �Ë��Bµd@�A����dÈýÈ Ñí�A����dÈýÈÑí�H����êèíí@�A����dÈýÈ Ñí�A����dÈ ýÈÑí�H����êèíí@�A����dÈýÈ Ñí�A����dÈýÈÑí�H����êèííB@�A����dÈýÈ Ñí�A����dÈ ýÈÑí�H����êèííB�NIL (191 FLOATP 176 VIEWPORT 161 VIEWPORT 141 FLOATP 126 VIEWPORT 111 VIEWPORT 91 FLOATP 76 VIEWPORT 61 VIEWPORT 43 FLOATP 28 VIEWPORT 13 VIEWPORT) () CLIPCODE :D8 (L (5 BOTTOM 4 TOP 3 RIGHT 2 LEFT 1 Y 0 X)) �$���ADó’l€jEAó’l€j@Có’l€jB@ó‘k€jäää�NIL NIL () CLIPPED.BITBLT :D8 (L (11 TEXTURE 10 OPERATION 9 SOURCETYPE 8 HEIGHT 7 WIDTH 6 DESTINATIONBOTTOM 5 DESTINATIONLEFT 4 DESTINATION 3 SOURCEBOTTOM 2 SOURCELEFT 1 SOURCEBITMAP 0 CLIPPINGREGION)) E ��Gg����ð²@GDEFGGG ����B£jb¿C£jb¿E£jb ¿F£jb¿G³Ad ����œ¿Ag���� ����„ ����b¿G³Ad ����œ¿Ag���� ����„ ����b¿@‘ @¹@º@»hD ����¼E½F¾LGÖ_¿LGÖ_¿h_¿HMóži_¿OHMÕÕ_¿H½INóži_¿OINÕÕ_¿I¾MOÔHJÔó›i_¿HJÔMÕ_¿NOÔIKÔó›i_¿IKÔNÕ_¿O³ABCDEFGGGG ����Ojó´Ojó¡hABMEÕLÛÔCNFÕLÛÔDMNOLÛOLÛGG �����(322 BITBLT 272 BITBLT 145 DSPSCALE 115 BITMAPHEIGHT 109 GETWINDOWPROP 96 WINDOWP 82 BITMAPWIDTH 76 GETWINDOWPROP 63 WINDOWP 27 CLIPPED.BLTSHADE) (104 HEIGHT 71 WIDTH 6 TEXTURE) () CLIPPED.BLTSHADE :D8 (L (7 OPERATION 6 HEIGHT 5 WIDTH 4 DESTINATIONBOTTOM 3 DESTINATIONLEFT 2 DESTINATION 1 TEXTURE 0 CLIPPINGREGION)) �¸��C£jb¿D£jb¿E³Bd ����œ¿Bg���� ����„ ����b ¿F³Bd ����œ¿Bg���� ����„ ����b¿@@@@CDEFHLó—NHLÕÕ¾H¼IMóšOIMÕÕ_¿I½LNÔHJÔó•HJÔLÕ¾MOÔIKÔó—IKÔMÕ_¿Njó´Ojó¡hABLMNOG �����(181 BLTSHADE 72 BITMAPHEIGHT 66 GETWINDOWPROP 53 WINDOWP 40 BITMAPWIDTH 34 GETWINDOWPROP 21 WINDOWP) (61 HEIGHT 29 WIDTH) () CLIPPED.DRAWBETWEEN :D8 (L (7 DASHING 6 COLOR 5 STREAM 4 OPERATION 3 WIDTH 2 SECONDPOSITION 1 FIRSTPOSITION 0 CLIPPINGREGION)) ����@AABBCDEFG �����(20 CLIPPED.DRAWLINE) NIL () CLIPPED.DRAWLINE :D8 (L (9 DASHING 8 COLOR 7 STREAM 6 OPERATION 5 WIDTH 4 Y2 3 X2 2 Y1 1 X1 0 CLIPPINGREGION)) �� @@@ØmÿØ@@ØmÿØ@CDV ABHIJK ����¾CDHIJK ����_¿NOåjð¢±�¯NOäjð_•i_±�¦Ndjð²*¿A_¿Cb¿Ob¿B_¿Db¿Ob¿N_¿O¾O_¿Nlåjð³ACAÕJBÕÖDBÕ×Ôb¿Jb¿°XNdlåjð³¿ACAÕKBÕÖDBÕ×Ôb¿Kb¿°8låjð³BDBÕIAÕÖCAÕ×Ôb¿Ib¿°BDBÕHAÕÖCAÕ×Ôb¿Hb¿ƒi_¿O¢±ÿ'O²ABCDEFGGG ����¿LMG����h�(283 MOVETO 273 DRAWLINE 56 CLIPCODE 43 CLIPCODE) NIL () CLIPPED.DRAWTO :D8 (L (7 DASHING 6 COLOR 5 STREAM 4 OPERATION 3 WIDTH 2 Y 1 X 0 CLIPPINGREGION)) ����@hE ����hE ����ABCDEFG �����(28 CLIPPED.DRAWLINE 14 DSPYPOSITION 7 DSPXPOSITION) NIL () CLIPPED.PLOTAT :D8 (L (4 OPERATION 3 STREAM 2 GLYPH 1 PT 0 CLIPPINGREGION)) �G��B ����B ����"AhC ����HlÛÖÕZAhC ����IlÛÖÕ[@BjdCJKHIg����D ����h�(67 CLIPPED.BITBLT 39 DSPSCALE 23 DSPSCALE 11 BITMAPHEIGHT 5 BITMAPWIDTH) (60 INPUT) () CLIPPED.PRIN1 :D8 (L (2 STREAM 1 EXPR 0 CLIPPINGREGION)) �¢ ��AB �����@H ����˜AB ����hH@ ����d²÷HÙjð´éA ����k@@@ØmÿØhB ����hB ����&JIó³¿AJ ����B ����_¿MOØ_¿KMñ³OdLñ³¿AJ ����B ����ˆONB����¿O½JkÔZ°¹�(150 MOVETO 140 PRIN1 134 NTHCHAR 104 CHARWIDTH 98 NTHCHARCODE 83 DSPYPOSITION 76 DSPXPOSITION 56 NCHARS 33 INTERSECTREGIONS 24 PRIN1 16 SUBREGIONP 6 STRINGREGION) NIL () CLIPPED.RELDRAWTO :D8 (L (7 DASHING 6 COLOR 5 STREAM 4 OPERATION 3 WIDTH 2 DY 1 DX 0 CLIPPINGREGION)) �)��hE ����hE ����@HIHAÔIBÔCDEFG ����h�(37 CLIPPED.DRAWLINE 13 DSPYPOSITION 6 DSPXPOSITION) NIL () (PRETTYCOMPRINT TWODGRAPHICSCOMS) (RPAQQ TWODGRAPHICSCOMS ((* ;; "World to window transforms") (FNS CREATEVIEWPORT COMPUTETRANSFORM COMPUTEWORLDREGION SETSTREAMSUBREGION SETWORLDREGION STREAMREGIONTOWORLDREGION STREAMTOWORLD TWODGRAPHICS.BITBLT TWODGRAPHICS.CLOSEFN TWODGRAPHICS.DRAWBETWEEN TWODGRAPHICS.DRAWLINE TWODGRAPHICS.DRAWTO TWODGRAPHICS.DRAWTOPT TWODGRAPHICS.DSPFILL TWODGRAPHICS.DSPRESET TWODGRAPHICS.INIT TWODGRAPHICS.MOVETO TWODGRAPHICS.MOVETOPT TWODGRAPHICS.PLOTAT TWODGRAPHICS.RELDRAWTO TWODGRAPHICS.RELDRAWTOPT TWODGRAPHICS.RELMOVETO TWODGRAPHICS.RELMOVETOPT TWODGRAPHICS.RESHAPEFN WORLDREGIONTOSTREAMREGION WORLDTOSTREAM) (MACROS STREAMTOWORLDX STREAMTOWORLDXLENGTH STREAMTOWORLDY STREAMTOWORLDYLENGTH WORLDTOSTREAMX WORLDTOSTREAMXLENGTH WORLDTOSTREAMY WORLDTOSTREAMYLENGTH) (RECORDS VIEWPORT) (* ;; "Primitive clipping FNS") (FNS CLIPCODE CLIPPED.BITBLT CLIPPED.BLTSHADE CLIPPED.DRAWBETWEEN CLIPPED.DRAWLINE CLIPPED.DRAWTO CLIPPED.PLOTAT CLIPPED.PRIN1 CLIPPED.RELDRAWTO) ( MACROS SWAPARGS) (* ;; "For unboxed floating point games") (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES UNBOXEDOPS)) (DECLARE%: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (PUTPROPS STREAMTOWORLDX MACRO (OPENLAMBDA (X VIEWPORT) (PROG (RESULT) (DECLARE (TYPE FLOATP RESULT)) (RETURN (SETQ RESULT (FPLUS (fetch STREAMTOWORLDAX of VIEWPORT) (FTIMES (fetch STREAMTOWORLDMX of VIEWPORT) (FLOAT X)))))))) (PUTPROPS STREAMTOWORLDXLENGTH MACRO (OPENLAMBDA (DX VIEWPORT) (PROG (RESULT) (DECLARE (TYPE FLOATP RESULT)) (RETURN (SETQ RESULT (FTIMES (fetch STREAMTOWORLDMX of VIEWPORT) (FLOAT DX))))))) (PUTPROPS STREAMTOWORLDY MACRO (OPENLAMBDA (Y VIEWPORT) (PROG (RESULT) (DECLARE (TYPE FLOATP RESULT)) (RETURN (SETQ RESULT (FPLUS (fetch STREAMTOWORLDAY of VIEWPORT) (FTIMES (fetch STREAMTOWORLDMY of VIEWPORT) (FLOAT Y)))))))) (PUTPROPS STREAMTOWORLDYLENGTH MACRO (OPENLAMBDA (DY VIEWPORT) (PROG (RESULT) (DECLARE (TYPE FLOATP RESULT)) (RETURN (SETQ RESULT (FTIMES (fetch STREAMTOWORLDMY of VIEWPORT) (FLOAT DY))))))) (PUTPROPS WORLDTOSTREAMX MACRO (OPENLAMBDA (X VIEWPORT) (UFIX (FPLUS (fetch WORLDTOSTREAMAX of VIEWPORT) (FTIMES (fetch WORLDTOSTREAMMX of VIEWPORT) (FLOAT X)))))) (PUTPROPS WORLDTOSTREAMXLENGTH MACRO (OPENLAMBDA (DX VIEWPORT) (UFIX (FTIMES (fetch WORLDTOSTREAMMX of VIEWPORT) (FLOAT DX))))) (PUTPROPS WORLDTOSTREAMY MACRO (OPENLAMBDA (Y VIEWPORT) (UFIX (FPLUS (fetch WORLDTOSTREAMAY of VIEWPORT) (FTIMES (fetch WORLDTOSTREAMMY of VIEWPORT) (FLOAT Y)))))) (PUTPROPS WORLDTOSTREAMYLENGTH MACRO (OPENLAMBDA (DY VIEWPORT) (UFIX (FTIMES (fetch WORLDTOSTREAMMY of VIEWPORT) (FLOAT DY))))) (DATATYPE VIEWPORT (PARENTSTREAM STREAMSUBREGION WORLDREGION (WORLDTOSTREAMMX FLOATP) (WORLDTOSTREAMAX FLOATP) (WORLDTOSTREAMMY FLOATP) (WORLDTOSTREAMAY FLOATP) (STREAMTOWORLDMX FLOATP) (STREAMTOWORLDAX FLOATP) (STREAMTOWORLDMY FLOATP) (STREAMTOWORLDAY FLOATP))) (/DECLAREDATATYPE (QUOTE VIEWPORT) (QUOTE (POINTER POINTER POINTER FLOATP FLOATP FLOATP FLOATP FLOATP FLOATP FLOATP FLOATP)) (QUOTE ((VIEWPORT 0 POINTER) (VIEWPORT 2 POINTER) (VIEWPORT 4 POINTER) ( VIEWPORT 6 FLOATP) (VIEWPORT 8 FLOATP) (VIEWPORT 10 FLOATP) (VIEWPORT 12 FLOATP) (VIEWPORT 14 FLOATP) (VIEWPORT 16 FLOATP) (VIEWPORT 18 FLOATP) (VIEWPORT 20 FLOATP))) (QUOTE 22)) (PUTPROPS SWAPARGS MACRO ((TEMP FIRST SECOND) (SETQ TEMP FIRST) (SETQ FIRST SECOND) (SETQ SECOND TEMP) )) (PUTPROPS TWODGRAPHICS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) NIL