home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 003 / solo_zip / opl / soloicn.opl < prev    next >
Text File  |  1993-01-05  |  740b  |  40 lines
  1. REM Soloimg: Draw an icon bitmap for
  2. REM solo program
  3. REM (c) 1993 Steve Hawtin
  4.  
  5. PROC solodraw:
  6.     LOCAL dr%
  7.     REM Create a bitmap
  8.     dr% = gCREATE(0,0,24,24,1)
  9.     gUSE dr%
  10.  
  11.     drawFig:(0,&00540,&00AC0,&01520,&02A20)
  12.     drawFig:(1,&05410,&0AA10,&15148,&2A1E8)
  13.     drawFig:(2,&151E4,&153E4,&0ABE2,&0A9F2)
  14.     drawFig:(3,&054F1,&05471,&02A32,&02A04)
  15.     drawFig:(4,&01508,&01510,&00AA0,&00AC0)
  16.     gSAVEBIT "SOLO"
  17.     GET
  18. ENDP
  19.  
  20. PROC drawFig:(num%,n1&,n2&,n3&,n4&)
  21.     drawLine:(4*num%+0,n1&)
  22.     drawLine:(4*num%+1,n2&)
  23.     drawLine:(4*num%+2,n3&)
  24.     drawLine:(4*num%+3,n4&)
  25. ENDP
  26.  
  27. PROC drawLine:(l%,val&)
  28.     LOCAL n%,m&
  29.     n% = 0
  30.     m& = 1
  31.     DO
  32.         IF (val& AND m&)
  33.             gAT l%+2,n%+2
  34.             gLINEBY 0,0
  35.         ENDIF
  36.         n% = n%+1
  37.         m& = m&*2
  38.     UNTIL n%>=20
  39. ENDP
  40.