Cogs!

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|651\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 07 November 2008 System : Windows Language : Blitz Cogs!
I'm not entirely sure that this'll ever be useful to anyone.. ever! But either way, here's how I made the cogs for my Gearworks game.. ('cos I was scared of drawing it by hand!!!!) This makes nice black and white cogs. To then add a bit of chunkyness, I loaded them into PaintShop Pro, Selected all the white (Ctrl-A, Ctrl-T, Black) and then ran it through a Inner Bevel effect. Sorted! Graphics 800,600,32,2 SetBuffer BackBuffer() d#=4:s#=2:g#=0.37 TFormFilter True coga=CreateImage(64,64,90) cogb=CreateImage(96,96,90) cogc=CreateImage(128,128,90) Cls Color 255,255,255 Text 400,300,"Rendering Cogs",1,1 Flip For ang=0 To 89 For Fli=1 To 3 arse=arse+128 If fli=1 Then size#=64:cogs#=6:d=4:s=2:g=0.44:SetBuffer ImageBuffer(coga,ang) If Fli=2 Then size#=96:cogs#=8:d=5:s=2:g=0.46:SetBuffer ImageBuffer(cogb,ang) If Fli=3 Then size#=128:cogs#=12:d=6:s=2:g=0.48:SetBuffer ImageBuffer(cogc,ang) Color 255,255,255 Oval 1,1,size-2,size-2,1 Color 0,0,0 For n=0 To cogs-1 cx#=(size/2)+(Sin(((360.0/cogs)n)+ang4)(sizeg)) cy#=(size/2)-(Cos(((360.0/cogs)n)+ang4)(sizeg)) Oval cx-(size/(ds)),cy-(size/(ds)),size/d,size/d,1 Next Oval size/2-4,size/2-4,8,8,1 Next Next SetBuffer BackBuffer() Repeat Cls ang=ang+1:If ang>89 Then ang=0 DrawImage coga,0,0,ang DrawImage cogb,0,200,ang DrawImage cogc,0,400,ang Flip Delay 50 Until KeyDown(1) Cls Color 255,255,255 Text 400,300,"Rescaling Cogs",1,1 Flip ResizeImage coga,16,16 ResizeImage cogb,24,24 ResizeImage cogc,32,32 Repeat Cls ang=ang+1:If ang>89 Then ang=0 DrawImage coga,0,0,ang DrawImage cogb,0,200,ang DrawImage cogc,0,400,ang Flip Delay 50 Until KeyDown(1) Cls Color 255,255,255 Text 400,300,"Saving Cogs",1,1 Flip size=16 cogasheet=CreateImage(size10,size9) SetBuffer ImageBuffer(cogasheet) x=0:y=0 For n=0 To 89 DrawImage coga,x,y,n x=x+size:If (n+1) Mod 10=0 Then x=0:y=y+size Next size=32 cogbsheet=CreateImage(size10,size9) SetBuffer ImageBuffer(cogbsheet) x=0:y=0 For n=0 To 89 DrawImage cogb,x,y,n x=x+size:If (n+1) Mod 10=0 Then x=0:y=y+size Next size=32 cogcsheet=CreateImage(size10,size9) SetBuffer ImageBuffer(cogcsheet) x=0:y=0 For n=0 To 89 DrawImage cogc,x,y,n x=x+size:If (n+1) Mod 10=0 Then x=0:y=y+size Next SaveImage cogasheet,"CogA.bmp" SaveImage cogbsheet,"CogB.bmp" SaveImage cogcsheet,"CogC.bmp" --v Note : I could've used my 2D-in-3D engine to rotate them, but that wouldn't have left the nice bevelling.. It would've spun the bevel around, and looked silly!!

Comments

Comments