der Effekt ist wie ich finde relativ angenehm.
Einfach in PB4 ausführen.
1-9 sind verschiedene Models
Q verdreht sich alles
A Range +
Y Range -
links und rechts drehen
oben und unten vertikal verdrehen
Code: Alles auswählen
;***Vectordreck***
InitSprite()
InitSprite3D()
InitKeyboard()
Global pi.f
pi = 3.141592
OpenScreen(800,600,32,"My Little Demo v1.0")
#cn = 6000
Dim rx.f(#cn)
Dim ry.f(#cn)
Dim fade.l(#cn)
Dim rad.f(#cn)
Dim spd.l(#cn)
Dim siz.l(#cn)
For x = 0 To #cn
fade(x) = Random(15)+20
siz(x) = 1
rad(x) = Random(128)
rx(x) = Random(360)
ry(x) =Random(360)
spd(x) = Random(16)-8
Next
CreateSprite(0,64,64,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
For x = 1 To 32
Circle(31,31,32-x,RGB(0,x/1.2,x*2))
Next
For x = 1 To 64
u = Random(1)
beginx = Random(32)-16
beginy = Random(32)-16
co.l = Point(31+beginx,31+beginy)
rd.l = Red(co)
gd.l = Green(co)
bd.l = Blue(co)
For y = 1 To 16
nx = Random(2)-1
ny = Random(2)-1
If beginx+nx > 32 Or beginx+nx <-32
nx = -nx
EndIf
If beginy+ny > 32 Or beginy+ny < -32
ny = -ny
EndIf
beginx +nx
beginy +ny
If d = 0
rd= rd - 1
gd= gd - 1
bd= bd - 1
If rd < 0
rd = 0
EndIf
If gd < 0
gd = 0
EndIf
If bd < 0
bd = 0
EndIf
Else
rd= rd+1
gd= gd+1
bd= bd +1
If rd > 255
rd = 255
EndIf
If gd > 255
gd = 255
EndIf
If bd > 255
bd = 255
EndIf
EndIf
Plot(31+beginx,31+beginy,RGB(rd,gd,bd))
Next
Next
StopDrawing()
CreateSprite3D(0,0)
a = 5
b = 7
Repeat
ExamineKeyboard()
rot + 1
If rot > 359
rot = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
For x = 0 To #cn
rx(x) + 5
Next
EndIf
If KeyboardPushed(#PB_Key_Down)
For x = 0 To #cn
rx(x) - 5
Next
EndIf
If KeyboardPushed(#PB_Key_Left)
For x = 0 To #cn
ry(x)+5
Next
EndIf
If KeyboardPushed(#PB_Key_Right)
For x = 0 To #cn
ry(x) -5
Next
EndIf
If KeyboardPushed(#PB_Key_A)
For x = 0 To #cn
rad(x) + 5
Next
EndIf
If KeyboardPushed(#PB_Key_Z)
For x = 0 To #cn
rad(x) - 5
Next
EndIf
rat + 0.1
If rat > 359
rat = 0
EndIf
If gol = 1
For x = 0 To #cn
rx(x) = rx(x) + (Sin(2*pi*(rat/360))*rad(x))/100
ry(x) = ry(x) + (Cos(2*pi*(rat/360))*rad(x))/50
Next
EndIf
If KeyboardReleased(#PB_Key_Q)
If gol = 0
gol = 1
Else
gol = 0
EndIf
EndIf
If KeyboardReleased(#PB_Key_F)
a + 1
If a > 27
a = 0
EndIf
EndIf
If KeyboardReleased(#PB_Key_G)
b + 1
If b > 27
b = 0
EndIf
EndIf
Start3D()
Sprite3DBlendingMode(a,b)
For x = 0 To #cn
pz.f = rad(x)/(rad(x)-(Cos(2*pi*(ry(x)/360))*((Sin(2*pi*(rx(x)/360))*rad(x))/1.5)))
py.f = Cos(2*pi*(rx(x)/360))*rad(x)*pz
px.f = Sin(2*pi*(ry(x)/360))*(Sin(2*pi*(rx(x)/360))*rad(X))*pz
ZoomSprite3D(0,(pz*20)+siz(x),(pz*20)+siz(x))
RotateSprite3D(0,rot*spd(x),0)
DisplaySprite3D(0,400+px-pz*10-siz(x)/2,300+py-pz*10-siz(x)/2,fade(x))
Next
Stop3D()
StartDrawing(ScreenOutput())
DrawText(0,0,StrF(pz,2)+" A: " + Str(a)+" B: "+Str(b))
StopDrawing()
If KeyboardPushed(#PB_Key_Up)= 0 And KeyboardPushed(#PB_Key_Down)= 0 And KeyboardPushed(#PB_Key_Left)= 0 And KeyboardPushed(#PB_Key_Right)= 0
Select KeyboardInkey()
Case "1"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = Random(4)*130 - rad(x)
ry(x) = 90+Random(24)
spd(x) = Random(16)-8
Next
Case"2"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = Random(8)*45 - rad(x)
ry(x) = 90+Random(24)
spd(x) = Random(16)-8
Next
Case"3"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = Random(360)
ry(x) = 90+Random(12)
spd(x) = Random(16)-8
Next
Case"4"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = Random(3)*120
ry(x) = 90+Random(12)
spd(x) = Random(16)-8
Next
Case"5"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = 90
ry(x) = Random(360)
spd(x) = Random(16)-8
Next
Case"6"
For x = 0 To #cn
rad(x) = 256-Random(48)
rx(x) = Random(360)
ry(x) = 90
spd(x) = Random(16)-8
Next
Case"7"
For x = 0 To #cn
rad(x) = 256
rx(x) = Random(180)
ry(x) = Random(180)
spd(x) = Random(32)-16
Next
Case"8"
For x = 0 To #cn
rad(x) = Random(256)
rx(x) = Random(30)
ry(x) = Random(30)
spd(x) = Random(32)-16
Next
Case"9"
For x = 0 To #cn
rad(x) = 44
rx(x) = Random(30)
ry(x) = Random(120)
spd(x) = Random(32)-16
Next
EndSelect
EndIf
FlipBuffers()
ClearScreen(0)
Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()
End
