home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / greydm16_z / G16PROG.OPL next >
Text File  |  1994-05-07  |  792b  |  57 lines

  1. REM This program just draws grey boxes all over the screen
  2. REM 16 shades of grey with dithering!
  3.  
  4. PROC g16prog:
  5.     GLOBAL id%(8)
  6.     local x%,y%,w%,h%,g%,i%,for%
  7.  
  8.     init:
  9.     id%(6)=gCREATE(0,0,480,4,0,1)
  10.     gupdate off
  11.     i%=1
  12.  
  13.     id%(3)=gCREATE(0,0,480,160,1,1)
  14.  
  15.     do 
  16.         x%=rnd*400
  17.         y%=rnd*140
  18.         w%=rnd*100+10
  19.         h%=rnd*100+10
  20.         g%=rnd*17
  21.         gUSE id%(6)
  22.         ggrey 2
  23.         gCOPY id%(1),0,g%*4,480,4,3
  24.         gUSE id%(3)
  25.         ggrey 2
  26.         gAT x%+4,y%+4
  27.         gFILL w%,h%,0
  28.         gAT x%,y%
  29.         gPATT id%(6),w%,h%,3
  30.         gBOX w%,h%
  31.  
  32.         IF KEY
  33.             STOP
  34.         ENDIF
  35.  
  36.     until 0
  37. ENDP
  38.  
  39. PROC init:
  40.     LOCAL yf%,cnt%
  41.  
  42.     id%(6)=gLOADBIT("\pic\grey.pic")
  43.     id%(1)=gCREATE(0,0,480,68,0,1)
  44.  
  45.     gGREY 1
  46.     gAT 0,0
  47.     gFILL 480,36,0
  48.     gGREY 0
  49.  
  50.     gPATT id%(6),480,32,3
  51.     gGREY 1
  52.     gAT 0,32
  53.     gPATT id%(6),480,32,3
  54.  
  55. ENDP
  56.  
  57.