Chunky Display

[hackball]

Here a little demo that uses the Chunkylib.

It's not the most efficient way to do this but it will help setting up such a display i hope.

I left the comments in, no harms.

Code:

;test of new chunky commands
;(c)1997 by frank brandis
;
;as part of a demo written for software failure/airsoft
;SetErr:End:End SetErr

DEFTYPE.l

BitMap0,320,256,1
BitMap1,320,200,8
;LoadPalette1,"blitz2:execs/copplist.pal"
InitPalette1,256
Gosub setpal

InitCopList 1,144,100,$10008,8,256,-$f

InitChunky1,320,200,2


VWait50
BLITZ

Statement bmtochunk {t$,dx.w,dy.w}
 BitMapOutput0
 ln.w=Len(t$)*8
 Locate 0,0:Print t$
 Use BitMap0
 For y=0To7
   yy.w=y+y
   For x=0To ln
     If Point(x,y)
        xx.w=x+x
        GPlot 1,xx+dx+1,yy+dy+1,240
        GPlot 1,xx+dx,yy+dy+1,240
        GPlot 1,xx+dx+1,yy+dy,240
        GPlot 1,xx+dx,yy+dy,240
     EndIf
   Next x
 Next y
End Statement

CreateDisplay1
DisplayBitMap1,1
DisplayPalette1,1


Restore tdats
Read tanz.w
Dim t$(tanz)
For a=1To tanz
 Read t$(a)
Next

Gosub dofire

BitMapOutput1
Colour100:Locate 0,0:Print "ready.click mouse."
MouseWait

End
NoCli:CloseEd

dofire:
 max_=280:may=20
 count.w=1
 tn.w=1
 fadedelay.w=40
Repeat
 Gosub chtext
 Gosub calcfire
 ChunkyToBitMap1,1

Until tn>tanz AND count<=1
Return

.chtext
 count.w-1
 If count=0
   bmtochunk {t$(tn),60,5}
   count=fadedelay:tn+1
 EndIf
Return

.calcfire
newc.l=0
For y=2To may-1
For x=20To max_-1
  newc=GPoint(1,x,y-1)
  newc+GPoint(1,x,y+1)
  newc+GPoint(1,x-1,y)
  newc+GPoint(1,x+1,y)
  newc LSR 2
  If newc<2 Then newc=0
  GPlot 1,x,y,newc
Next x
Next y
Return
;
tdats:
Data.w 4
Data$ " HACKBALL"
Data$ " PRESENTS"
Data$ "  A DEMO"
Data$ "  CALLED"
Even

setpal:
 Restore firepal
 For a=0To255
    Read rr.w,gg.w,bb.w
    AGAPalRGB1,(255-a),rr,gg,bb
 Next a
Return

firepal:
; Copperlist RamDisk:firepal1.bb - basic include file m1
; done with bb2 coped v1.8 (C)opyright 1996 by Frank Brandis

;Data.w 255  ; lines
; red , green , blue
Data.w 000,000,255
Data.w 000,012,255
Data.w 000,025,255
Data.w 000,038,255
Data.w 000,051,255
Data.w 000,063,255
Data.w 000,076,255
Data.w 000,089,255
Data.w 000,102,255
Data.w 000,114,255
Data.w 000,127,255
Data.w 000,140,255
Data.w 000,153,255
Data.w 000,165,255
Data.w 000,178,255
Data.w 000,191,255
Data.w 000,204,255
Data.w 000,216,255
Data.w 000,229,255
Data.w 000,242,255
Data.w 000,255,255
Data.w 025,255,229
Data.w 051,255,204
Data.w 076,255,178
Data.w 102,255,153
Data.w 127,255,127
Data.w 153,255,102
Data.w 178,255,076
Data.w 204,255,051
Data.w 229,255,025
Data.w 255,255,000
Data.w 255,251,000
Data.w 255,247,000
Data.w 255,244,000
Data.w 255,240,000
Data.w 255,236,000
Data.w 255,233,000
Data.w 255,229,000
Data.w 255,225,000
Data.w 255,222,000
Data.w 255,218,000
Data.w 255,214,000
Data.w 255,211,000
Data.w 255,207,000
Data.w 255,204,000
Data.w 255,200,000
Data.w 255,196,000
Data.w 255,193,000
Data.w 255,189,000
Data.w 255,185,000
Data.w 255,182,000
Data.w 255,178,000
Data.w 255,174,000
Data.w 255,171,000
Data.w 255,167,000
Data.w 255,163,000
Data.w 255,160,000
Data.w 255,156,000
Data.w 255,153,000
Data.w 255,149,000
Data.w 255,145,000
Data.w 255,142,000
Data.w 255,138,000
Data.w 255,134,000
Data.w 255,131,000
Data.w 255,127,000
Data.w 255,123,000
Data.w 255,120,000
Data.w 255,116,000
Data.w 255,112,000
Data.w 255,109,000
Data.w 255,105,000
Data.w 255,102,000
Data.w 255,098,000
Data.w 255,094,000
Data.w 255,091,000
Data.w 255,087,000
Data.w 255,083,000
Data.w 255,080,000
Data.w 255,076,000
Data.w 255,072,000
Data.w 255,069,000
Data.w 255,065,000
Data.w 255,061,000
Data.w 255,058,000
Data.w 255,054,000
Data.w 255,051,000
Data.w 255,047,000
Data.w 255,043,000
Data.w 255,040,000
Data.w 255,036,000
Data.w 255,032,000
Data.w 255,029,000
Data.w 255,025,000
Data.w 255,021,000
Data.w 255,018,000
Data.w 255,014,000
Data.w 255,010,000
Data.w 255,007,000
Data.w 255,003,000
Data.w 255,000,000
Data.w 253,000,000
Data.w 251,000,000
Data.w 250,000,000
Data.w 248,000,000
Data.w 246,000,000
Data.w 245,000,000
Data.w 243,000,000
Data.w 241,000,000
Data.w 240,000,000
Data.w 238,000,000
Data.w 236,000,000
Data.w 235,000,000
Data.w 233,000,000
Data.w 231,000,000
Data.w 230,000,000
Data.w 228,000,000
Data.w 227,000,000
Data.w 225,000,000
Data.w 223,000,000
Data.w 222,000,000
Data.w 220,000,000
Data.w 218,000,000
Data.w 217,000,000
Data.w 215,000,000
Data.w 213,000,000
Data.w 212,000,000
Data.w 210,000,000
Data.w 208,000,000
Data.w 207,000,000
Data.w 205,000,000
Data.w 204,000,000
Data.w 202,000,000
Data.w 200,000,000
Data.w 199,000,000
Data.w 197,000,000
Data.w 195,000,000
Data.w 194,000,000
Data.w 192,000,000
Data.w 190,000,000
Data.w 189,000,000
Data.w 187,000,000
Data.w 185,000,000
Data.w 184,000,000
Data.w 182,000,000
Data.w 180,000,000
Data.w 179,000,000
Data.w 177,000,000
Data.w 176,000,000
Data.w 174,000,000
Data.w 172,000,000
Data.w 171,000,000
Data.w 169,000,000
Data.w 167,000,000
Data.w 166,000,000
Data.w 164,000,000
Data.w 162,000,000
Data.w 161,000,000
Data.w 159,000,000
Data.w 157,000,000
Data.w 156,000,000
Data.w 154,000,000
Data.w 153,000,000
Data.w 151,000,000
Data.w 149,000,000
Data.w 148,000,000
Data.w 146,000,000
Data.w 144,000,000
Data.w 143,000,000
Data.w 141,000,000
Data.w 139,000,000
Data.w 138,000,000
Data.w 136,000,000
Data.w 134,000,000
Data.w 133,000,000
Data.w 131,000,000
Data.w 129,000,000
Data.w 128,000,000
Data.w 126,000,000
Data.w 125,000,000
Data.w 123,000,000
Data.w 121,000,000
Data.w 120,000,000
Data.w 118,000,000
Data.w 116,000,000
Data.w 115,000,000
Data.w 113,000,000
Data.w 111,000,000
Data.w 110,000,000
Data.w 108,000,000
Data.w 106,000,000
Data.w 105,000,000
Data.w 103,000,000
Data.w 102,000,000
Data.w 100,000,000
Data.w 098,000,000
Data.w 097,000,000
Data.w 095,000,000
Data.w 093,000,000
Data.w 092,000,000
Data.w 090,000,000
Data.w 088,000,000
Data.w 087,000,000
Data.w 085,000,000
Data.w 083,000,000
Data.w 082,000,000
Data.w 080,000,000
Data.w 078,000,000
Data.w 077,000,000
Data.w 075,000,000
Data.w 074,000,000
Data.w 072,000,000
Data.w 070,000,000
Data.w 069,000,000
Data.w 067,000,000
Data.w 065,000,000
Data.w 064,000,000
Data.w 062,000,000
Data.w 060,000,000
Data.w 059,000,000
Data.w 057,000,000
Data.w 055,000,000
Data.w 054,000,000
Data.w 052,000,000
Data.w 051,000,000
Data.w 049,000,000
Data.w 047,000,000
Data.w 046,000,000
Data.w 044,000,000
Data.w 042,000,000
Data.w 041,000,000
Data.w 039,000,000
Data.w 037,000,000
Data.w 036,000,000
Data.w 034,000,000
Data.w 032,000,000
Data.w 031,000,000
Data.w 029,000,000
Data.w 027,000,000
Data.w 026,000,000
Data.w 024,000,000
Data.w 023,000,000
Data.w 021,000,000
Data.w 019,000,000
Data.w 018,000,000
Data.w 016,000,000
Data.w 014,000,000
Data.w 013,000,000
Data.w 011,000,000
Data.w 009,000,000
Data.w 008,000,000
Data.w 006,000,000
Data.w 004,000,000
Data.w 003,000,000
Data.w 001,000,000
Data.w 000,000,000

Even
;