IMAGEIO: Separate construction of :DISPLAY external format

Defaults for 4/8/24 bit display FDEV's

sources/IMAGEIO

@@ -1,11 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-
(FILECREATED " 2-Aug-2021 19:41:35" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;4
 79616  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "25-Sep-2021 20:58:07" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;4
 79783  
 
-      changes to%:  (FNS \DISPLAYINIT)
+      changes to%:  (VARS IMAGEIOCOMS)
+                    (FNS \DISPLAYINIT \4DISPLAYINIT \8DISPLAYINIT \24DISPLAYINIT)
 
-      previous date%: "28-Jun-99 16:33:59" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1)
+      previous date%: " 2-Aug-2021 19:41:35" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;2)
 
 
 (* ; "
@@ -27,7 +28,7 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
         (FNS \DRAWPOINT.GENERIC \DRAWPOLYGON.GENERIC \DRAWCIRCLE.GENERIC \DRAWELLIPSE.GENERIC)
         (FNS \IMAGEIOINIT \NOIMAGE.DSPFONT \UNIMPIMAGEOP)
         [COMS 
-              (* ;; "stuff to support the checking and defaulting of arguments in the device independent drawing functions.")

+              (* ;; "stuff to support the checking and defaulting of arguments in the device independent drawing functions.")

 
               (FNS INSURE.BRUSH BRUSHP \POSSIBLECOLOR NEGSHADE)
               (DECLARE%: DONTCOPY EVAL@COMPILE (RESOURCES SYSTEMBRUSH))
@@ -42,7 +43,7 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
         (SYSRECORDS IMAGEOPS)
         (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\IMAGEIOINIT)))
         [COMS 
-              (* ;; "Implementation of display stream resident `files.' Done here cause it might matter that the display device get defined early so that its event fn will be evaluated as the last thing before logout")

+              (* ;; "Implementation of display stream resident `files.' Done here cause it might matter that the display device get defined early so that its event fn will be evaluated as the last thing before logout")

 
               (INITVARS (\COLORDISPLAYSTREAMTYPES '(4DISPLAY 8DISPLAY 24DISPLAY))
                      (\DISPLAYSTREAMTYPES (CONS 'DISPLAY \COLORDISPLAYSTREAMTYPES)))
@@ -1170,11 +1171,11 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
         NIL])
 
 (\DISPLAYINIT

-  [LAMBDA NIL
                                           (* ; "Edited  2-Aug-2021 19:41 by rmk:")

+  [LAMBDA NIL
                                           (* ; "Edited 25-Sep-2021 20:57 by rmk:")

 
-    (* ;; "Initializes global variables for the Display device")

+    (* ;; "Initializes global variables for the Display device")

 
-    (* ;; "Display Streams are referred to only by themselves so they do not need directory operations.  Most of the fields in the DisplayDevice are empty to avoid something bad happening.")

+    (* ;; "Display Streams are referred to only by themselves so they do not need directory operations.  Most of the fields in the DisplayDevice are empty to avoid something bad happening.")

 
     (DECLARE
 (GLOBALVARS DisplayFDEV \DISPLAYIMAGEOPS \DisplayDeviceMethods \DisplayDeviceData))
     (SETQ \DisplayDeviceMethods (create
 WSOPS))
@@ -1186,6 +1187,8 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                               BOTTOM _ 0
                               WIDTH _ 1024
                               HEIGHT _ 808)))
+    (MAKE-EXTERNALFORMAT :DISPLAY NIL NIL NIL (FUNCTION \DSPPRINTCHAR)
+           NIL CR.EOLC)
     (SETQ \DISPLAYIMAGEOPS (create
 IMAGEOPS
                                   IMAGETYPE _ 'DISPLAY
                                   IMFONT _ (FUNCTION \DSPFONT.DISPLAY)
@@ -1252,13 +1255,11 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                              WINDOWOPS _ \DisplayDeviceMethods
                              WINDOWDATA _ \DisplayDeviceData
                              DEVICEINFO _ (create
 DISPLAYSTATE)
-                             DEFAULTEXTERNALFORMAT _ (MAKE-EXTERNALFORMAT :DISPLAY NIL NIL NIL
-                                                            (FUNCTION \DSPPRINTCHAR)
-                                                            NIL CR.EOLC)))
+                             DEFAULTEXTERNALFORMAT _ :DISPLAY))
     (\DEFINEDEVICE 'LFDISPLAY DisplayFDEV])
 
 (\4DISPLAYINIT

-  [LAMBDA NIL
                                         (* ; "Edited 22-Apr-94 15:17 by sybalsky")

+  [LAMBDA NIL
                                           (* ; "Edited 25-Sep-2021 18:42 by rmk:")

     (DECLARE
 (GLOBALVARS \4DISPLAYIMAGEOPS \4DISPLAYFDEV))
     (SETQ \4DISPLAYIMAGEOPS (create
 IMAGEOPS
                                    IMAGETYPE _ '4DISPLAY
@@ -1322,11 +1323,12 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                                BLOCKIN _ (FUNCTION \ILLEGAL.DEVICEOP)
                                BLOCKOUT _ (FUNCTION \NONPAGEDBOUTS)
                                DEVICEINFO _ (create
 DISPLAYSTATE)
-                               WINDOWOPS _ NIL))
+                               WINDOWOPS _ NIL
+                               DEFAULTEXTERNALFORMAT _ :DISPLAY))
     (\DEFINEDEVICE NIL \4DISPLAYFDEV])
 
 (\8DISPLAYINIT

-  [LAMBDA NIL
                                         (* ; "Edited 22-Apr-94 15:18 by sybalsky")

+  [LAMBDA NIL
                                           (* ; "Edited 25-Sep-2021 18:43 by rmk:")

     (DECLARE
 (GLOBALVARS \8DISPLAYIMAGEOPS \8DISPLAYFDEV))
     (SETQ \8DISPLAYIMAGEOPS (create
 IMAGEOPS
                                    IMAGETYPE _ '8DISPLAY
@@ -1390,11 +1392,12 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                                BLOCKIN _ (FUNCTION \ILLEGAL.DEVICEOP)
                                BLOCKOUT _ (FUNCTION \NONPAGEDBOUTS)
                                DEVICEINFO _ (create
 DISPLAYSTATE)
-                               WINDOWOPS _ NIL))
+                               WINDOWOPS _ NIL
+                               DEFAULTEXTERNALFORMAT _ :DISPLAY))
     (\DEFINEDEVICE NIL \8DISPLAYFDEV])
 
 (\24DISPLAYINIT

-  [LAMBDA NIL
                                         (* ; "Edited 22-Apr-94 15:18 by sybalsky")

+  [LAMBDA NIL
                                           (* ; "Edited 25-Sep-2021 18:44 by rmk:")

     (DECLARE
 (GLOBALVARS \24DISPLAYIMAGEOPS \24DISPLAYFDEV))
     (SETQ \24DISPLAYIMAGEOPS (create
 IMAGEOPS
                                     IMAGETYPE _ '24DISPLAY
@@ -1458,7 +1461,8 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
                                 BLOCKIN _ (FUNCTION \ILLEGAL.DEVICEOP)
                                 BLOCKOUT _ (FUNCTION \NONPAGEDBOUTS)
                                 DEVICEINFO _ (create
 DISPLAYSTATE)
-                                WINDOWOPS _ NIL))
+                                WINDOWOPS _ NIL
+                                DEFAULTEXTERNALFORMAT _ :DISPLAY))
     (\DEFINEDEVICE NIL \24DISPLAYFDEV])
 
 (\DISPLAYSTREAMTYPEBPP

@@ -1509,24 +1513,24 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
 (PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
 1993 1994 1999 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3353 12110 (IMAGESTREAMP 3363 . 4195) (IMAGESTREAMTYPE 4197 . 4410) (IMAGESTREAMTYPEP 
-4412 . 5047) (OPENIMAGESTREAM 5049 . 10003) (\GOOD.DASHLST 10005 . 12108)) (12145 14442 (
-DRAWDASHEDLINE 12155 . 14440)) (14443 21783 (DSPBACKCOLOR 14453 . 14825) (DSPBOTTOMMARGIN 14827 . 
-15212) (DSPCOLOR 15214 . 15578) (DSPCLIPPINGREGION 15580 . 16285) (DSPRESET 16287 . 16567) (DSPFONT 
-16569 . 16933) (DSPLEFTMARGIN 16935 . 17316) (DSPLINEFEED 17318 . 17618) (DSPOPERATION 17620 . 17997) 
-(DSPRIGHTMARGIN 17999 . 18382) (DSPTOPMARGIN 18384 . 18763) (DSPSCALE 18765 . 19132) (DSPSPACEFACTOR 
-19134 . 19527) (DSPXPOSITION 19529 . 19834) (DSPYPOSITION 19836 . 20141) (DSPROTATE 20143 . 20438) (
-DSPPUSHSTATE 20440 . 20686) (DSPPOPSTATE 20688 . 20931) (DSPDEFAULTSTATE 20933 . 21185) (DSPSCALE2 
-21187 . 21478) (DSPTRANSLATE 21480 . 21781)) (21784 30585 (DSPNEWPAGE 21794 . 22486) (DRAWBETWEEN 
-22488 . 23190) (DRAWCIRCLE 23192 . 23688) (DRAWARC 23690 . 24207) (DRAWCURVE 24209 . 24886) (
-DRAWELLIPSE 24888 . 25674) (DRAWLINE 25676 . 26066) (DRAWPOLYGON 26068 . 26523) (DRAWPOINT 26525 . 
-26944) (FILLPOLYGON 26946 . 27512) (DRAWTO 27514 . 27932) (FILLCIRCLE 27934 . 28157) (MOVETO 28159 . 
-28523) (RELDRAWTO 28525 . 29442) (BITMAPIMAGESIZE 29444 . 29615) (SCALEDBITBLT 29617 . 30583)) (30586 
-37625 (\DRAWPOINT.GENERIC 30596 . 30943) (\DRAWPOLYGON.GENERIC 30945 . 33253) (\DRAWCIRCLE.GENERIC 
-33255 . 34913) (\DRAWELLIPSE.GENERIC 34915 . 37623)) (37626 43012 (\IMAGEIOINIT 37636 . 41769) (
-\NOIMAGE.DSPFONT 41771 . 42846) (\UNIMPIMAGEOP 42848 . 43010)) (43135 46259 (INSURE.BRUSH 43145 . 
-44519) (BRUSHP 44521 . 45311) (\POSSIBLECOLOR 45313 . 45864) (NEGSHADE 45866 . 46257)) (46815 47499 (
-DASHINGP 46825 . 47155) (INSURE.DASHING 47157 . 47497)) (57980 78429 (\DisplayEventFn 57990 . 58500) (
-\DISPLAYINIT 58502 . 64181) (\4DISPLAYINIT 64183 . 68820) (\8DISPLAYINIT 68822 . 73461) (
-\24DISPLAYINIT 73463 . 78170) (\DISPLAYSTREAMTYPEBPP 78172 . 78427)))))
+  (FILEMAP (NIL (3423 12180 (IMAGESTREAMP 3433 . 4265) (IMAGESTREAMTYPE 4267 . 4480) (IMAGESTREAMTYPEP 
+4482 . 5117) (OPENIMAGESTREAM 5119 . 10073) (\GOOD.DASHLST 10075 . 12178)) (12215 14512 (
+DRAWDASHEDLINE 12225 . 14510)) (14513 21853 (DSPBACKCOLOR 14523 . 14895) (DSPBOTTOMMARGIN 14897 . 
+15282) (DSPCOLOR 15284 . 15648) (DSPCLIPPINGREGION 15650 . 16355) (DSPRESET 16357 . 16637) (DSPFONT 
+16639 . 17003) (DSPLEFTMARGIN 17005 . 17386) (DSPLINEFEED 17388 . 17688) (DSPOPERATION 17690 . 18067) 
+(DSPRIGHTMARGIN 18069 . 18452) (DSPTOPMARGIN 18454 . 18833) (DSPSCALE 18835 . 19202) (DSPSPACEFACTOR 
+19204 . 19597) (DSPXPOSITION 19599 . 19904) (DSPYPOSITION 19906 . 20211) (DSPROTATE 20213 . 20508) (
+DSPPUSHSTATE 20510 . 20756) (DSPPOPSTATE 20758 . 21001) (DSPDEFAULTSTATE 21003 . 21255) (DSPSCALE2 
+21257 . 21548) (DSPTRANSLATE 21550 . 21851)) (21854 30655 (DSPNEWPAGE 21864 . 22556) (DRAWBETWEEN 
+22558 . 23260) (DRAWCIRCLE 23262 . 23758) (DRAWARC 23760 . 24277) (DRAWCURVE 24279 . 24956) (
+DRAWELLIPSE 24958 . 25744) (DRAWLINE 25746 . 26136) (DRAWPOLYGON 26138 . 26593) (DRAWPOINT 26595 . 
+27014) (FILLPOLYGON 27016 . 27582) (DRAWTO 27584 . 28002) (FILLCIRCLE 28004 . 28227) (MOVETO 28229 . 
+28593) (RELDRAWTO 28595 . 29512) (BITMAPIMAGESIZE 29514 . 29685) (SCALEDBITBLT 29687 . 30653)) (30656 
+37695 (\DRAWPOINT.GENERIC 30666 . 31013) (\DRAWPOLYGON.GENERIC 31015 . 33323) (\DRAWCIRCLE.GENERIC 
+33325 . 34983) (\DRAWELLIPSE.GENERIC 34985 . 37693)) (37696 43082 (\IMAGEIOINIT 37706 . 41839) (
+\NOIMAGE.DSPFONT 41841 . 42916) (\UNIMPIMAGEOP 42918 . 43080)) (43205 46329 (INSURE.BRUSH 43215 . 
+44589) (BRUSHP 44591 . 45381) (\POSSIBLECOLOR 45383 . 45934) (NEGSHADE 45936 . 46327)) (46885 47569 (
+DASHINGP 46895 . 47225) (INSURE.DASHING 47227 . 47567)) (58050 78596 (\DisplayEventFn 58060 . 58570) (
+\DISPLAYINIT 58572 . 64155) (\4DISPLAYINIT 64157 . 68858) (\8DISPLAYINIT 68860 . 73563) (
+\24DISPLAYINIT 73565 . 78337) (\DISPLAYSTREAMTYPEBPP 78339 . 78594)))))
 STOP