home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / GAMES / SOLO / OPL / SOLOIMG.OPL < prev   
Encoding:
Text File  |  1993-01-05  |  1.3 KB  |  60 lines
  1. REM Soloimg: Draw a bitmap of images 
  2. REM for 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,95,7,1)
  9.     gUSE dr%
  10.  
  11.     REM Spade,Diamond,Club,Heart
  12.     drawFig:( 0,&18,&1E,&7F,&1E,&18)
  13.     drawFig:( 1,&08,&14,&22,&14,&08)
  14.     drawFig:( 2,&1C,&1B,&7F,&1B,&1C)
  15.     drawFig:( 3,&0E,&31,&42,&31,&0E)
  16.     drawFig:( 4,&55,&2A,&55,&2A,&55)
  17.     REM A to Ten
  18.     drawFig:( 5,&00,&1C,&1C,&1C,&00)
  19.     drawFig:( 6,&00,&00,&14,&00,&00)
  20.     drawFig:( 7,&00,&00,&2A,&00,&00)
  21.     drawFig:( 8,&00,&14,&00,&14,&00)
  22.     drawFig:( 9,&00,&22,&08,&22,&00)
  23.     drawFig:(10,&00,&2A,&00,&2A,&00)
  24.     drawFig:(11,&2A,&00,&04,&00,&2A)
  25.     drawFig:(12,&2A,&00,&14,&00,&2A)
  26.     drawFig:(13,&55,&00,&08,&00,&55)
  27.     drawFig:(14,&55,&00,&22,&00,&55)
  28.     REM Jack,Queen,King
  29.     REM drawFig:(15,&18,&0E,&7B,&7F,&7E)
  30.     drawFig:(15,&48,&2A,&1D,&2A,&48)
  31.     REM drawFig:(16,&7E,&48,&4F,&48,&7E)
  32.     drawFig:(16,&20,&3A,&7D,&3A,&20)
  33.     drawFig:(17,&58,&7A,&7F,&7A,&58)
  34.     drawFig:(18,&2A,&55,&2A,&55,&2A)
  35.     gSAVEBIT "SOLOIMG"
  36.     GET
  37. ENDP
  38.  
  39. PROC drawFig:(num%,n1&,n2&,n3&,n4&,n5&)
  40.     drawLine:(5*num%+0,n1&)
  41.     drawLine:(5*num%+1,n2&)
  42.     drawLine:(5*num%+2,n3&)
  43.     drawLine:(5*num%+3,n4&)
  44.     drawLine:(5*num%+4,n5&)
  45. ENDP
  46.  
  47. PROC drawLine:(l%,val&)
  48.     LOCAL n%,m%
  49.     n% = 0
  50.     m% = 1
  51.     DO
  52.         IF (val& AND m%)
  53.             gAT l%,n%
  54.             gLINEBY 0,0
  55.         ENDIF
  56.         n% = n%+1
  57.         m% = m%*2
  58.     UNTIL n%>=7
  59. ENDP
  60.