two more init.sysout files that I have been testing with
This commit is contained in:
rmkaplan
196
sources/ADISPLAY
196
sources/ADISPLAY
@@ -1,14 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
|
||||
|
||||
(FILECREATED " 8-Jul-2025 20:19:58"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>ADISPLAY.;14 244883
|
||||
(FILECREATED "19-Feb-2026 12:09:16" {WMEDLEY}<sources>ADISPLAY.;15 244850
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS ADISPLAYCOMS)
|
||||
|
||||
:PREVIOUS-DATE "19-Dec-2023 11:23:08"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>ADISPLAY.;13)
|
||||
:PREVIOUS-DATE " 8-Jul-2025 20:19:58" {WMEDLEY}<sources>ADISPLAY.;14)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT ADISPLAYCOMS)
|
||||
@@ -130,7 +126,7 @@
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD REGION (LEFT BOTTOM WIDTH HEIGHT)
|
||||
LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767
|
||||
LEFT ← -16383 BOTTOM ← -16383 WIDTH ← 32767 HEIGHT ← 32767
|
||||
[ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM)
|
||||
(fetch (REGION HEIGHT) of DATUM)
|
||||
-1))
|
||||
@@ -150,7 +146,7 @@
|
||||
(BITMAPHEIGHT WORD)
|
||||
(BITMAPWIDTH WORD)
|
||||
(BITMAPBITSPERPIXEL WORD))
|
||||
BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD)
|
||||
BITMAPBITSPERPIXEL ← 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD)
|
||||
(BitMapLoLoc WORD))
|
||||
(* ; "overlay initial pointer")
|
||||
)
|
||||
@@ -398,7 +394,7 @@
|
||||
(T (printout T "******** " BITMAP " is not a BITMAP." T)
|
||||
(RETURN NIL)))
|
||||
(printout FILE "(" .P2 (BITMAPWIDTH BM)
|
||||
%, .P2 (BITMAPHEIGHT BM)) (* ;
|
||||
%, .P2 (BITMAPHEIGHT BM)) (* ;
|
||||
"if the number of bits per pixel is not 1, write it out.")
|
||||
(COND
|
||||
((NEQ (BITSPERPIXEL BM)
|
||||
@@ -431,7 +427,7 @@
|
||||
(* ;; "Print this bitmap in the preferred way.")
|
||||
|
||||
(LET* ((WIDTH (BITMAPWIDTH BITMAP))
|
||||
(HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
(HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
(BITS-PER-PIXEL (BITSPERPIXEL BITMAP))
|
||||
(BASE (fetch BITMAPBASE of BITMAP))
|
||||
(QUAD-CHARS-PER-ROW (FOLDHI (CL:* WIDTH BITS-PER-PIXEL)
|
||||
@@ -712,20 +708,20 @@
|
||||
NIL)
|
||||
((CURSORP DEFAULTCARET)
|
||||
(create CARET1
|
||||
CURSOR _ DEFAULTCARET))
|
||||
CURSOR ← DEFAULTCARET))
|
||||
(T (ERROR "DEFAULTCARET is not a cursor"
|
||||
DEFAULTCARET))))
|
||||
(OFF NIL)
|
||||
(COND
|
||||
((CURSORP NEWCARET)
|
||||
(create CARET1
|
||||
CURSOR _ NEWCARET))
|
||||
CURSOR ← NEWCARET))
|
||||
(T (LISPERROR "ILLEGAL ARG" NEWCARET])])
|
||||
|
||||
(\CARET.CREATE
|
||||
[LAMBDA (CURSOR) (* jds "11-Jul-85 19:38")
|
||||
(create CARET1
|
||||
CURSOR _ (OR CURSOR DEFAULTCARET])
|
||||
CURSOR ← (OR CURSOR DEFAULTCARET])
|
||||
|
||||
(\CARET.DOWN
|
||||
[LAMBDA (STREAM INTERVAL UNLESSOCCLUDED) (* lmm " 4-May-84 18:15")
|
||||
@@ -815,7 +811,7 @@
|
||||
(LET ((OCARET \CARET.UP))
|
||||
(COND
|
||||
([AND OCARET CARET (DISPLAYSTREAMP (OR STREAM (SETQ STREAM (TTYDISPLAYSTREAM]
|
||||
(for (OC _ OCARET) by (fetch (CARET1 NEXT) of OC)
|
||||
(for (OC ← OCARET) by (fetch (CARET1 NEXT) of OC)
|
||||
do (COND
|
||||
[(NULL OC)
|
||||
(RETURN (COND
|
||||
@@ -1008,10 +1004,10 @@
|
||||
[LAMBDA (LEFT BOTTOM WIDTH HEIGHT) (* rrb "17-JUN-83 08:56")
|
||||
(* ; "creates a region structure.")
|
||||
(create REGION
|
||||
LEFT _ LEFT
|
||||
BOTTOM _ BOTTOM
|
||||
WIDTH _ WIDTH
|
||||
HEIGHT _ HEIGHT])
|
||||
LEFT ← LEFT
|
||||
BOTTOM ← BOTTOM
|
||||
WIDTH ← WIDTH
|
||||
HEIGHT ← HEIGHT])
|
||||
|
||||
(REGIONP
|
||||
[LAMBDA (X) (* rrb "29-Jun-84 18:00")
|
||||
@@ -1029,11 +1025,11 @@
|
||||
(* ;; "this is documented as returning a very large region. This one covers the entire FIXP range so should work for many purposes. rrb")
|
||||
|
||||
(create REGION
|
||||
LEFT _ (SUB1 MIN.FIXP)
|
||||
BOTTOM _ (SUB1 MIN.FIXP)
|
||||
WIDTH _ (PLUS (TIMES 2 MAX.FIXP)
|
||||
LEFT ← (SUB1 MIN.FIXP)
|
||||
BOTTOM ← (SUB1 MIN.FIXP)
|
||||
WIDTH ← (PLUS (TIMES 2 MAX.FIXP)
|
||||
4)
|
||||
HEIGHT _ (PLUS (TIMES 2 MAX.FIXP)
|
||||
HEIGHT ← (PLUS (TIMES 2 MAX.FIXP)
|
||||
4)))
|
||||
(T (PROG (REG LFT RGHT BTTM TP)
|
||||
(SETQ REG (ARG REGIONS 1))
|
||||
@@ -1062,10 +1058,10 @@
|
||||
((AND (IGEQ RGHT LFT)
|
||||
(IGEQ TP BTTM))
|
||||
(create REGION
|
||||
LEFT _ LFT
|
||||
BOTTOM _ BTTM
|
||||
WIDTH _ (ADD1 (IDIFFERENCE RGHT LFT))
|
||||
HEIGHT _ (ADD1 (IDIFFERENCE TP BTTM])
|
||||
LEFT ← LFT
|
||||
BOTTOM ← BTTM
|
||||
WIDTH ← (ADD1 (IDIFFERENCE RGHT LFT))
|
||||
HEIGHT ← (ADD1 (IDIFFERENCE TP BTTM])
|
||||
|
||||
(UNIONREGIONS
|
||||
[LAMBDA REGIONS (* rrb "30-Dec-85 17:07")
|
||||
@@ -1099,10 +1095,10 @@
|
||||
TP)
|
||||
(SETQ TP (fetch (REGION PTOP) of REG]
|
||||
(RETURN (create REGION
|
||||
LEFT _ LFT
|
||||
BOTTOM _ BTTM
|
||||
WIDTH _ (DIFFERENCE RGHT LFT)
|
||||
HEIGHT _ (DIFFERENCE TP BTTM])
|
||||
LEFT ← LFT
|
||||
BOTTOM ← BTTM
|
||||
WIDTH ← (DIFFERENCE RGHT LFT)
|
||||
HEIGHT ← (DIFFERENCE TP BTTM])
|
||||
|
||||
(REGIONSINTERSECTP
|
||||
[LAMBDA (REGION1 REGION2) (* rrb "16-AUG-81 08:29")
|
||||
@@ -1233,11 +1229,11 @@
|
||||
(* ;; "returns the region taken up by STR if it were printed at the current position of STREAM")
|
||||
|
||||
(create REGION
|
||||
LEFT _ (DSPXPOSITION NIL STREAM)
|
||||
BOTTOM _ (IDIFFERENCE (DSPYPOSITION NIL STREAM)
|
||||
LEFT ← (DSPXPOSITION NIL STREAM)
|
||||
BOTTOM ← (IDIFFERENCE (DSPYPOSITION NIL STREAM)
|
||||
(FONTPROP STREAM 'DESCENT))
|
||||
WIDTH _ (STRINGWIDTH STR STREAM PRIN2FLG RDTBL)
|
||||
HEIGHT _ (FONTPROP STREAM 'HEIGHT])
|
||||
WIDTH ← (STRINGWIDTH STR STREAM PRIN2FLG RDTBL)
|
||||
HEIGHT ← (FONTPROP STREAM 'HEIGHT])
|
||||
)
|
||||
|
||||
|
||||
@@ -1443,8 +1439,8 @@
|
||||
(SETQ BRUSHARRAY (ARRAY 16 'POINTER NIL 1))
|
||||
(for X from 1 to 16 do (SETA BRUSHARRAY X (APPLY* BRUSHFN X]
|
||||
(push \BrushAList (CONS BRUSHNAME (create BRUSHITEM
|
||||
BRUSHARRAY _ BRUSHARRAY
|
||||
CREATEMETHOD _ BRUSHFN)))
|
||||
BRUSHARRAY ← BRUSHARRAY
|
||||
CREATEMETHOD ← BRUSHFN)))
|
||||
(push KNOWN.BRUSHES BRUSHNAME])
|
||||
)
|
||||
|
||||
@@ -1506,12 +1502,12 @@
|
||||
CBottom)
|
||||
(SETQ BITMAP (ffetch DDDestination of DD))
|
||||
(SETQ BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP))
|
||||
(SETQ HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
(SETQ HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
(SETQ ClippingTop (ffetch DDClippingTop of DD))
|
||||
(SETQ ClippingBottom (ffetch DDClippingBottom of DD))
|
||||
(SETQ BM (GetNewFragment BIGBMLIST))
|
||||
(while (AND BM (IGREATERP HEIGHT ClippingBottom))
|
||||
do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM)))
|
||||
do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM)))
|
||||
[SETQ CTop (COND
|
||||
((IGREATERP ClippingTop HEIGHT)
|
||||
(IDIFFERENCE HEIGHT BOTTOM))
|
||||
@@ -1576,7 +1572,7 @@
|
||||
(SUB1 (ffetch DDClippingTop of DD))
|
||||
DISPLAYSTREAM COLOR))
|
||||
(T (PROG ((BIGBMLIST (fetch (BIGBM BIGBMLIST) of BITMAP))
|
||||
(HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
(HEIGHT (BITMAPHEIGHT BITMAP))
|
||||
BOTTOM BM CTop CBottom (ClippingTop (ffetch DDClippingTop of DD))
|
||||
(ClippingBottom (ffetch DDClippingBottom of DD))
|
||||
(YY1 (\DSPTRANSFORMY (OR (FIXP Y1)
|
||||
@@ -1587,7 +1583,7 @@
|
||||
DD)))
|
||||
(SETQ BM (GetNewFragment BIGBMLIST))
|
||||
(while (AND BM (IGREATERP HEIGHT ClippingBottom))
|
||||
do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM)))
|
||||
do (SETQ BOTTOM (IDIFFERENCE HEIGHT (BITMAPHEIGHT BM)))
|
||||
[SETQ CTop (COND
|
||||
((IGREATERP ClippingTop HEIGHT)
|
||||
(IDIFFERENCE HEIGHT BOTTOM))
|
||||
@@ -2038,7 +2034,7 @@
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS .DRAWLINEX. MACRO [(MODE)
|
||||
(bind (NY _ 0) for PT from 1 to PIXELSINX
|
||||
(bind (NY ← 0) for PT from 1 to PIXELSINX
|
||||
do (* ; "main loop")
|
||||
[replace (BITMAPWORD BITS) of FIRSTADDR
|
||||
with (SELECTQ MODE
|
||||
@@ -2068,7 +2064,7 @@
|
||||
(SETQ MASK 32768])
|
||||
|
||||
(PUTPROPS .DRAWLINEY. MACRO [(MODE)
|
||||
(bind (NX _ 0) for PT from 1 to PIXELSINY
|
||||
(bind (NX ← 0) for PT from 1 to PIXELSINY
|
||||
do (* ; "main loop")
|
||||
[replace (BITMAPWORD BITS) of FIRSTADDR
|
||||
with (SELECTQ MODE
|
||||
@@ -2295,9 +2291,9 @@
|
||||
|
||||
(RETURN (for ANGLE from STARTANGLE to (PLUS STARTANGLE ANGLESIZE (QUOTIENT ANGLEINCR 5.0))
|
||||
by ANGLEINCR collect (create POSITION
|
||||
XCOORD _ [FIXR (PLUS CENTERX (TIMES RADIUS
|
||||
XCOORD ← [FIXR (PLUS CENTERX (TIMES RADIUS
|
||||
(COS ANGLE]
|
||||
YCOORD _ (FIXR (PLUS CENTERY (TIMES RADIUS
|
||||
YCOORD ← (FIXR (PLUS CENTERY (TIMES RADIUS
|
||||
(SIN ANGLE])
|
||||
|
||||
(\DRAWELLIPSE.DISPLAY
|
||||
@@ -2609,7 +2605,7 @@
|
||||
((EQ (fetch (BRUSH BRUSHSHAPE) of BRUSH)
|
||||
'ROUND)
|
||||
BRUSH)
|
||||
(T (create BRUSH using BRUSH BRUSHSHAPE _ 'ROUND]
|
||||
(T (create BRUSH using BRUSH BRUSHSHAPE ← 'ROUND]
|
||||
(SETQ COLOR (fetch (BRUSH BRUSHCOLOR) of PTBRUSH))
|
||||
(for PTAIL on POINTS while (CDR PTAIL) do (\DRAWLINE.DISPLAY STREAM (fetch (POSITION XCOORD
|
||||
)
|
||||
@@ -2991,15 +2987,15 @@
|
||||
(ELT DDY I]
|
||||
(SETQ SPLINE
|
||||
(create SPLINE
|
||||
%#KNOTS _ %#KNOTS
|
||||
SPLINEX _ X
|
||||
SPLINEY _ Y
|
||||
SPLINEDX _ DX
|
||||
SPLINEDY _ DY
|
||||
SPLINEDDX _ DDX
|
||||
SPLINEDDY _ DDY
|
||||
SPLINEDDDX _ DDDX
|
||||
SPLINEDDDY _ DDDY))
|
||||
%#KNOTS ← %#KNOTS
|
||||
SPLINEX ← X
|
||||
SPLINEY ← Y
|
||||
SPLINEDX ← DX
|
||||
SPLINEDY ← DY
|
||||
SPLINEDDX ← DDX
|
||||
SPLINEDDY ← DDY
|
||||
SPLINEDDDX ← DDDX
|
||||
SPLINEDDDY ← DDDY))
|
||||
(RETURN SPLINE])
|
||||
|
||||
(\CURVE
|
||||
@@ -3187,7 +3183,7 @@
|
||||
(SETQ POINTSPERSEG 64)
|
||||
(SETQ NPOINTS (UNFOLD NSEGS 64]
|
||||
(SETQ D1 (FQUOTIENT 1.0 NPOINTS)) (* ;
|
||||
"Set up ÿ&Eÿ t, ÿ&Eÿ t**2 and ÿ&Eÿ t**3, for computing the next point.")
|
||||
"Set up Δt, Δt**2 and Δt**3, for computing the next point.")
|
||||
(SETQ D2 (FTIMES D1 D1))
|
||||
(SETQ D3 (FTIMES D2 D1))
|
||||
(SETQ D3X (FTIMES D3 DDDX))
|
||||
@@ -3219,11 +3215,11 @@
|
||||
(SETQ PERSEG (FQUOTIENT 1.0 NSEGS))
|
||||
(LOADPOLY XPOLY X/PRIME/POLY DDDX DDX DX X0)
|
||||
(LOADPOLY YPOLY Y/PRIME/POLY DDDY DDY DY Y0)
|
||||
(bind (TT _ 0.0)
|
||||
(DDDX/PER/SEG _ (FTIMES DDDX PERSEG))
|
||||
(DDDY/PER/SEG _ (FTIMES DDDY PERSEG))
|
||||
[D3XFACTOR _ (FTIMES D3 DDDX (CONSTANT (FQUOTIENT 1.0 6.0]
|
||||
[D3YFACTOR _ (FTIMES D3 DDDY (CONSTANT (FQUOTIENT 1.0 6.0] for I
|
||||
(bind (TT ← 0.0)
|
||||
(DDDX/PER/SEG ← (FTIMES DDDX PERSEG))
|
||||
(DDDY/PER/SEG ← (FTIMES DDDY PERSEG))
|
||||
[D3XFACTOR ← (FTIMES D3 DDDX (CONSTANT (FQUOTIENT 1.0 6.0]
|
||||
[D3YFACTOR ← (FTIMES D3 DDDY (CONSTANT (FQUOTIENT 1.0 6.0] for I
|
||||
from 0 to (SUB1 NSEGS)
|
||||
do
|
||||
(* ;;
|
||||
@@ -4224,9 +4220,9 @@
|
||||
(SETQ Min (FDIFFERENCE (FTIMES L 2)
|
||||
Max))
|
||||
(RETURN (create RGB
|
||||
RED _ (\HLSVALUEFN Min Max H)
|
||||
GREEN _ (\HLSVALUEFN Min Max (IDIFFERENCE H 120))
|
||||
BLUE _ (\HLSVALUEFN Min Max (IDIFFERENCE H 240])
|
||||
RED ← (\HLSVALUEFN Min Max H)
|
||||
GREEN ← (\HLSVALUEFN Min Max (IDIFFERENCE H 120))
|
||||
BLUE ← (\HLSVALUEFN Min Max (IDIFFERENCE H 240])
|
||||
|
||||
(\HLSVALUEFN
|
||||
[LAMBDA (MIN MAX HUE) (* rrb "25-OCT-82 10:47")
|
||||
@@ -4424,40 +4420,40 @@
|
||||
(ADDTOVAR LAMA UNIONREGIONS INTERSECTREGIONS)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (10589 10783 (SCREENREGIONP 10599 . 10781)) (12227 19588 (\BBTCURVEPT 12237 . 19586)) (
|
||||
19589 29405 (CREATETEXTUREFROMBITMAP 19599 . 21529) (PRINTBITMAP 21531 . 22882) (PRINT-BITMAPS-NICELY
|
||||
22884 . 26735) (PRINTCURSOR 26737 . 27770) (\WRITEBITMAP 27772 . 29403)) (29448 31996 (\GETINTEGERPART
|
||||
29458 . 31003) (\CONVERTTOFRACTION 31005 . 31994)) (32133 33005 (CURSORP 32143 . 32362) (CURSORBITMAP
|
||||
32364 . 32410) (CreateCursorBitMap 32412 . 33003)) (37367 46290 (CARET 37377 . 39137) (\CARET.CREATE
|
||||
39139 . 39317) (\CARET.DOWN 39319 . 40671) (\CARET.FLASH? 40673 . 42367) (\CARET.SHOW 42369 . 42938) (
|
||||
CARETRATE 42940 . 43598) (\CARET.FLASH.AGAIN 43600 . 44766) (\CARET.FLASH.MULTIPLE 44768 . 45291) (
|
||||
\CARET.FLASH 45293 . 46288)) (46291 51363 (\MEDW.CARET.SHOW 46301 . 51361)) (51727 53562 (
|
||||
\AREAVISIBLE? 51737 . 52661) (\REGIONOVERLAPAREAP 52663 . 53208) (\AREAINREGIONP 53210 . 53560)) (
|
||||
53611 66087 (CREATEREGION 53621 . 53957) (REGIONP 53959 . 54105) (INTERSECTREGIONS 54107 . 56877) (
|
||||
UNIONREGIONS 56879 . 59030) (REGIONSINTERSECTP 59032 . 59640) (SUBREGIONP 59642 . 60287) (EXTENDREGION
|
||||
60289 . 62446) (EXTENDREGIONBOTTOM 62448 . 63090) (EXTENDREGIONLEFT 63092 . 63711) (EXTENDREGIONRIGHT
|
||||
63713 . 64266) (EXTENDREGIONTOP 64268 . 64809) (INSIDEP 64811 . 65579) (STRINGREGION 65581 . 66085))
|
||||
(66332 71606 (\BRUSHBITMAP 66342 . 68059) (\GETBRUSH 68061 . 68372) (\GETBRUSHBBT 68374 . 70402) (
|
||||
\InitCurveBrushes 70404 . 71470) (\BrushFromWidth 71472 . 71604)) (71607 74674 (\MAKEBRUSH.DIAGONAL
|
||||
71617 . 71897) (\MAKEBRUSH.HORIZONTAL 71899 . 72293) (\MAKEBRUSH.VERTICAL 72295 . 72607) (
|
||||
\MAKEBRUSH.SQUARE 72609 . 72886) (\MAKEBRUSH.ROUND 72888 . 74672)) (74675 75840 (INSTALLBRUSH 74685 .
|
||||
75838)) (76241 87643 (\DRAWLINE.DISPLAY 76251 . 86358) (RELMOVETO 86360 . 86747) (MOVETOUPPERLEFT
|
||||
86749 . 87641)) (87644 111129 (\CLIPANDDRAWLINE 87654 . 94100) (\CLIPANDDRAWLINE1 94102 . 105850) (
|
||||
\CLIPCODE 105852 . 107226) (\LEASTPTAT 107228 . 107826) (\GREATESTPTAT 107828 . 108456) (\DRAWLINE1
|
||||
108458 . 109574) (\DRAWLINE.UFN 109576 . 111127)) (115659 161706 (\DRAWCIRCLE.DISPLAY 115669 . 124482)
|
||||
(\DRAWARC.DISPLAY 124484 . 124774) (\DRAWARC.GENERIC 124776 . 125529) (\COMPUTE.ARC.POINTS 125531 .
|
||||
127796) (\DRAWELLIPSE.DISPLAY 127798 . 143467) (\DRAWCURVE.DISPLAY 143469 . 145758) (
|
||||
\DRAWPOINT.DISPLAY 145760 . 146956) (\DRAWPOLYGON.DISPLAY 146958 . 150486) (\LINEWITHBRUSH 150488 .
|
||||
161704)) (161707 193399 (LOADPOLY 161717 . 162277) (PARAMETRICSPLINE 162279 . 172476) (\CURVE 172478
|
||||
. 178080) (\CURVE2 178082 . 189413) (\CURVEEND 189415 . 189897) (\CURVESLOPE 189899 . 192382) (
|
||||
\CURVESTART 192384 . 192708) (\FDIFS/FROM/DERIVS 192710 . 193397)) (205928 220264 (\FILLCIRCLE.DISPLAY
|
||||
205938 . 216686) (\LINEBLT 216688 . 220262)) (220308 221930 (SCREENBITMAP 220318 . 220795) (BITMAPP
|
||||
220797 . 221031) (BITSPERPIXEL 221033 . 221928)) (222571 223564 (DSPFILL 222581 . 223264) (INVERTW
|
||||
223266 . 223562)) (223565 227208 (\DSPCOLOR.DISPLAY 223575 . 224872) (\DSPBACKCOLOR.DISPLAY 224874 .
|
||||
226253) (DSPEOLFN 226255 . 227206)) (227641 232295 (DSPCLEOL 227651 . 228527) (DSPRUBOUTCHAR 228529 .
|
||||
228961) (\DSPMOVELR 228963 . 232293)) (232425 233543 (\CURSOR.DEFPRINT 232435 . 233541)) (233955
|
||||
242529 (TEXTUREOFCOLOR 233965 . 235227) (\PRIMARYTEXTURE 235229 . 235811) (\LEVELTEXTURE 235813 .
|
||||
236314) (INSURE.B&W.TEXTURE 236316 . 237711) (INSURE.RGB.COLOR 237713 . 239141) (\LOOKUPCOLORNAME
|
||||
239143 . 239413) (RGBP 239415 . 240180) (HLSP 240182 . 240557) (HLSTORGB 240559 . 241699) (\HLSVALUEFN
|
||||
241701 . 242527)))))
|
||||
(FILEMAP (NIL (10493 10687 (SCREENREGIONP 10503 . 10685)) (12131 19492 (\BBTCURVEPT 12141 . 19490)) (
|
||||
19493 29301 (CREATETEXTUREFROMBITMAP 19503 . 21433) (PRINTBITMAP 21435 . 22782) (PRINT-BITMAPS-NICELY
|
||||
22784 . 26631) (PRINTCURSOR 26633 . 27666) (\WRITEBITMAP 27668 . 29299)) (29344 31892 (\GETINTEGERPART
|
||||
29354 . 30899) (\CONVERTTOFRACTION 30901 . 31890)) (32029 32901 (CURSORP 32039 . 32258) (CURSORBITMAP
|
||||
32260 . 32306) (CreateCursorBitMap 32308 . 32899)) (37263 46194 (CARET 37273 . 39037) (\CARET.CREATE
|
||||
39039 . 39219) (\CARET.DOWN 39221 . 40573) (\CARET.FLASH? 40575 . 42269) (\CARET.SHOW 42271 . 42840) (
|
||||
CARETRATE 42842 . 43500) (\CARET.FLASH.AGAIN 43502 . 44670) (\CARET.FLASH.MULTIPLE 44672 . 45195) (
|
||||
\CARET.FLASH 45197 . 46192)) (46195 51267 (\MEDW.CARET.SHOW 46205 . 51265)) (51631 53466 (
|
||||
\AREAVISIBLE? 51641 . 52565) (\REGIONOVERLAPAREAP 52567 . 53112) (\AREAINREGIONP 53114 . 53464)) (
|
||||
53515 66031 (CREATEREGION 53525 . 53869) (REGIONP 53871 . 54017) (INTERSECTREGIONS 54019 . 56805) (
|
||||
UNIONREGIONS 56807 . 58966) (REGIONSINTERSECTP 58968 . 59576) (SUBREGIONP 59578 . 60223) (EXTENDREGION
|
||||
60225 . 62382) (EXTENDREGIONBOTTOM 62384 . 63026) (EXTENDREGIONLEFT 63028 . 63647) (EXTENDREGIONRIGHT
|
||||
63649 . 64202) (EXTENDREGIONTOP 64204 . 64745) (INSIDEP 64747 . 65515) (STRINGREGION 65517 . 66029))
|
||||
(66276 71550 (\BRUSHBITMAP 66286 . 68003) (\GETBRUSH 68005 . 68316) (\GETBRUSHBBT 68318 . 70346) (
|
||||
\InitCurveBrushes 70348 . 71414) (\BrushFromWidth 71416 . 71548)) (71551 74618 (\MAKEBRUSH.DIAGONAL
|
||||
71561 . 71841) (\MAKEBRUSH.HORIZONTAL 71843 . 72237) (\MAKEBRUSH.VERTICAL 72239 . 72551) (
|
||||
\MAKEBRUSH.SQUARE 72553 . 72830) (\MAKEBRUSH.ROUND 72832 . 74616)) (74619 75788 (INSTALLBRUSH 74629 .
|
||||
75786)) (76189 87575 (\DRAWLINE.DISPLAY 76199 . 86290) (RELMOVETO 86292 . 86679) (MOVETOUPPERLEFT
|
||||
86681 . 87573)) (87576 111061 (\CLIPANDDRAWLINE 87586 . 94032) (\CLIPANDDRAWLINE1 94034 . 105782) (
|
||||
\CLIPCODE 105784 . 107158) (\LEASTPTAT 107160 . 107758) (\GREATESTPTAT 107760 . 108388) (\DRAWLINE1
|
||||
108390 . 109506) (\DRAWLINE.UFN 109508 . 111059)) (115595 161648 (\DRAWCIRCLE.DISPLAY 115605 . 124418)
|
||||
(\DRAWARC.DISPLAY 124420 . 124710) (\DRAWARC.GENERIC 124712 . 125465) (\COMPUTE.ARC.POINTS 125467 .
|
||||
127736) (\DRAWELLIPSE.DISPLAY 127738 . 143407) (\DRAWCURVE.DISPLAY 143409 . 145698) (
|
||||
\DRAWPOINT.DISPLAY 145700 . 146896) (\DRAWPOLYGON.DISPLAY 146898 . 150428) (\LINEWITHBRUSH 150430 .
|
||||
161646)) (161649 193360 (LOADPOLY 161659 . 162219) (PARAMETRICSPLINE 162221 . 172436) (\CURVE 172438
|
||||
. 178040) (\CURVE2 178042 . 189374) (\CURVEEND 189376 . 189858) (\CURVESLOPE 189860 . 192343) (
|
||||
\CURVESTART 192345 . 192669) (\FDIFS/FROM/DERIVS 192671 . 193358)) (205889 220225 (\FILLCIRCLE.DISPLAY
|
||||
205899 . 216647) (\LINEBLT 216649 . 220223)) (220269 221891 (SCREENBITMAP 220279 . 220756) (BITMAPP
|
||||
220758 . 220992) (BITSPERPIXEL 220994 . 221889)) (222532 223525 (DSPFILL 222542 . 223225) (INVERTW
|
||||
223227 . 223523)) (223526 227169 (\DSPCOLOR.DISPLAY 223536 . 224833) (\DSPBACKCOLOR.DISPLAY 224835 .
|
||||
226214) (DSPEOLFN 226216 . 227167)) (227602 232256 (DSPCLEOL 227612 . 228488) (DSPRUBOUTCHAR 228490 .
|
||||
228922) (\DSPMOVELR 228924 . 232254)) (232386 233504 (\CURSOR.DEFPRINT 232396 . 233502)) (233916
|
||||
242496 (TEXTUREOFCOLOR 233926 . 235188) (\PRIMARYTEXTURE 235190 . 235772) (\LEVELTEXTURE 235774 .
|
||||
236275) (INSURE.B&W.TEXTURE 236277 . 237672) (INSURE.RGB.COLOR 237674 . 239102) (\LOOKUPCOLORNAME
|
||||
239104 . 239374) (RGBP 239376 . 240141) (HLSP 240143 . 240518) (HLSTORGB 240520 . 241666) (\HLSVALUEFN
|
||||
241668 . 242494)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
548
sources/FONT
548
sources/FONT
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Reference in New Issue
Block a user