« previous next »
Pages: 1 2 [3]   Go Down

Author Topic: 🎄🎁✨ Holiday Season Code Sampler 2021  (Read 15714 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #30 on: December 23, 2021, 01:57:09 pm »
Nice effects Petr, drawings too. The effect was really nice surprise with the text. Reminds me of Circle Inverses I think I will have go digging and try some experiments with that.
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #31 on: December 23, 2021, 07:34:46 pm »
Hi boys and girls of QB64land,

here my wishes
an OpenGl wish for health, peace and funny moments
Code: QB64: [Select]
  1.  Dim Shared GlInit As Integer, s As Single, Glactive As Integer
  4.  
  5. A = _NewImage(800, 600, 32)
  6.  
  8.  
  9. Const Yellow1 = _RGB32(200, 200, 10, 255), Yellow2 = _RGB32(200, 200, 60, 255), Black = _RGB32(0, 0, 0, 255), Red = _RGB32(230, 0, 0, 255)
  11. _Title "Happy Christmas QB64 community!"
  12.  
  13. Locate 2, ((_Width / 2) - 80) / 8: Print "Opengl graphic demo"
  15. GlInit = -1
  16. Glactive = -1
  17. r = 1
  18. z = 10
  19. s = _Pi(2) / z
  21.     If r > 0.35 Then r = r - 0.05
  22.     For w = 0 To _Pi(2) Step s / 2
  23.  
  24.         _Delay .15
  25.     Next w
  27. Color Yellow1
  28. Print " Happy Christmas QB64 community"
  30.  
  31. 'area subs-------------
  32.  
  33. 'area GL --------------------
  34. Sub _GL ()
  35.     Shared w As Single
  36.     If Not Glactive Then Exit Sub
  37.     If GlInit Then
  38.         _glViewport 0, 0, _Width, _Height
  39.         _glClearColor 0, 0, 1, 1
  40.         GlInit = 0
  41.     End If
  42.     _glClear _GL_COLOR_BUFFER_BIT
  43.     RotatingStarsFull 0, -0.2, r, -w
  44.     IncrDrawPoint 0, -0.2, r, 10, -w
  45.     IncrRotStarsvoid 0, -0.2, r, -w
  46.     'Q
  47.     RotatingStarsFull -0.7, 0.8, 0.05, -w
  48.     RotatingStarsFull -0.8, 0.8, 0.05, -w
  49.     RotatingStarsFull -0.9, 0.7, 0.05, -w
  50.     RotatingStarsFull -0.9, 0.6, 0.05, -w
  51.     RotatingStarsFull -0.9, 0.5, 0.05, -w
  52.     RotatingStarsFull -0.8, 0.4, 0.05, -w
  53.     RotatingStarsFull -0.7, 0.4, 0.05, -w
  54.     RotatingStarsFull -0.6, 0.7, 0.05, -w
  55.     RotatingStarsFull -0.6, 0.6, 0.05, -w
  56.     RotatingStarsFull -0.6, 0.5, 0.05, -w
  57.     RotatingStarsFull -0.55, 0.4, 0.05, -w
  58.     'B
  59.  
  60.     RotatingStarsFull -0.2, 0.8, 0.05, -w
  61.     RotatingStarsFull -0.4, 0.8, 0.05, -w
  62.     RotatingStarsFull -0.4, 0.7, 0.05, -w
  63.     RotatingStarsFull -0.4, 0.6, 0.05, -w
  64.     RotatingStarsFull -0.4, 0.5, 0.05, -w
  65.     RotatingStarsFull -0.4, 0.4, 0.05, -w
  66.     RotatingStarsFull -0.2, 0.4, 0.05, -w
  67.     RotatingStarsFull -0.1, 0.7, 0.05, -w
  68.     RotatingStarsFull -0.2, 0.6, 0.05, -w
  69.     RotatingStarsFull -0.1, 0.5, 0.05, -w
  70.     '6
  71.     RotatingStarsFull 0.4, 0.8, 0.05, -w
  72.     RotatingStarsFull 0.3, 0.8, 0.05, -w
  73.     RotatingStarsFull 0.2, 0.7, 0.05, -w
  74.     RotatingStarsFull 0.1, 0.6, 0.05, -w
  75.     RotatingStarsFull 0.1, 0.5, 0.05, -w
  76.     RotatingStarsFull 0.2, 0.4, 0.05, -w
  77.     RotatingStarsFull 0.3, 0.3, 0.05, -w
  78.     RotatingStarsFull 0.3, 0.3, 0.05, -w
  79.     RotatingStarsFull 0.4, 0.4, 0.05, -w
  80.     RotatingStarsFull 0.3, 0.5, 0.05, -w
  81.     RotatingStarsFull 0.4, 0.5, 0.05, -w
  82.     RotatingStarsFull 0.2, 0.5, 0.05, -w
  83.  
  84.     '4
  85.     RotatingStarsFull 0.8, 0.8, 0.05, -w
  86.     RotatingStarsFull 0.7, 0.7, 0.05, -w
  87.     RotatingStarsFull 0.8, 0.7, 0.05, -w
  88.     RotatingStarsFull 0.6, 0.5, 0.05, -w
  89.     RotatingStarsFull 0.8, 0.6, 0.05, -w
  90.     RotatingStarsFull 0.65, 0.6, 0.05, -w
  91.     RotatingStarsFull 0.7, 0.5, 0.05, -w
  92.     RotatingStarsFull 0.9, 0.5, 0.05, -w
  93.     RotatingStarsFull 0.8, 0.5, 0.05, -w
  94.     RotatingStarsFull 0.8, 0.4, 0.05, -w
  95.     RotatingStarsFull 0.8, 0.3, 0.05, -w
  96.  
  97.     _glFlush
  99.  
  100. Sub IncrDrawPoint (x As Single, y As Single, r1 As Single, s1 As Integer, w As Single)
  101.     Static s2 As Integer
  102.     If s2 - s1 = 0 Then s2 = 2 Else s2 = s2 + 1
  103.     drawpoint x, y, r1, s2, 2 * s, w
  105.  
  106. Sub IncrRotStarsvoid (x As Single, y As Single, r1 As Single, w As Single)
  107.     Static r2 As Single
  108.     If r2 >= r1 Then r2 = 0 Else r2 = r2 + 0.001
  109.     RotatingStarsVoid x, y, r2, w
  111.  
  112. Sub drawpoint (x As Single, y As Single, r1 As Single, s1 As Integer, s2 As Single, w As Single)
  113.     Dim i As Single, cx As Single, cy As Single
  114.     _glColor4f 0.8, .8, 0.1, 1.0
  115.     _glPointSize s1 ' it works with 2 or more !
  116.     _glBegin _GL_POINTS
  117.     For i = 0 To _Pi(2) Step s2
  118.         cx = (Cos(i + w) * r1) + x
  119.         cy = (Sin(i + w) * r1) + y
  120.         _glVertex2f cx, cy
  121.     Next i
  122.     _glEnd
  124.  
  125.  
  126.  
  127.  
  128. Sub RotatingStarsFull (x As Single, y As Single, r1 As Single, w As Single)
  129.     Dim i, cx As Single, cy As Single, j As Integer, k As Integer, h As Integer
  130.     _glColor4f 0.8, .8, 0.1, 1.0
  131.  
  132.     _glBegin _GL_TRIANGLE_FAN
  133.  
  134.     h = 0
  135.     For i = 0 To _Pi(2) Step s
  136.         h = h + 1
  137.         If h Mod 2 = 0 Then
  138.             j = 2: k = 1
  139.         Else
  140.             j = 1: k = 2
  141.         End If
  142.  
  143.         cx = (Cos(i - s + w) * (r1 / k)) + x
  144.         cy = (Sin(i - s + w) * (r1 / k)) + y
  145.         _glVertex2f cx, cy
  146.  
  147.         cx = (Cos(i + w) * (r1 / j)) + x
  148.         cy = (Sin(i + w) * (r1 / j)) + y
  149.         _glVertex2f cx, cy
  150.         cx = (Cos(i + s + w) * (r1 / k)) + x
  151.         cy = (Sin(i + s + w) * (r1 / k)) + y
  152.         _glVertex2f cx, cy
  153.     Next i
  154.  
  155.     _glEnd
  157.  
  158. Sub RotatingStarsVoid (x As Single, y As Single, r1 As Single, w As Single)
  159.     Dim i, cx As Single, cy As Single, j As Integer, k As Integer, h As Integer
  160.     _glColor4f 0.8, 1, 0.1, 1.0
  161.  
  162.     _glBegin _GL_LINES
  163.  
  164.     h = 0
  165.     For i = 0 To _Pi(2) Step s
  166.         h = h + 1
  167.         If h Mod 2 = 0 Then
  168.             j = 2: k = 1
  169.         Else
  170.             j = 1: k = 2
  171.         End If
  172.  
  173.  
  174.         cx = (Cos(i + w) * (r1 / j)) + x
  175.         cy = (Sin(i + w) * (r1 / j)) + y
  176.         _glVertex2f cx, cy
  177.         cx = (Cos(i + s + w) * (r1 / k)) + x
  178.         cy = (Sin(i + s + w) * (r1 / k)) + y
  179.         _glVertex2f cx, cy
  180.     Next i
  181.  
  182.     _glEnd
  184.  

Happy Christmas.
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #32 on: December 23, 2021, 09:09:32 pm »
Merry New Year @TempodiBasic
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #33 on: December 23, 2021, 11:31:25 pm »
  [ You are not allowed to view this attachment ]  
Mary kiss moose. Peas on Earth.

  [ You are not allowed to view this attachment ]  
« Last Edit: December 23, 2021, 11:44:40 pm by johnno56 »
Logged
Logic is the beginning of wisdom.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #34 on: December 24, 2021, 04:59:42 am »
@johnno56

thanks Johnno56

but there is a bug! peas are on the snow not on the Earth!

This is my handmade fix
  [ You are not allowed to view this attachment ]  
:-)

Thanks for hoping and joking ... it is a good light in this 4rth wave of Covid19!
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #35 on: December 24, 2021, 06:15:39 am »
That was something that I did not think of... lol
I thought you might have mentioned that it may be the wrong season for growing peas... lol
or... perhaps the Moose is blind and hard of hearing... Normally frightened of people...
or... Why is Mary out in the snow wearing, what looks like, a cotton dress? lol

Ho! Ho! Ho!  Code on!
Logged
Logic is the beginning of wisdom.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: 🎄🎁✨ Holiday Season Code Sampler 2021
« Reply #36 on: December 26, 2021, 02:01:27 pm »
@johnno56
Yeah, you're right! Too many misteries on this lighting picture

@QB64 World

Enjoy yourself boys and girls of Qb64 world!

I have discovered this fine lyric of Alan Parson Project.
Soirèè Fantastique
https://www.youtube.com/watch?v=JeWZqC5kdv4&list=RDLI8NDA_-zOo&index=7
That is my old time, but strangely I have never heard them except for some quickly apparition in the Sunday music show on TV!
So I'm discovering them again.
Logged
Programming isn't difficult, only it's  consuming time and coffee
Pages: 1 2 [3]   Go Up
« previous next »