[purebasic] C2D Stars3D Move
Viewer
*** This page was generated with the meta tag "noindex, nofollow". This happened because you selected this option before saving or the system detected it as spam. This means that this page will never get into the search engines and the search bot will not crawl it. There is nothing to worry about, you can still share it with anyone.
- ; C2D::Stars3D Move - Purebasic v5.70
- CompilerIf Defined(C2D_Z, #PB_Constant) = 0
- #C2D_Z = 1 ; Zoom-Factor
- CompilerEndIf
- DeclareModule IsC2D
- #IsC2D_File = 1
- #IsC2D_GdiPlus = 2
- #IsC2D_Stars3D = 1
- #IsC2D_Clear = 2 ; fast clearcanvas
- XIncludeFile "..\Include\C2D_Defaults.pbi"
- EndDeclareModule
- XIncludeFile "..\Include\C2D_Module.pbi"
- #C2D_G = 0 ; #Gadget
- #C2D_W = 550 * #C2D_Z ; Width
- #C2D_H = 340 * #C2D_Z ; Height
- #ID_STAR = 0
- Define x.f, y.f, t$
- OpenWindow(0, 0, 0, #C2D_W, #C2D_H, MA_C2DOS("Stars3D / Move"), #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
- CanvasGadget(#C2D_G, 0, 0, #C2D_W, #C2D_H) : DisableGadget(#C2D_G, 1)
- C2D::Init(#C2D_G)
- t$ = "..\Data\Ball\Pearl\" + Str(Random(7)) + ".png"
- C2D::BitmapInit(#ID_STAR, @t$)
- C2D::Stars3DInit(300 * #C2D_Z, 12 * #C2D_Z, 0, 0, #C2D_W, #C2D_H, 1.8, #ID_STAR)
- C2D::Stars3DSpread(2500)
- Repeat
- Select WindowEvent()
- Case #Null
- If C2D::Start()
- x = Cos(C2D::C2D\Time * 0.0002) * #C2D_W * 0.5
- y = Sin(C2D::C2D\Time * 0.0002) * #C2D_H * 0.5
- C2D::Stars3DDraw(x, y)
- x + #C2D_W * 0.5
- y + #C2D_H * 0.5
- LineXY(x - 8, y, x + 8, y)
- LineXY(x, y - 8, x, y + 8)
- C2D::Stop()
- EndIf
- Case #PB_Event_CloseWindow
- Break
- Case #WM_KEYDOWN
- If GetAsyncKeyState_(#VK_ESCAPE)
- Break
- EndIf
- EndSelect
- ForEver
- C2D::Free()
Editor
You can edit this paste and save as new: