QB64.org Forum

Active Forums => Programs => Topic started by: bplus on October 14, 2018, 11:35:44 am

Title: More Sky Chickens
Post by: bplus on October 14, 2018, 11:35:44 am

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. _SCREENMOVE 300, 50
3. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
4. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
5. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10. DATA 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
11. DATA 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
12. DATA 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
13. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
14. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
15. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
16. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19.  
20. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
21. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
26. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
27. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
28. DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
29. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
30. DATA 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
31. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
32. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
33. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
34. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
35. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
36.  
37.  
38. DIM SHARED sprt(15, 15)
39. FOR y = 0 TO 15
40.     FOR x = 0 TO 15
41.         READ sprt(x, y)
42.     NEXT
43. NEXT
44.  
45. DIM SHARED sprt2(15, 15)
46. FOR y = 0 TO 15
47.     FOR x = 0 TO 15
48.         READ sprt2(x, y)
49.     NEXT
50. NEXT
51.  
52. TYPE btype
53.     x AS SINGLE
54.     y AS SINGLE
55.     f AS INTEGER
56.     a AS SINGLE
57. END TYPE
58.  
59. DIM SHARED bs(10000) AS btype
60. bi = -1
61. WHILE 1
62.     CLS , _RGB32(0, 0, 128)
63.     nloop = nloop + 1
64.     IF RND < .15 AND (bi + 1) < 10000 THEN
65.         bi = bi + 1
66.         newb bi
67.     END IF
68.     FOR i = 0 TO bi
69.         drawb i
70.     NEXT
71.     _DISPLAY
72.     _LIMIT 20
73. WEND
74.  
75. SUB newb (i)
76.     bs(i).x = 800 + RND * 320
77.     bs(i).y = 600 + RND * 80
78.     bs(i).f = INT(RND * 2)
79.     bs(i).a = 0
80. END SUB
81.  
82. SUB drawb (i)
83.     IF bs(i).a < _PI(16) AND bs(i).y < 580 AND bs(i).y > -100 THEN
84.         bs(i).a = bs(i).a + _PI(1 / 144)
85.         bs(i).x = bs(i).x + bs(i).a * COS(bs(i).a)
86.         bs(i).y = bs(i).y + .2 * bs(i).a * SIN(bs(i).a)
87.         bs(i).y = bs(i).y - .2
88.     ELSE
89.         bs(i).x = bs(i).x - (RND * 8 + 2)
90.         bs(i).y = bs(i).y - (RND * 6 + 1)
91.     END IF
92.     IF bs(i).y < -160 THEN newb i
93.     bs(i).f = (bs(i).f + 1) MOD 10
94.     sz = (600 - bs(i).y) * .006
95.     IF bs(i).f = 0 OR bs(i).f = 1 THEN
96.         FOR y = 0 TO 15
97.             FOR x = 0 TO 15
98.                 IF sprt2(x, y) THEN LINE (x * sz + bs(i).x, y * sz + bs(i).y)-STEP(sz, sz), _RGB32(0, 0, 0), BF
99.             NEXT
100.         NEXT
101.     ELSE
102.         FOR y = 0 TO 15
103.             FOR x = 0 TO 15
104.                 IF sprt(x, y) THEN LINE (x * sz + bs(i).x, y * sz + bs(i).y)-STEP(sz, sz), _RGB32(0, 0, 0), BF
105.             NEXT
106.         NEXT
107.     END IF
108. END SUB
109.  
110.  

Title: Re: More Sky Chickens
Post by: johnno56 on October 14, 2018, 04:40:38 pm

Hitchcock would have been proud of THAT display! (...as well as Colonel Sanders!) Great job!

Title: Re: More Sky Chickens
Post by: TempodiBasic on October 17, 2018, 05:28:01 pm

Hi Bplus
very cool all these flying  birds!

Title: Re: More Sky Chickens
Post by: bplus on October 17, 2018, 07:34:19 pm

Ha! Don't they look familiar? ;D

Title: Re: More Sky Chickens
Post by: TempodiBasic on October 18, 2018, 07:25:46 pm

not in the blue :-)

Title: Re: More Sky Chickens
Post by: johnno56 on October 19, 2018, 03:32:00 am

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. _SCREENMOVE 300, 50
3.  
4. CONST lightblue = _RGB32(128, 128, 255)
5.  
6. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
11. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
13. DATA 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
14. DATA 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
15. DATA 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
16. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
17. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
21. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
22.  
23. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
26. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
27. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
28. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
29. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
30. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
31. DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
32. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
33. DATA 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
34. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
35. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
36. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
37. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
38. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
39.  
40.  
41. DIM SHARED sprt(15, 15)
42. FOR y = 0 TO 15
43.     FOR x = 0 TO 15
44.         READ sprt(x, y)
45.     NEXT
46. NEXT
47.  
48. DIM SHARED sprt2(15, 15)
49. FOR y = 0 TO 15
50.     FOR x = 0 TO 15
51.         READ sprt2(x, y)
52.     NEXT
53. NEXT
54.  
55. TYPE btype
56.     x AS SINGLE
57.     y AS SINGLE
58.     f AS INTEGER
59.     a AS SINGLE
60. END TYPE
61.  
62. DIM SHARED bs(10000) AS btype
63. bi = -1
64. WHILE 1
65.     CLS , _RGB32(0, 0, 128)
66.     nloop = nloop + 1
67.     IF RND < .15 AND (bi + 1) < 10000 THEN
68.         bi = bi + 1
69.         newb bi
70.     END IF
71.     FOR i = 0 TO bi
72.         drawb i
73.     NEXT
74.     _DISPLAY
75.     _LIMIT 20
76. WEND
77.  
78. SUB newb (i)
79.     bs(i).x = 800 + RND * 320
80.     bs(i).y = 600 + RND * 80
81.     bs(i).f = INT(RND * 2)
82.     bs(i).a = 0
83. END SUB
84.  
85. SUB drawb (i)
86.     IF bs(i).a < _PI(16) AND bs(i).y < 580 AND bs(i).y > -100 THEN
87.         bs(i).a = bs(i).a + _PI(1 / 144)
88.         bs(i).x = bs(i).x + bs(i).a * COS(bs(i).a)
89.         bs(i).y = bs(i).y + .2 * bs(i).a * SIN(bs(i).a)
90.         bs(i).y = bs(i).y - .2
91.     ELSE
92.         bs(i).x = bs(i).x - (RND * 8 + 2)
93.         bs(i).y = bs(i).y - (RND * 6 + 1)
94.     END IF
95.     IF bs(i).y < -160 THEN newb i
96.     bs(i).f = (bs(i).f + 1) MOD 10
97.     sz = (600 - bs(i).y) * .006
98.     IF bs(i).f = 0 OR bs(i).f = 1 THEN
99.         FOR y = 0 TO 15
100.             FOR x = 0 TO 15
101.                 IF sprt2(x, y) THEN LINE (x * sz + bs(i).x, y * sz + bs(i).y)-STEP(sz, sz), lightblue, BF
102.             NEXT
103.         NEXT
104.     ELSE
105.         FOR y = 0 TO 15
106.             FOR x = 0 TO 15
107.                 IF sprt(x, y) THEN LINE (x * sz + bs(i).x, y * sz + bs(i).y)-STEP(sz, sz), lightblue, BF
108.             NEXT
109.         NEXT
110.     END IF
111. END SUB
112.  

Blue. As per your request... lol

J

Text Only | Text with Attachments