The 3D stars used to be embedded in this blog post, but that caused this post to pop up as top most post, when clicking Blog from the menu. Now the stars are embedded here.
The code is written in Monkey X Pro, but you can use the same code directly in free Monkey X, that compiles to desktop or HTML5. With Monkey X Pro you could compile the same code also to Android among other platforms it supports.
Here’s the code:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
Import mojo Function Main:Int() New MyApp Return 0 End Class MyApp Extends App Const BG_WIDTH:Int = 640 Const BG_HEIGHT:Int = 480 Const STARS:Int = 180 Global devWidth:Float, devHeight:Float, scaleX:Float, scaleY:Float Global x:Float[STARS],y:Float[STARS],z:Float[STARS],sx:Int[STARS],sy:int[STARS] Method OnCreate() devWidth = DeviceWidth() devHeight = DeviceHeight() scaleX = devWidth / BG_WIDTH scaleY = devHeight / BG_HEIGHT For Local i:Int = 0 To STARS - 1 x[i] = Rnd(-50,50) y[i] = Rnd(-50,50) z[i] = Rnd(50,200) Next SetUpdateRate(60) End Method OnUpdate() For Local i:Int = 0 To STARS - 1 ' Decrease z z[i] = z[i] - 1 If z[i] < 10 Then z[i] = Rnd(50,200) ' Projection from 3D space to 2D screen sx[i] = 320 + x[i] / z[i] * 200 sy[i] = 240 + y[i] / z[i] * 200 Next End Method OnRender() Local shade:Int ' Scale the graphics PushMatrix() Scale (scaleX,scaleY) SetColor 0,0,0 DrawRect 0,0,BG_WIDTH,BG_HEIGHT For Local i:Int = 0 To STARS - 1 shade = 255 - z[i] / 200 * 255 SetColor shade,shade,shade DrawOval sx[i],sy[i],4,4 Next PopMatrix() End End Class |
Do use my code as you wish.