• API
• FAQ
• Tools
• Archive
SHARE
TWEET

# Untitled

a guest Sep 19th, 2019 111 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. LDGraphicsWindow.state = 2                            'full screen
2. w = GraphicsWindow.Width
3. h = GraphicsWindow.Height
4. GraphicsWindow.BackgroundColor = "Black"
5. numstar = 120
6. GraphicsWindow.BrushColor = "White"
7. For x = 1 To numstar
8.   distx[x] = Math.GetRandomNumber(w)                  'gen rnd x pos for star
9.   disty[x] = Math.GetRandomNumber(h)                  'gen rnd y pos for star
10.   If Math.Remainder(x,2) = 0 Then
11.     distx[x] = -distx[x]                              'move 50% of stars to left/top of central pivot
12.     disty[x] = -disty[x]
13.   EndIf
14.   size = 5+Math.GetRandomNumber(12)                   'size is rnd between 5 and 12
16.   Shapes.SetOpacity(shape,Math.GetRandomNumber(100))
17.   Shapes.Move(shape,distx[x],disty[x])
18.   stars[x] = LDFastShapes.ShapeIndex(shape)           'use ldfastshapes for speed
19.   sp[x] = Math.GetRandomNumber(150)/100               'speed array of orbitting stars
20.   sizes[x] = size                                     'size array of stars
21. EndFor
22. While 1=1
23.   a = a + .5                                          'half degree of rotation per frame
24.   z = z + 0.0001                                      'slowly increasing height of rotation
25.   GraphicsWindow.title = z
26.   For x = 1 To numstar
27.     sin = Math.Sin(Math.GetRadians(a * sp[x]))        'sin and cos pos of each star
28.     cos = Math.Cos(Math.GetRadians(a * (sp[x] * z)))
29.     LDFastShapes.Zoom(x,sizes[x] * sin/2 * distx[x]/10000,sizes[x]*sin/2 * distx[x]/10000)
30.     xpos = w/2 + distx[x] * (sin/2)                   'W/2 & H/2 become central pivot
31.     ypos = h/2 + disty[x] * (cos/2)                   'spin faster laterally
32.     LDFastShapes.Move(x,xpos,ypos)
33.   EndFor
34.   LDFastShapes.Update()
35.   Program.Delay(10)
36. EndWhile
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.
Top