08 January 2012, 00:39
|
#21
|
Registered User
Join Date: Dec 2011
Location: Northamptonshire, UK
Age: 41
Posts: 1,236
|
woohoo! sussed it :D
I wanted to draw a gradient from a corner (to test my muscle on operators with vectors)
Quote:
BitMap 0,320,256,8
For i=0 To 255:AGAPalRGB 0,i,i,i,i:Next
InitCopList 0,44,256,$13008,8,256,0
BLITZ
CreateDisplay 0
DisplayBitMap 0,0:DisplayPalette 0,0
;While ;key NOT pressed
;draw corner gradient
For x=0 To 255 Step 1: Line 0,0,x,255,x,1:Next
For y=255 To 0 Step -1: Line 0,0,255,y,y,1:Next
;Wend
;draw sphere (from previous code example)
;For i=255 To 0 Step -1:Circlef 160,128,i/4,i :Next
MouseWait
End
|
simple things please simple minds :D
|
|
|