(FILECREATED "12-Jun-87 10:45:21" {PHYLUM}<FOSTER>LISP>GRANITE.;2 1241   

      changes to:  (VARS GRANITECOMS) (FNS MakePseudoRandomBitmap GraniteBG)

      previous date: "26-May-87 11:16:28" {PHYLUM}<FOSTER>LISP>GRANITE.;1)


(* Copyright (c) 1987 by Gregg Foster. All rights reserved.)

(PRETTYCOMPRINT GRANITECOMS)

(RPAQQ GRANITECOMS ((FNS MakePseudoRandomBitmap GraniteBG) (INITVARS (DARK 1) (NORMAL 2) (LIGHT 3))))
(DEFINEQ

(MakePseudoRandomBitmap
(LAMBDA (bm w h r) (* gsf "26-May-87 11:11") (OR bm (SETQ bm (BITMAPCREATE (OR w 100) (OR h 100) 1))) 
(BLTSHADE 43690 bm) (LET ((r (OR r (RAND 1 3)))) (for i from 0 to (SUB1 (IQUOTIENT (OR w 32) 2)) do (
for j from 0 to (SUB1 (IQUOTIENT (OR h 32) 2)) do (if (ZEROP (RAND 0 r)) then (if (EVENP i) then (
BITMAPBIT bm (PLUS i i 1) (PLUS j j 1) 1) else (BITMAPBIT bm (PLUS i i 1) (PLUS j j) 1)))))) bm))

(GraniteBG
(LAMBDA (darknessLevel width height) (* gsf "26-May-87 11:15") (OR darknessLevel (SETQ darknessLevel 2
)) (OR width (SETQ width 100)) (OR height (SETQ height width)) (CHANGEBACKGROUND (
MakePseudoRandomBitmap NIL width height darknessLevel))))
)

(RPAQ? DARK 1)

(RPAQ? NORMAL 2)

(RPAQ? LIGHT 3)
(PUTPROPS GRANITE COPYRIGHT ("Gregg Foster" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (424 1117 (MakePseudoRandomBitmap 434 . 859) (GraniteBG 861 . 1115)))))
STOP