QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 10, 2020, 10:54:56 pm

Title: Monolith
Post by: SierraKen on December 10, 2020, 10:54:56 pm

I didn't know the Monolith craze would be all over the world so quickly, so I decided to make a computer one. It uses the neon. Check out the photo too.

Code: QB64: [Select]

1. _TITLE "Monolith"
2. SCREEN _NEWIMAGE(800, 600, 32)
3.  
4. TYPE vec2
5.     x AS SINGLE
6.     y AS SINGLE
7. END TYPE
8.  
9. REDIM SHARED vert(4024) AS vec2, max_v_index
10. DIM SHARED rFactor!, gFactor!, bFactor!
11. rFactor! = .25: gFactor! = .25: bFactor! = .5
12.  
13. _LIMIT 60
14.  
15. CLS
16.  
17.  
18. FOR yy = 100 TO 500
19.     max_v_index = max_v_index + .15
20.     vert(max_v_index).x = 450
21.     vert(max_v_index).y = yy
22. NEXT yy
23.  
24. FOR t = 1 TO 360 STEP .05
25.     cx = (SIN(t) * 300) + 450
26.     cy = (COS(t) * 300) + 800
27.     max_v_index = max_v_index + .065
28.     vert(max_v_index).x = cx
29.     vert(max_v_index).y = cy
30. NEXT t
31.  
32.  
33.  
34. DO: LOOP UNTIL INKEY$ <> ""
35.  
36. SUB _GL ()
37.     STATIC glInit
38.     IF glInit = 0 THEN
39.         glInit = 1
40.     END IF
41.     _glViewport -50, -50, _WIDTH, _HEIGHT
42.     'set the gl screen so that it can work normal screen coordinates
43.     _glTranslatef -1, 1, 0
44.     _glScalef 1 / 400, -1 / 300, 1
45.  
46.     _glEnable _GL_BLEND
47.  
48.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
49.     _glEnableClientState _GL_VERTEX_ARRAY
50.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
51.     FOR j = 60 TO 80
52.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
53.         _glPointSize j
54.         _glDrawArrays _GL_POINTS, 10, max_v_index
55.     NEXT
56.     _glFlush
57. END SUB
58.  

Title: Re: Monolith
Post by: SMcNeill on December 10, 2020, 10:57:25 pm

Is that a monolith, or are you just happy to see me?

Title: Re: Monolith
Post by: SierraKen on December 10, 2020, 11:10:16 pm

I don't swing that way Steve. lol

Title: Re: Monolith
Post by: SierraKen on December 10, 2020, 11:54:54 pm

Here's a saucer that changes colors.

Code: QB64: [Select]

1. _TITLE "Saucer"
2. SCREEN _NEWIMAGE(800, 600, 32)
3.  
4. TYPE vec2
5.     x AS SINGLE
6.     y AS SINGLE
7. END TYPE
8.  
9. REDIM SHARED vert(8024) AS vec2, max_v_index
10. DIM SHARED rFactor!, gFactor!, bFactor!
11. rFactor! = .25: gFactor! = .25: bFactor! = .5
12. _LIMIT 120
13. CLS
14. DO
15.     FOR t = 1 TO 360 STEP .05
16.         _LIMIT 80
17.         c1 = RND: c2 = RND: c3 = RND
18.         rFactor! = c1: gFactor! = c2: bFactor! = c3
19.         cx = (SIN(t) * 300) + 450
20.         cy = (COS(t) * 300) / 2 + 200
21.         max_v_index = max_v_index + .065
22.         vert(max_v_index).x = cx
23.         vert(max_v_index).y = cy
24.         cx2 = (SIN(t) * 200) + 450
25.         cy2 = (COS(t) * 200) / 2 + 200
26.         max_v_index = max_v_index + .065
27.         vert(max_v_index).x = cx2
28.         vert(max_v_index).y = cy2
29.     NEXT t
30.  
31. LOOP UNTIL INKEY$ <> ""
32.  
33. SUB _GL ()
34.     STATIC glInit
35.     IF glInit = 0 THEN
36.         glInit = 1
37.     END IF
38.     _glViewport -50, -50, _WIDTH, _HEIGHT
39.     'set the gl screen so that it can work normal screen coordinates
40.     _glTranslatef -1, 1, 0
41.     _glScalef 1 / 400, -1 / 300, 1
42.     _glEnable _GL_BLEND
43.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
44.     _glEnableClientState _GL_VERTEX_ARRAY
45.     _glVertexPointer 2, _GL_FLOAT, 0, _OFFSET(vert())
46.     FOR j = 0 TO 30
47.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
48.         _glPointSize j
49.         _glDrawArrays _GL_POINTS, 2, max_v_index
50.     NEXT
51.     _glFlush
52. END SUB
53.  

Title: Re: Monolith
Post by: NOVARSEG on December 11, 2020, 12:26:33 am

Area 51?

Title: Re: Monolith
Post by: SierraKen on December 11, 2020, 12:31:08 am

LOL NOVARSEG  :)

Title: Re: Monolith
Post by: Richard Frost on December 11, 2020, 10:49:44 am

I gots me a monolith & Area 51 inna da Moon Lander.

Also 6 spacesheeps - LM, CM, Borg, Death Star, Starsheep Enterprise, and a Close Encounters type.

Anudder shameless plug for me code.

Title: Re: Monolith
Post by: SierraKen on December 11, 2020, 12:55:17 pm

Awesome Richard! :)

Text Only | Text with Attachments