(FILECREATED "26-Jul-85 13:50:10" ("compiled on " {DSK}UTILITIES>THERMOMETER.;5) "23-Jul-85 01:45:24" tcompl'd in "INTERLISP-D 23-Jul-85 ..." dated "23-Jul-85 01:58:14") (FILECREATED "26-Jul-85 13:42:17" {DSK}UTILITIES>THERMOMETER.;5 5205 changes to: (FNS CREATE-THERMOMETER UPDATE-THERMOMETER) (VARS THERMOMETERCOMS THERMOMETER-TEXTURE-BITMAP) previous date: "24-Jul-85 17:04:43" {DSK}UTILITIES>THERMOMETER.;3) CREATE-THERMOMETER D1 (P 6 X P 4 X-OFFSET P 3 N-DEVISIONS P 2 WINDOW P 1 FILING-POSITION P 0 THERMOMETER-LENGTH I 3 TITLE I 2 REGION-OR-POSITION I 1 MIN? I 0 MAX F 10Q WINDOW-REGION) zPAjb@jbA@dAbb@ ` l\B Bl(ًln@ B B:B BBLdlld Hl( Ldlld Hl(hddo cdCo Z`J Wll l YHll @A@Aفl [IkIkJ ljhdJ jHlhdJ mjhdJ jHl hdJ JgH Jg@ JgA JgI @AO!OjNOO BjO@NN@5IN ` lNA@AHl J NJ N@AK_ԾJ J(566Q RESET-THERMOMETER 544Q PRIN1 536Q MOVETO 512Q STRINGWIDTH 504Q MKSTRING 457Q \FZEROP 426Q PUTWINDOWPROP 416Q PUTWINDOWPROP 406Q PUTWINDOWPROP 376Q PUTWINDOWPROP 366Q RELDRAWTO 357Q MINUS 347Q RELDRAWTO 335Q RELDRAWTO 321Q RELDRAWTO 307Q MOVETO 272Q MIN 227Q DSPFONT 217Q CREATEW 202Q GETBOXREGION 163Q MAX 146Q CREATEREGION 137Q MAX 116Q POSITIONP 106Q REGIONP 101Q MAX 76Q MIN 53Q REGIONP 43Q STRINGWIDTH 35Q MKSTRING) (507Q BOLDFONT 422Q TH.POSITION 412Q TH.MIN 402Q TH.MAX 372Q TH.LENGTH 223Q BOLDFONT 40Q BOLDFONT) ( 214Q "THERMOMETER" 176Q "MARK LOCATION OF THERMOMETER WINDOW.") RESET-THERMOMETER D1 (I 0 TH-WINDOW) &@g @g l@g jg@ (43Q DSPFILL 33Q CREATEREGION 30Q GETWINDOWUSERPROP 16Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (37Q REPLACE 25Q TH.LENGTH 13Q TH.POSITION 3 TH.POSITION) () UPDATE-THERMOMETER D1 (I 2 SHADE I 1 TH-WINDOW I 0 VALUE F 0 THERMOMETER-TEXTURE) SAdO JBPbBAg Ag l@Ag Ag Ag Ag j BgA (120Q DSPFILL 110Q CREATEREGION 102Q GETWINDOWUSERPROP 71Q GETWINDOWUSERPROP 62Q GETWINDOWUSERPROP 52Q GETWINDOWUSERPROP 37Q GETWINDOWUSERPROP 27Q GETWINDOWUSERPROP 6 WINDOWP) (114Q REPLACE 77Q TH.LENGTH 66Q TH.MIN 57Q TH.MAX 47Q TH.MIN 34Q TH.POSITION 24Q TH.POSITION) () (PRETTYCOMPRINT THERMOMETERCOMS) (RPAQQ THERMOMETERCOMS ((FNS CREATE-THERMOMETER RESET-THERMOMETER UPDATE-THERMOMETER) (BITMAPS THERMOMETER-TEXTURE-BITMAP) (P (SETQ THERMOMETER-TEXTURE (CREATETEXTUREFROMBITMAP THERMOMETER-TEXTURE-BITMAP))))) (RPAQ THERMOMETER-TEXTURE-BITMAP (READBITMAP)) (4 4 "K@@@" "K@@@" "K@@@" "K@@@") (SETQ THERMOMETER-TEXTURE (CREATETEXTUREFROMBITMAP THERMOMETER-TEXTURE-BITMAP)) (PUTPROPS THERMOMETER COPYRIGHT ("Xerox Corporation" 1985)) NIL