« previous next »
Pages: [1]   Go Down

Author Topic: More Sky Chickens  (Read 4589 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
More Sky Chickens
« 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
  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
  51.  
  52. TYPE btype
  53.     x AS SINGLE
  54.     y AS SINGLE
  55.     f AS INTEGER
  56.     a AS SINGLE
  58.  
  59. DIM SHARED bs(10000) AS btype
  60. bi = -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
  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
  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
  109.  
  110.  
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: More Sky Chickens
« Reply #1 on: October 14, 2018, 04:40:38 pm »
Hitchcock would have been proud of THAT display! (...as well as Colonel Sanders!) Great job!
Logged
Logic is the beginning of wisdom.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: More Sky Chickens
« Reply #2 on: October 17, 2018, 05:28:01 pm »
Hi Bplus
very cool all these flying  birds!
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: More Sky Chickens
« Reply #3 on: October 17, 2018, 07:34:19 pm »
Ha! Don't they look familiar? ;D
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: More Sky Chickens
« Reply #4 on: October 18, 2018, 07:25:46 pm »
not in the blue :-)
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: More Sky Chickens
« Reply #5 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
  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
  54.  
  55. TYPE btype
  56.     x AS SINGLE
  57.     y AS SINGLE
  58.     f AS INTEGER
  59.     a AS SINGLE
  61.  
  62. DIM SHARED bs(10000) AS btype
  63. bi = -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
  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
  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
  112.  

Blue. As per your request... lol

J
Logged
Logic is the beginning of wisdom.
Pages: [1]   Go Up
« previous next »