(FILECREATED " 9-SEP-83 16:48:40" ("compiled on " {PHYLUM}HISTOGRAM.;3) " 8-SEP-83 19:22:13" tcompl'd in {PHYLUM}FUGUE>DEMO.SYSOUT dated " 9-SEP-83 14:01:30") (FILECREATED "12-AUG-83 23:01:29" {PHYLUM}LISP>HIST.;6 14768 changes to: (VARS HISTCOMS) (FNS BAR.BITMAP CREATE.DATA.FROM.HISTOGRAM DISPLAY.HISTOGRAM GET.APPROX.FOR.GRID GET.HISTOGRAM.BITMAP.HEIGHT GET.NUMBER.FROM.HISTOGRAM GET/MAKE.BITMAP HEIGHT.OF.LABEL HISTOGRAM HISTOGRAM.REPAINTFN HISTOGRAM.RESHAPEFN HISTOGRAM.WINDOW.HEIGHT HISTOGRAM.WINDOW.WIDTH HOW.MANY.DIVISIONS MAKE.BITMAP.OF.STRING MAKE.HISTOGRAM.BITMAP MAX.HEIGHT MAX.LABEL.WIDTH MAX.VALUE MAX.VALUE.WIDTH PRINT.SCALE SHOW.HISTOGRAM WIDTH.OF.LABEL) previous date: "12-AUG-83 20:46:01" {PHYLUM}LISP>HIST.;8) BAR.BITMAP D1 (P 0 BITMAP I 1 SCALE I 0 ITEM) 3@A@k XhddHhdHHggn H(57Q BITBLT 17Q BITMAPCREATE) (50Q REPLACE 45Q TEXTURE 40Q BITMAP 32Q BITMAP) NIL CREATE.DATA.FROM.HISTOGRAM D1 (L (0 HISTOGRAM)) !@@d[KIHhZH&JNIL NIL NIL DISPLAY.HISTOGRAM D1 (P 11Q HISTOGRAM.BITMAP P 10Q HISTOGRAM.FONT P 7 HISTOGRAM P 6 SCALING.FACTOR P 5 BAR.TAB P 4 VALUE.TAB P 3 LABEL.TAB P 2 WINDOW.HEIGHT P 1 WINDOW.WIDTH P 0 HISTOGRAM.WINDOW I 1 FONT I 0 WINDOW)  @XA gl g _Hg _Hg YHg ZO [dO lOO \dO lOO ]IMO O ^OH gH Hgg Hgg Hgg HOKLMNO _HgO HgHg O Hjddd H(315Q HISTOGRAM.REPAINTFN 312Q CREATEREGION 302Q PUTWINDOWPROP 267Q GETWINDOWPROP 254Q PUTWINDOWPROP 241Q MAKE.HISTOGRAM.BITMAP 224Q PUTWINDOWPROP 212Q PUTWINDOWPROP 200Q PUTWINDOWPROP 166Q DSPSCROLL 157Q DSPFONT 147Q MAX.VALUE 140Q FONTHEIGHT 126Q MAX.VALUE.WIDTH 114Q FONTHEIGHT 103Q MAX.LABEL.WIDTH 71Q FONTHEIGHT 62Q FONTHEIGHT 54Q GETWINDOWPROP 44Q GETWINDOWPROP 33Q GETWINDOWPROP 22Q FONTCREATE) (274Q BITMAP 264Q HEIGHT 260Q HISTOGRAM.POSITION 247Q HISTOGRAM.BITMAP 221Q SCROLLBYREPAINTFN 216Q SCROLLFN 207Q HISTOGRAM.RESHAPEFN 204Q RESHAPEFN 175Q HISTOGRAM.REPAINTFN 172Q REPAINTFN 162Q ON 51Q HEIGHT 41Q WIDTH 30Q HISTOGRAM 17Q STANDARD 12Q HELVETICA) NIL GET.APPROX.FOR.GRID D1 (P 1 MAX P 0 NUMBER I 1 DIVS I 0 HIST F 2 FACTOR) 7 @ X@ YHkkoHHoooHHoooHHoooHHoooHHoooHHoooHHoo{oHHoogoHHooSoHHoo?oHHoo+oHHoooHHool cdl I l j (463Q EXPT 455Q LOG 450Q LOG 13Q MAX.VALUE 6 GET.NUMBER.FROM.HISTOGRAM) NIL (434Q 9.0 426Q 9.0 416Q 9.0 410Q 8.0 402Q 8.0 372Q 8.0 364Q 7.0 356Q 7.0 346Q 7.0 340Q 6.0 332Q 6.0 322Q 6.0 314Q 5.0 306Q 5.0 276Q 5.0 270Q 4.0 262Q 4.0 252Q 4.0 244Q 3.0 236Q 3.0 226Q 3.0 217Q 2.0 211Q 2.0 201Q 2.0 172Q 1.5 164Q 1.5 154Q 1.5 145Q 1.4 137Q 1.4 127Q 1.4 120Q 1.3 112Q 1.3 102Q 1.3 73Q 1.2 65Q 1.2 55Q 1.2 46Q 1.1 40Q 1.1 30Q 1.1) GET.HISTOGRAM.BITMAP.HEIGHT D1 (P 2 ITEM I 1 FONT I 0 HISTOGRAM) &A l@jHIIJ lعHX(32Q HEIGHT.OF.LABEL 3 FONTHEIGHT) NIL NIL GET.NUMBER.FROM.HISTOGRAM D1 (P 0 NUMBER I 0 HISTOGRAM) /@ XdjjjHo Hl H l j (53Q EXPT 45Q LOG 40Q LOG 30Q ERROR 6 MAX.VALUE) NIL (25Q "Bar-Chart of Negative value?") GET/MAKE.BITMAP D1 (I 1 FONT I 0 THING) @d`A (14Q MAKE.BITMAP.OF.STRING) (5 BITMAPTYPE#) NIL HEIGHT.OF.LABEL D1 (I 1 FONT I 0 ITEM) @`@lA (26Q FONTHEIGHT) (14Q BITMAP 5 BITMAPTYPE#) NIL HISTOGRAM D1 (P 3 ITEM I 1 FONT I 0 NAME/VALUE-LIST) *@@ d[KA lhIHhZH&J(17Q FONTHEIGHT) NIL NIL HISTOGRAM.REPAINTFN D1 (I 1 REGION I 0 WINDOW) @g jd@j@g hdgg (35Q BITBLT 21Q GETWINDOWPROP 6 GETWINDOWPROP) (31Q REPLACE 26Q INPUT 16Q HISTOGRAM.POSITION 3 HISTOGRAM.BITMAP) NIL HISTOGRAM.RESHAPEFN D1 (I 0 WINDOW) @g @h@ @g (31Q SHOW.HISTOGRAM 26Q GETWINDOWPROP 17Q DSPFONT 11Q CREATE.DATA.FROM.HISTOGRAM 6 GETWINDOWPROP) (23Q TITLE 3 HISTOGRAM) NIL HISTOGRAM.WINDOW.HEIGHT D1 (I 1 FONT I 0 HISTOGRAM) @ nn@ (20Q GET.HISTOGRAM.BITMAP.HEIGHT 3 GET.HISTOGRAM.BITMAP.HEIGHT) NIL NIL HISTOGRAM.WINDOW.WIDTH D1 (I 1 FONT I 0 HISTOGRAM) CA l@A @A @ lnnA l@A @A @ lj(70Q MAX.VALUE 64Q MAX.VALUE.WIDTH 57Q MAX.LABEL.WIDTH 47Q FONTHEIGHT 24Q MAX.VALUE 20Q MAX.VALUE.WIDTH 13Q MAX.LABEL.WIDTH 3 FONTHEIGHT) NIL NIL HOW.MANY.DIVISIONS D1 (P 0 NUMBER I 0 HISTOGRAM) @ Xddjjkl oHHol oHHoloHHol oHHoloHHoloHHoloHHooHHoloHHoloHHoxoHHooHHooHHo%l (6 GET.NUMBER.FROM.HISTOGRAM) NIL (352Q 9.0 342Q 9.0 333Q 8.0 322Q 8.0 313Q 7.0 302Q 7.0 271Q 6.0 260Q 6.0 247Q 5.0 237Q 5.0 226Q 4.0 216Q 4.0 207Q 3.0 176Q 3.0 165Q 2.0 155Q 2.0 144Q 1.5 134Q 1.5 123Q 1.4 113Q 1.4 102Q 1.3 72Q 1.3 61Q 1.2 51Q 1.2 40Q 1.1 30Q 1.1) MAKE.BITMAP.OF.STRING D1 (P 1 DSP P 0 BITMAP I 1 FONT I 0 STRING) 9 @A A XYgI AI HI @jd@A A I H(65Q CENTERPRINTINAREA 60Q FONTHEIGHT 54Q STRINGWIDTH 44Q DSPDESTINATION 37Q DSPFONT 32Q DSPOPERATION 22Q DSPCREATE 16Q BITMAPCREATE 13Q FONTHEIGHT 7 STRINGWIDTH) (26Q PAINT) NIL MAKE.HISTOGRAM.BITMAP D1 (P 6 ITEM.BAR.BITMAP P 5 ITEM.VALUE.BITMAP P 4 ITEM.LABEL.BITMAP P 3 MIDDLE.Y P 2 ITEM P 1 Y P 0 BITMAP I 6 HISTOGRAM I 5 SCALE I 4 TAB3 I 3 TAB2 I 2 TAB1 I 1 FONT I 0 WINDOW)  @g FA k XdDEFA A lYFd@IJA lԻJA JA JE KLlչLhdHBILLgg KMlչMhdHCIMMgg KNlչNhdHDINNgg KJA llYHH(321Q MAX.HEIGHT 312Q BITBLT 241Q BITBLT 170Q BITBLT 117Q BAR.BITMAP 111Q GET/MAKE.BITMAP 101Q GET/MAKE.BITMAP 66Q MAX.HEIGHT 40Q FONTHEIGHT 34Q PRINT.SCALE 22Q BITMAPCREATE 16Q GET.HISTOGRAM.BITMAP.HEIGHT 11Q GETWINDOWPROP) (306Q REPLACE 303Q INPUT 276Q BITMAP 270Q BITMAP 247Q BITMAP 235Q REPLACE 232Q INPUT 225Q BITMAP 217Q BITMAP 176Q BITMAP 164Q REPLACE 161Q INPUT 154Q BITMAP 146Q BITMAP 125Q BITMAP 6 WIDTH) NIL MAX.HEIGHT D1 (I 1 FONT I 0 ITEM) @A A (13Q MAX 10Q FONTHEIGHT 4 HEIGHT.OF.LABEL) NIL NIL MAX.LABEL.WIDTH D1 (P 3 ITEM P 0 LABEL-ITEM I 1 FONT I 0 HISTOGRAM) *@AI JXd [A LMLMKIY(30Q WIDTH.OF.LABEL 21Q WIDTH.OF.LABEL) NIL NIL MAX.VALUE D1 (L (0 HISTOGRAM)) "@AHIZKLKLJHXNIL NIL NIL MAX.VALUE.WIDTH D1 (P 2 ITEM I 1 FONT I 0 HISTOGRAM) )@AH I ZA KLKLJHX(27Q STRINGWIDTH 16Q STRINGWIDTH) NIL NIL PRINT.SCALE D1 (P 4 X P 2 DIVS P 1 MAX P 0 Y I 4 FONT I 3 HIST I 2 SCALE I 1 BARTAB I 0 BITMAP) 0@D lXhdd@AHlllggn C Zdj+BCJ ֹhdd@AHIlggn JkLKhdd@ALIJHlllggn Lk\(177Q BITBLT 123Q BITBLT 73Q GET.APPROX.FOR.GRID 57Q HOW.MANY.DIVISIONS 53Q BITBLT 14Q FONTHEIGHT) (170Q REPLACE 165Q TEXTURE 114Q REPLACE 111Q TEXTURE 44Q REPLACE 41Q TEXTURE 6 BITMAP) NIL SHOW.HISTOGRAM D1 (P 2 HISTOGRAM.FONT P 1 HISTOGRAM.WINDOW P 0 HIST I 3 TITLE I 2 FONT I 1 WINDOW I 0 NAME/VALUE-LIST) B0B gl g Z@J XAdJ HJ Co YgH IJ I(76Q DISPLAY.HISTOGRAM 71Q PUTWINDOWPROP 61Q CREATEW 47Q GETBOXREGION 44Q HISTOGRAM.WINDOW.HEIGHT 37Q HISTOGRAM.WINDOW.WIDTH 26Q HISTOGRAM 20Q FONTCREATE) (65Q HISTOGRAM 15Q STANDARD 10Q HELVETICA) (56Q "Histogram of Selected Data") WIDTH.OF.LABEL D1 (I 1 FONT I 0 ITEM) @d`A (24Q STRINGWIDTH) (14Q BITMAP 6 BITMAPTYPE#) NIL (PRETTYCOMPRINT HISTCOMS) (RPAQQ HISTCOMS ((FNS BAR.BITMAP CREATE.DATA.FROM.HISTOGRAM DISPLAY.HISTOGRAM GET.APPROX.FOR.GRID GET.HISTOGRAM.BITMAP.HEIGHT GET.NUMBER.FROM.HISTOGRAM GET/MAKE.BITMAP HEIGHT.OF.LABEL HISTOGRAM HISTOGRAM.REPAINTFN HISTOGRAM.RESHAPEFN HISTOGRAM.WINDOW.HEIGHT HISTOGRAM.WINDOW.WIDTH HOW.MANY.DIVISIONS MAKE.BITMAP.OF.STRING MAKE.HISTOGRAM.BITMAP MAX.HEIGHT MAX.LABEL.WIDTH MAX.VALUE MAX.VALUE.WIDTH PRINT.SCALE SHOW.HISTOGRAM WIDTH.OF.LABEL))) (PUTPROPS HIST COPYRIGHT (NONE)) NIL