Rotating Sphere

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

Andy_A	Created : 10 February 2015 Edited : 10 February 2015 Language : Blitz Rotating Sphere Nice looking sphere
AppTitle "Rotating Sphere" Global bknd%, dot% sw% = 1024 : sh% = 768 Graphics sw,sh,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() For i%=0To 3999:j%=Rand(0,99):Next Const mult# = 360.0 : Const k1# = 16.3636 Const k2# = 18.0 : Const stp# = 1.80 Const pi10# = 1800.0 : Const cx% = 512 Const cy% = 384 Cls dotSize% = 11 Color 0,0,255 Oval 0,0,dotSize,dotSize,1 dot = CreateImage(dotSize,dotSize) GrabImage dot,0,0 Cls For i% = 1 To 700 Color Rand(96,160),Rand(96,160),Rand(96,160) dotSize = Rand(1,2) Rect( Rand(1,sw-1), Rand(1,sh-1), dotSize, dotSize, True) Next Color 0,0,32 Oval sw/2-mult, sh/2-mult, mult2, mult2, True bknd = CreateImage(sw,sh) GrabImage bknd,0,0 sphereRot() FreeImage bknd FreeImage dot End Function sphereRot() Local s#, p#, ca#, sa#, cr#, mcp#, msp#, rx#, ry# While KeyHit(1)=0 And MouseHit(1)=0 DrawBlock bknd,0,0 If a# < 1800.0 Then a = a + stp# Else a = 0. For s = 1 To 11 For p = 1 To 20 ca = Cos(a) sa = Sin(a) cr = Cos(k1s) mcp = multSin(k1s)Cos(k2p) msp = multSin(k1s)Sin(k2p) rx = mspcaca+mcp(ca(-sa)+sasaca)+multcr(sasa+casaca) ry = mspcasa+mcp(caca+sasasa)+multcr((-sa)ca+casasa) If (msp(-sa)+mcpsaca+multcrca*ca) <= 0.0 Then DrawImage dot, Int(rx+Float(cx)), Int(Float(cy)-ry) End If Next Next Flip Delay 25 Wend End Function --v

Comments
Tuesday, 10 February 2015, 11:24
Jayenkai	I've never quite managed to wrap my head around 3D maths. Congrats
Tuesday, 10 February 2015, 14:25
Andy_A	Well...the truth is I haven't either. I found an old QB listing and converted it to .bb. Anyway it still looks nice. I saw this on the 'Dark Bits Forum' about 10 years ago as a demo someone posted. Don't know if the person who posted it did the work themselves or just plaigerized...
Sunday, 08 March 2015, 19:36
Dabz	Thinking in 3D? Top read.... https://fivedots.coe.psu.ac.th/Software.coe/241-213/F.Dunn,%20I.Parberry%20-%203D%20Math%20Primer%20for%20Graphics%20and%20Game%20Development.pdf You'll thank me later! Dabz

Rotating Sphere

Comments