github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-28 21:08:23 +00:00
Code Issues Projects Releases Wiki Activity

Replace (OPCODES SUBRCALL subrnumber) with (SUBRCALL subrname (#553)

Browse Source 
* Change numeric OPCODES SUBRCALL NN to use the LLSUBRS name

* more opcodes subr# in maikoloadupfns

* even more OPCODES SUBRCALL

* Recover BIGBMAPS definitions dup (but more recent) from LLCOLOR
This commit is contained in:
Larry Masinter
2021-10-27 16:41:37 -07:00
committed by GitHub
parent 5490abb143
commit 9cf54a1687
11 changed files with 337 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

155
library/LLCOLOR
View File

@@ -1,15 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "10-Jul-92 14:57:14" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>LLCOLOR.;6| 137483
changes to%: (VARS LLCOLORCOMS)
(MACROS .DRAW4BPPLINEX. .DRAW8BPPLINEX .DRAW24BPPLINEX .DRAW4BPPLINEY.
.DRAW8BPPLINEY .DRAW24BPPLINEY)
(FILECREATED "26-Oct-2021 10:53:47" {DSK}<home>larry>medley>library>LLCOLOR.;2 137753
previous date%: "21-Aug-91 12:27:17" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>LLCOLOR.;5|)
changes to%: (FNS \COLORDISPLAYBITS \DRAW8BPPCOLORLINE)
previous date%: "10-Jul-92 14:57:14" {DSK}<home>larry>medley>library>LLCOLOR.;1)
(* ; "
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Xerox Corporation. All rights reserved.
Copyright (c) 1982-1992 by Xerox Corporation.
")
(PRETTYCOMPRINT LLCOLORCOMS)
@@ -51,7 +50,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(FNS PSEUDOCOLOR \PSEUDOCOLOR.BITMAP \PSEUDOCOLOR.UFN)
(GLOBALVARS \COLORDISPLAYFDEV \COLORDISPLAYBITS ColorScreenBitMap \4COLORMAP \8COLORMAP)
(P
(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *")
(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *")
(SETFONTDESCRIPTOR 'HELVETICA 10 'MRR 0 'DISPLAY NIL)
(SETQ MENUFONT (FONTCREATE 'HELVETICA 10)))
@@ -290,7 +289,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
ColorScreenBitMap])
(\COLORDISPLAYBITS
[LAMBDA (WIDTH HEIGHT BITSPERPIXEL) (* ; "Edited 31-Oct-89 10:25 by takeshi")
[LAMBDA (WIDTH HEIGHT BITSPERPIXEL) (* ;
 "Edited 26-Oct-2021 10:24 by larry")
(* ;
 "Edited 31-Oct-89 10:25 by takeshi")
(* returns a pointer to the bits
 that the color board needs.)
(DECLARE (GLOBALVARS \COLORDISPLAYBITS))
@@ -300,8 +302,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(OR (\MAIKO.CGSIXP)
(\MAIKO.CGTHREEP)
(\MAIKO.CGFOURP)))
(PROG [(DUMMY (\ALLOCPAGEBLOCK 1))
(ADDROFFSET ((OPCODES SUBRCALL 139 0]
(PROG ((DUMMY (\ALLOCPAGEBLOCK 1))
(ADDROFFSET (SUBRCALL COLOR-BASE)))
(WHILE (NEQ (LOGAND \MAIKO.COLORBUF.ALIGN (IPLUS (\LOLOC DUMMY)
ADDROFFSET))
0) DO (SETQ DUMMY (\ALLOCPAGEBLOCK 1)))
@@ -663,10 +665,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(.DRAW4BPPLINEY. MODE])
(\DRAW8BPPCOLORLINE
[LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR)
(* ; "Edited 19-Mar-91 12:46 by matsuda")
((OPCODES SUBRCALL 143 12)
X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR])
[LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR)
(* ;
 "Edited 26-Oct-2021 10:25 by larry")
(* ;
 "Edited 19-Mar-91 12:46 by matsuda")
(SUBRCALL COLOR-8BPPDRAWLINE X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR
])
(\DRAW24BPPCOLORLINE
[LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR)
@@ -705,7 +710,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
[(MODE)
(PROG (INSIDEBITS OUTSIDEBITS)
(until (IGREATERP X0 XLIMIT)
do (* main loop)
do (* main loop)
(SETQ INSIDEBITS (LOGAND MASK (fetch (BITMAPWORD BITS) of MAPPTR)))
(SETQ OUTSIDEBITS (LOGAND (LOGNOT MASK)
(fetch (BITMAPWORD BITS) of MAPPTR)))
@@ -717,9 +722,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
OUTSIDEBITS))
(PAINT (LOGOR (LOGOR COLORMASK INSIDEBITS)
OUTSIDEBITS))
(PROGN (* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(PROGN (* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(LOGOR COLORMASK OUTSIDEBITS]
[COND
([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY]
@@ -732,7 +737,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
YINC]
[COND
[(ZEROP (SETQ MASK (LRSH MASK 4)))
(* crossed word boundary)
(* crossed word boundary)
[SETQ MAPPTR (\ADDBASE BITMAPBASE (SETQ WORDOFFSET (ADD1 WORDOFFSET]
(SETQ COLORMASK COLORMASKORG)
(SETQ MASK (CONSTANT (\4BITMASK 0]
@@ -744,7 +749,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(COND
((EQ STARTBYTE 1)
(GO 1LP)))
0LP (* main loop)
0LP (* main loop)
(\PUTBASEBYTE MAPPTR 0
(SELECTQ MODE
(ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0)
@@ -753,9 +758,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
)))
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0)))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
[COND
([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY]
@@ -779,9 +784,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
)))
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1)))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
[COND
([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY]
@@ -802,7 +807,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(GO 0LP))))
(PUTPROPS .DRAW24BPPLINEX MACRO ((MODE)
(PROG NIL (* main loop)
(PROG NIL (* main loop)
LP (\PUTBASE24 MAPPTR 0
(SELECTQ MODE
(ERASE (LOGAND COLOR (\GETBASE24 MAPPTR
@@ -812,9 +817,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(PAINT (LOGOR COLOR (\GETBASE24 MAPPTR
0)))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
[COND
([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY]
@@ -838,7 +843,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
[(MODE)
(PROG (INSIDEBITS OUTSIDEBITS)
(until (IGREATERP Y0 YLIMIT)
do (* main loop)
do (* main loop)
(SETQ INSIDEBITS (LOGAND MASK (fetch (BITMAPWORD BITS) of MAPPTR)))
(SETQ OUTSIDEBITS (LOGAND (LOGNOT MASK)
(fetch (BITMAPWORD BITS) of MAPPTR)))
@@ -850,9 +855,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
OUTSIDEBITS))
(PAINT (LOGOR (LOGOR COLORMASK INSIDEBITS)
OUTSIDEBITS))
(PROGN (* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(PROGN (* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(LOGOR COLORMASK OUTSIDEBITS]
[COND
([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX]
@@ -863,7 +868,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(SETQ CDL (IDIFFERENCE CDL DY))
(COND
[(ZEROP (SETQ MASK (LRSH MASK 4)))
(* crossed word boundary)
(* crossed word boundary)
[SETQ MAPPTR (\ADDBASE BITMAPBASE (SETQ WORDOFFSET (ADD1 WORDOFFSET
]
(SETQ COLORMASK COLORMASKORG)
@@ -877,7 +882,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(COND
((EQ STARTBYTE 1)
(GO 1LP)))
0LP (* main loop)
0LP (* main loop)
(\PUTBASEBYTE MAPPTR 0
(SELECTQ MODE
(ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0)
@@ -886,9 +891,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
)))
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0)))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
(COND
((IGREATERP (SETQ Y0 (ADD1 Y0))
@@ -899,8 +904,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
YINC]
(COND
([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX]
(* moved enough in Y to move a point
 in X)
(* moved enough in Y to move a point
 in X)
(COND
((IGREATERP (SETQ X0 (ADD1 X0))
XLIMIT)
@@ -916,9 +921,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
)))
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1)))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
(COND
((IGREATERP (SETQ Y0 (ADD1 Y0))
@@ -929,8 +934,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
YINC]
(COND
([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX]
(* moved enough in Y to move a point
 in X)
(* moved enough in Y to move a point
 in X)
(COND
((IGREATERP (SETQ X0 (ADD1 X0))
XLIMIT)
@@ -947,7 +952,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(COND
((EQ STARTBYTE 1)
(GO 1LP)))
0LP (* main loop)
0LP (* main loop)
(\PUTBASEBYTE MAPPTR 0
(SELECTQ MODE
(ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0
@@ -957,9 +962,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0)
))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
(COND
((IGREATERP (SETQ Y0 (ADD1 Y0))
@@ -970,8 +975,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
YINC]
(COND
([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX]
(* moved enough in Y to move a point
 in X)
(* moved enough in Y to move a point
 in X)
(COND
((IGREATERP (SETQ X0 (ADD1 X0))
XLIMIT)
@@ -988,9 +993,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1)
))
(PROGN
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
(* case is REPLACE.
 Legality of OPERATION has been
 checked by \CLIPANDDRAWLINE1)
COLOR)))
(COND
((IGREATERP (SETQ Y0 (ADD1 Y0))
@@ -1001,8 +1006,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
YINC]
(COND
([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX]
(* moved enough in Y to move a point
 in X)
(* moved enough in Y to move a point
 in X)
(COND
((IGREATERP (SETQ X0 (ADD1 X0))
XLIMIT)
@@ -2211,7 +2216,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
)
(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *")
(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *")
(SETFONTDESCRIPTOR 'HELVETICA 10 'MRR 0 'DISPLAY NIL)
@@ -2228,22 +2233,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b
(PUTPROPS LLCOLOR COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991
1992))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3539 21062 (COLORDISPLAY 3549 . 6952) (COLORMAPBITS 6954 . 7111) (
\CreateColorScreenBitMap 7113 . 8484) (\CREATECOLORDISPLAYFDEV 8486 . 9444) (COLORMAP 9446 . 10860) (
COLORMAPCOPY 10862 . 11382) (SCREENCOLORMAP 11384 . 11578) (SCREENCOLORMAPENTRY 11580 . 11807) (
ROTATECOLORMAP 11809 . 12701) (RGBCOLORMAP 12703 . 14841) (CMYCOLORMAP 14843 . 15333) (GRAYCOLORMAP
15335 . 16293) (COLORSCREENBITMAP 16295 . 16533) (\COLORDISPLAYBITS 16535 . 19180) (COLORSCREEN 19182
. 19310) (SHOWCOLORTESTPATTERN 19312 . 21060)) (21101 21732 (\STARTCOLOR 21111 . 21249) (\STOPCOLOR
21251 . 21387) (\SENDCOLORMAPENTRY 21389 . 21730)) (21733 27692 (COLORMAPCREATE 21743 . 22729) (
COLORLEVEL 22731 . 23712) (COLORNUMBERP 23714 . 25298) (COLORFROMRGB 25300 . 26482) (
INTENSITIESFROMCOLORMAP 26484 . 26869) (SETCOLORINTENSITY 26871 . 27690)) (27693 33530 (\FAST8BIT
27703 . 31402) (\MAP4 31404 . 32283) (\MAP8 32285 . 33528)) (33531 34438 (\GETCOLORBRUSH 33541 . 34436
)) (34439 38686 (\DRAWCOLORLINE1 34449 . 35191) (\DRAW4BPPCOLORLINE 35193 . 36838) (\DRAW8BPPCOLORLINE
36840 . 37160) (\DRAW24BPPCOLORLINE 37162 . 38684)) (62183 120797 (\BWTOCOLORBLT 62193 . 70344) (
\4BITLINEBLT 70346 . 104918) (\8BITLINEBLT 104920 . 113861) (\24BITLINEBLT 113863 . 114646) (
\GETBASE24 114648 . 116106) (\PUTBASE24 116108 . 117716) (COLORTEXTUREFROMCOLOR# 117718 . 120341) (
\BITMAPWORD 120343 . 120795)) (120798 126101 (COLORIZEBITMAP 120808 . 121783) (UNCOLORIZEBITMAP 121785
. 126099)) (126189 129506 (COLORMENU 126199 . 129118) (CURSORCOLOR 129120 . 129504)) (132029 136501 (
PSEUDOCOLOR 132039 . 134952) (\PSEUDOCOLOR.BITMAP 134954 . 135183) (\PSEUDOCOLOR.UFN 135185 . 136499))
(FILEMAP (NIL (3332 21090 (COLORDISPLAY 3342 . 6745) (COLORMAPBITS 6747 . 6904) (
\CreateColorScreenBitMap 6906 . 8277) (\CREATECOLORDISPLAYFDEV 8279 . 9237) (COLORMAP 9239 . 10653) (
COLORMAPCOPY 10655 . 11175) (SCREENCOLORMAP 11177 . 11371) (SCREENCOLORMAPENTRY 11373 . 11600) (
ROTATECOLORMAP 11602 . 12494) (RGBCOLORMAP 12496 . 14634) (CMYCOLORMAP 14636 . 15126) (GRAYCOLORMAP
15128 . 16086) (COLORSCREENBITMAP 16088 . 16326) (\COLORDISPLAYBITS 16328 . 19208) (COLORSCREEN 19210
. 19338) (SHOWCOLORTESTPATTERN 19340 . 21088)) (21129 21760 (\STARTCOLOR 21139 . 21277) (\STOPCOLOR
21279 . 21415) (\SENDCOLORMAPENTRY 21417 . 21758)) (21761 27720 (COLORMAPCREATE 21771 . 22757) (
COLORLEVEL 22759 . 23740) (COLORNUMBERP 23742 . 25326) (COLORFROMRGB 25328 . 26510) (
INTENSITIESFROMCOLORMAP 26512 . 26897) (SETCOLORINTENSITY 26899 . 27718)) (27721 33558 (\FAST8BIT
27731 . 31430) (\MAP4 31432 . 32311) (\MAP8 32313 . 33556)) (33559 34466 (\GETCOLORBRUSH 33569 . 34464
)) (34467 38956 (\DRAWCOLORLINE1 34477 . 35219) (\DRAW4BPPCOLORLINE 35221 . 36866) (\DRAW8BPPCOLORLINE
36868 . 37430) (\DRAW24BPPCOLORLINE 37432 . 38954)) (62453 121067 (\BWTOCOLORBLT 62463 . 70614) (
\4BITLINEBLT 70616 . 105188) (\8BITLINEBLT 105190 . 114131) (\24BITLINEBLT 114133 . 114916) (
\GETBASE24 114918 . 116376) (\PUTBASE24 116378 . 117986) (COLORTEXTUREFROMCOLOR# 117988 . 120611) (
\BITMAPWORD 120613 . 121065)) (121068 126371 (COLORIZEBITMAP 121078 . 122053) (UNCOLORIZEBITMAP 122055
. 126369)) (126459 129776 (COLORMENU 126469 . 129388) (CURSORCOLOR 129390 . 129774)) (132299 136771 (
PSEUDOCOLOR 132309 . 135222) (\PSEUDOCOLOR.BITMAP 135224 . 135453) (\PSEUDOCOLOR.UFN 135455 . 136769))
)))
STOP