Flower

[SierraKen]

I made my first rose today for the First Day of Spring. I posted the picture of it below.

Code: QB64: [Select]

1. Screen _NewImage(800, 600, 32)
2. _Title "Happy First Day Of Spring!"
3.  
4. _Limit 30
5. Paint (1, 1), _RGB32(128, 255, 255)
6. For sz = .1 To 600 Step .1
7.     Circle (400, 900), sz, _RGB32(127, 255, 127)
8. Next sz
9.  
10. Line (398, 300)-(402, 250), _RGB32(127, 255, 0), BF
11.  
12. For sz2 = -5 To 5 Step .5
13.     Circle (400 - sz2, 150 + sz2), sz2 + 100, _RGB32(255, 0, 0), _Pi, (3 * _Pi) / 2
14.     Circle (300 + sz2, 250 - sz2), sz2 + 100, _RGB32(255, 0, 0), (2 * _Pi), _Pi / 2
15. Next sz2
16.  
17. For sz3 = -5 To 5 Step .5
18.     Circle (400 + sz3, 150 + sz3), sz3 + 100, _RGB32(255, 0, 0), (3 * _Pi) / 2, 2 * _Pi
19.     Circle (500 - sz3, 250 - sz3), sz3 + 100, _RGB32(255, 0, 0), (_Pi / 2), _Pi
20. Next sz3
21.  
22. Line (399, 200)-(401, 150), _RGB32(127, 255, 127), BF
23. For sz4 = .1 To 5 Step .1
24.     Circle (400, 145), sz4, _RGB32(255, 255, 127)
25. Next sz4
26.  
27. Paint (375, 225), _RGB32(255, 0, 1), _RGB32(255, 0, 0)
28. Paint (425, 225), _RGB32(255, 0, 1), _RGB32(255, 0, 0)
29.  
30. Do
31. Loop Until InKey$ <> ""
32.  

[Pete]

Makes me think we need a new QB64 keyword...

_ROUNDUP

Pete :D

[bplus]

OK for spring!

Code: QB64: [Select]

1. _Title "May Flowers" 'b+ trans 2022-03-20
2. 'May flowers.bas SmallBASIC 2015-05-06 B+
3. Const xmax = 800, ymax = 600
4. Screen _NewImage(xmax, ymax, 32)
5. _ScreenMove 200, 100
6. sq = (ymax - 100) ^ 4
7. For i = 0 To 100
8.     Line (0, i)-(xmax, i), _RGB32(0, 0, 155 + i)
9. Next
10. For i = 100 To ymax
11.     Line (0, i)-(xmax, i), _RGB32(0, 210 - .25 * i, 0)
12. Next
13. For i = 1 To 125
14.     x = Rnd * xmax: s = Rnd * 8: y = 100 - s: cc = Rnd * 75: col~& = _RGB32(cc, cc, cc)
15.     Line (x, y)-Step(s, s), col~&, BF
16. Next
17. Do
18.     cc = Int(Rnd * 12) * 5 + 200
19.     col~& = _RGB32(cc, cc, 0)
20.     petals = (20 * Rnd) + 5
21.     xoff = Rnd * xmax
22.     yoff = ymax - (Rnd * sq) ^ .25
23.     size = (yoff / 100) ^ 2
24.     For theta = 0 To 2 * 3.14159 Step 0.001
25.         r = Cos(petals * theta)
26.         For fil = 0 To size
27.             x = r * Cos(theta) * fil + xoff
28.             y = r * Sin(theta) * fil + yoff
29.             PSet (x, y), col~&
30.         Next fil
31.     Next theta
32.     _Limit 20
33. Loop Until InKey$ = " "
34.  
35.  

How much Roundup does Pete have?

[SierraKen]

LOL Thanks B+. My pollen allergies!!! LOL