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

Author Topic: U.S. Flag  (Read 4631 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #15 on: May 15, 2020, 11:56:36 am »
Great work Vince!
Stxaxtic, I posted yours above already. :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #16 on: June 06, 2020, 09:33:32 pm »
Today I decided to make the stars on this flag look better without using DATA lines. I also added random hills in the background. Pressing the Space Bar makes different random hills in the background. I added a picture here.

Code: QB64: [Select]
  1. 'Made to honor the U.S. Flag.
  2. 'Feel free to use any or all of this code in your own applications or games.
  3. 'By Sierraken on May 11, 2020.
  4. 'Updated with better stars without using DATA lines and random hills on June 6, 2020.
  5.  
  6. _LIMIT 300
  7. _TITLE "U.S. Flag - Press Space Bar to change hills."
  8. SCREEN _NEWIMAGE(800, 600, 32)
  9. Go:
  11. x = 150
  12. y = 100
  13.  
  14. 'Sky
  15. PAINT (2, 2), _RGB32(0, 205, 255)
  16.  
  17. 'Random Hills
  19. hills = INT(RND * 40) + 3
  20. FOR h = 1 TO hills
  22.     hx = INT(RND * 800) + 1
  23.     size = INT(RND * 450) + 75
  24.     cl = INT(RND * 155) + 100
  25.     shape = RND
  26.     FOR sz = .25 TO size STEP .25
  27.         CIRCLE (hx, 599), sz, _RGB32(10, cl, 20), , , shape
  28.     NEXT sz
  30. 'Stars
  31. LINE (x, y)-(x + 185, y + 130), _RGB32(0, 0, 255), BF
  32. FOR xx = 155 TO 345 STEP 32
  33.     FOR yy = 105 TO 220 STEP 28
  34.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  35.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  36.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  37.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  38.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  39.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  40.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  41.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  42.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  43.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  44.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  45.     NEXT yy
  46. NEXT xx
  47.  
  48. FOR xx = 172 TO 329 STEP 32
  49.     FOR yy = 118.9 TO 213.05 STEP 28
  50.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  51.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  52.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  53.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  54.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  55.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  56.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  57.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  58.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  59.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  60.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  61.     NEXT yy
  62. NEXT xx
  63.  
  64. 'Stripes
  65. FOR rs = 100 TO 230 STEP 37.2
  66.     w = w + 1
  67.     LINE (335, rs)-(612.5, rs + 18.6), _RGB32(255, 0, 0), BF
  68.     IF w > 3 THEN GOTO nex:
  69.     LINE (335, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 255, 255), BF
  70. NEXT rs
  71. nex:
  72. w = 0
  73. FOR rs = 230 TO 341.6 STEP 37.2
  74.     r = r + 1
  75.     LINE (150, rs)-(612.5, rs + 18.6), _RGB32(255, 255, 255), BF
  76.     IF r > 3 THEN GOTO nex2:
  77.     LINE (150, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 0, 0), BF
  78. NEXT rs
  79. nex2:
  80. r = 0
  81.  
  82. 'Flag Pole
  83. FOR sz = .25 TO 10 STEP .25
  84.     CIRCLE (145, 80), sz, _RGB32(122, 128, 166)
  85. NEXT sz
  86. LINE (142, 80)-(147, 600), _RGB32(122, 128, 166), BF
  88. 'Wait for key.
  90.     a$ = INKEY$
  91.     IF a$ = " " THEN GOTO Go:
  92.     IF a$ = CHR$(27) THEN END
  94.  
Ken's US Flag Program 2.jpg
* Ken's US Flag Program 2.jpg (Filesize: 87.52 KB, Dimensions: 804x626, Views: 418)
« Last Edit: June 06, 2020, 09:42:02 pm by SierraKen »
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: U.S. Flag
« Reply #17 on: June 07, 2020, 01:32:18 am »
Good work... Nice graphics. :)
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #18 on: June 07, 2020, 01:13:45 pm »
Thanks Ashish :). My first flag I made a month ago has stars that are very "curvy" looking so I decided to make them look a little sharper and better and without the DATA lines. So what I did was just use  LINE commands making a star just like you would draw it on paper. Then I used PAINT commands to fill in the gaps. :)
« Last Edit: June 07, 2020, 01:14:54 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #19 on: June 16, 2020, 12:40:33 am »
Tonight I was able to use my water waves formula to capture the colors of my flag and make the flag wave. I also added a night/day cycle for the sky. I had to delete the hills though because I couldn't figure out the PUTIMAGE stuff again, not sure if it's even possible to keep an animation moving and grab new hills and keep them in the background. I tried it with just using arrays, without the PUTIMAGE stuff and it just slowed the flag animation down greatly and got slower as it went. I do use a huge amount of memory to grab the entire flag and put every pixel in memory to make it wave, I hope it's not too much for one DIM statement. Anyhow, please check it out. I've wanted to make a flag wave for a very long time. It's not as good as the realistic one somewhere else on this thread, but it's an accomplishment for me. :)

Code: QB64: [Select]
  1. 'Made to honor the U.S. Flag.
  2. 'Feel free to use any or all of this code in your own applications or games.
  3. 'By Sierraken on May 11, 2020.
  4. 'Updated to make the flag wave and night and day cycle on June 15, 2020.
  5.  
  6. _TITLE "U.S. Flag"
  7. SCREEN _NEWIMAGE(800, 600, 32)
  9. x = 150
  10. y = 100
  11. DIM cf&(113000)
  12.  
  13. 'Stars
  14. LINE (x, y)-(x + 185, y + 130), _RGB32(0, 0, 255), BF
  15. FOR xx = 155 TO 345 STEP 32
  16.     FOR yy = 105 TO 220 STEP 28
  17.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  18.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  19.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  20.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  21.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  22.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  23.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  24.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  25.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  26.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  27.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  28.     NEXT yy
  29. NEXT xx
  30.  
  31. FOR xx = 172 TO 329 STEP 32
  32.     FOR yy = 118.9 TO 213.05 STEP 28
  33.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  34.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  35.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  36.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  37.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  38.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  39.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  40.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  41.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  42.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  43.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  44.     NEXT yy
  45. NEXT xx
  46.  
  47. 'Stripes
  48. FOR rs = 100 TO 230 STEP 37.2
  49.     w = w + 1
  50.     LINE (335, rs)-(612.5, rs + 18.6), _RGB32(255, 0, 0), BF
  51.     IF w > 3 THEN GOTO nex:
  52.     LINE (335, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 255, 255), BF
  53. NEXT rs
  54. nex:
  55. w = 0
  56. FOR rs = 230 TO 341.6 STEP 37.2
  57.     r = r + 1
  58.     LINE (150, rs)-(612.5, rs + 18.6), _RGB32(255, 255, 255), BF
  59.     IF r > 3 THEN GOTO nex2:
  60.     LINE (150, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 0, 0), BF
  61. NEXT rs
  62. nex2:
  63. r = 0
  64. FOR fy = 100 TO 341.6
  65.     FOR fx = 150 TO 612.5
  66.         t5 = t5 + 1
  67.         cf&(t5) = POINT(fx, fy)
  68.     NEXT fx
  69. NEXT fy
  70. t = 20
  72.     _LIMIT 20
  73.     'Sky
  74.     hour$ = LEFT$(TIME$, 2)
  75.     hour = VAL(hour$)
  76.     IF hour < 21 AND hour >= 6 THEN
  77.         PAINT (2, 2), _RGB32(0, 205, 255)
  78.     END IF
  79.  
  80.     'Flag Pole
  81.     FOR sz = .25 TO 10 STEP .25
  82.         CIRCLE (145, 80), sz, _RGB32(122, 128, 166)
  83.     NEXT sz
  84.     LINE (142, 80)-(147, 600), _RGB32(122, 128, 166), BF
  85.     FOR fy = 100 TO 341.6
  86.         FOR fx = 150 TO 612.5
  87.             t6 = t6 + 1
  88.             PSET (fx, (SIN(fx * 0.017453) * t) + fy), cf&(t6)
  89.         NEXT fx
  90.     NEXT fy
  91.     fx2 = fx2 + 1
  92.     IF fx2 = 242 THEN fx2 = 0
  93.     t6 = 0
  94.     IF tt = 0 THEN t = t + 1
  95.     IF t > 30 THEN tt = 1
  96.     IF tt = 1 THEN t = t - 1
  97.     IF t < -30 THEN tt = 0
  98.     a$ = INKEY$
  99.     IF a$ = CHR$(27) THEN END
  100.     _DISPLAY
  101.     CLS
  103.  
« Last Edit: June 16, 2020, 12:46:58 am by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: U.S. Flag
« Reply #20 on: June 16, 2020, 11:56:25 am »
Wave back to you Ken, coming along nicely!

Since last night Podcast, I've been thinking about layers allot.

Do the hills on completely different screen:
hills& = _Newimage(_width, _height, 32)

_DEST hills&
'now draw just hills like normal

'now back to main screen
_DEST 0

'use hills for background and then draw flag in fore ground on top of background.

_PUTIMAGE , hills&, 0  'my background hills

'draw flag

'use _PUTIMAGE , hills&, 0  'my background hills to CLS putting the background in loop for waving flag drawing

Might be more details to get it working but that is gist I think.
« Last Edit: June 16, 2020, 12:06:09 pm by bplus »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #21 on: June 16, 2020, 02:15:36 pm »
Thanks b+, it works perfectly now! I also made the flag waving look more realistic.

Code: QB64: [Select]
  1. 'Made to honor the U.S. Flag.
  2. 'By Sierraken
  3. 'Feel free to use any or all of this code in your own applications or games.
  4. 'Updated with better flag waving and a hills fix on June 16, 2020.
  5. 'Thank you to B+ for a little help on the hills!
  6.  
  7. _TITLE "U.S. Flag - Use space bar to change hills background."
  8. SCREEN _NEWIMAGE(800, 600, 32)
  10. x = 150
  11. y = 100
  12. DIM cf&(113000)
  13.  
  14. GOSUB hills:
  15.  
  16. 'Stars
  17. LINE (x, y)-(x + 185, y + 130), _RGB32(0, 0, 255), BF
  18. FOR xx = 155 TO 345 STEP 32
  19.     FOR yy = 105 TO 220 STEP 28
  20.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  21.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  22.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  23.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  24.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  25.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  26.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  27.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  28.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  29.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  30.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  31.     NEXT yy
  32. NEXT xx
  33.  
  34. FOR xx = 172 TO 329 STEP 32
  35.     FOR yy = 118.9 TO 213.05 STEP 28
  36.         LINE (xx + 2, yy + 12)-(xx + 7, yy), _RGB32(255, 255, 255)
  37.         LINE (xx + 7, yy)-(xx + 13, yy + 12), _RGB32(255, 255, 255)
  38.         LINE (xx + 13, yy + 12)-(xx, yy + 5), _RGB32(255, 255, 255)
  39.         LINE (xx, yy + 5)-(xx + 15, yy + 5), _RGB32(255, 255, 255)
  40.         LINE (xx + 15, yy + 5)-(xx + 2, yy + 12), _RGB32(255, 255, 255)
  41.         PAINT (xx + 7, yy + 2), _RGB32(255, 255, 255)
  42.         PAINT (xx + 7, yy + 6), _RGB32(255, 255, 255)
  43.         PAINT (xx + 11, yy + 10), _RGB32(255, 255, 255)
  44.         PAINT (xx + 4, yy + 10), _RGB32(255, 255, 255)
  45.         PAINT (xx + 3, yy + 6), _RGB32(255, 255, 255)
  46.         PAINT (xx + 12, yy + 6), _RGB32(255, 255, 255)
  47.     NEXT yy
  48. NEXT xx
  49.  
  50. 'Stripes
  51. FOR rs = 100 TO 230 STEP 37.2
  52.     w = w + 1
  53.     LINE (335, rs)-(612.5, rs + 18.6), _RGB32(255, 0, 0), BF
  54.     IF w > 3 THEN GOTO nex:
  55.     LINE (335, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 255, 255), BF
  56. NEXT rs
  57. nex:
  58. w = 0
  59. FOR rs = 230 TO 341.6 STEP 37.2
  60.     r = r + 1
  61.     LINE (150, rs)-(612.5, rs + 18.6), _RGB32(255, 255, 255), BF
  62.     IF r > 3 THEN GOTO nex2:
  63.     LINE (150, rs + 18.6)-(612.5, rs + 37.2), _RGB32(255, 0, 0), BF
  64. NEXT rs
  65. nex2:
  66. r = 0
  67. FOR fy = 100 TO 341.6
  68.     FOR fx = 150 TO 612.5
  69.         t5 = t5 + 1
  70.         cf&(t5) = POINT(fx, fy)
  71.     NEXT fx
  72. NEXT fy
  73. t = 20
  75.     _LIMIT 10
  76.     'Sky
  77.     hour$ = LEFT$(TIME$, 2)
  78.     hour = VAL(hour$)
  79.     IF hour < 21 AND hour >= 6 THEN
  80.         PAINT (2, 2), _RGB32(0, 205, 255)
  81.     END IF
  82.     _PUTIMAGE , hills&, 0
  83.     'Flag Pole
  84.     FOR sz = .25 TO 10 STEP .25
  85.         CIRCLE (145, 80), sz, _RGB32(122, 128, 166)
  86.     NEXT sz
  87.     LINE (142, 80)-(147, 600), _RGB32(122, 128, 166), BF
  88.     fx2 = fx2 + 1.2
  89.     IF fx2 > 5 THEN fx2 = 1.2
  90.     FOR fy = 100 TO 341.6
  91.         FOR fx = 150 TO 612.5
  92.             t6 = t6 + 1
  93.             PSET ((SIN(fy * 0.017453 / fx2) * t) + fx, (SIN(fx * 0.017453 / fx2) * t) + fy), cf&(t6)
  94.         NEXT fx
  95.     NEXT fy
  96.     t6 = 0
  97.     IF tt = 0 THEN t = t + 1
  98.     IF t > 10 THEN tt = 1
  99.     IF tt = 1 THEN t = t - 1
  100.     IF t < -10 THEN tt = 0
  101.     a$ = INKEY$
  102.     IF a$ = CHR$(27) THEN END
  103.     IF a$ = " " THEN GOSUB hills:
  104.     _DISPLAY
  105.     CLS
  107.  
  108. hills:
  109. 'Random Hills
  110. hills& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
  111. _DEST hills&
  113. hills = INT(RND * 40) + 3
  114. FOR h = 1 TO hills
  116.     hx = INT(RND * 800) + 1
  117.     size = INT(RND * 450) + 75
  118.     cl = INT(RND * 155) + 100
  119.     shape = RND
  120.     FOR sz = .25 TO size STEP .25
  121.         CIRCLE (hx, 599), sz, _RGB32(10, cl, 20), , , shape
  122.     NEXT sz
  126.  

Logged

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
    • View Profile
Re: U.S. Flag
« Reply #22 on: June 16, 2020, 02:35:58 pm »

very beautiful and spectacular !! congratulations!
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: U.S. Flag
« Reply #23 on: June 16, 2020, 02:37:08 pm »
+1

Wow that was fast!

I wonder why that flag looks a little jumpy, I sped up the _LIMIT, a little less jumpy but too fast.

I wonder if you make a flag image (only 1 time draw) like the hills image and lay different width sections on top of each other starting from left and going right, or take vertical lines of the flag and lay them out with slight overlaps going up and down but also going lower towards ground towards right.

Now I wonder if you got that?  ;-))

Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #24 on: June 16, 2020, 03:35:25 pm »
Nothing overlaps except over the hills and sometimes the pole. It makes a new flag on every frame of animation. Or are you hinting at that? Yesterday I had it overlapping a tiny bit but it was a mess. lol The flag moves like that as an effect from the wind. :)

I just added the National Anthem and the hills change every 2 seconds. (Please no political posts.) I'll add the .bas and the .mp3 file to the attachments in a zip file. Enjoy. I'm also going to make a YouTube of it as well.

* US Flag by Sierraken.zip (Filesize: 1.03 MB, Downloads: 244)
« Last Edit: June 16, 2020, 04:35:04 pm by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: U.S. Flag
« Reply #25 on: June 16, 2020, 05:49:38 pm »
Wow you have it on YouTube! I feel like saluting!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #26 on: June 16, 2020, 07:06:54 pm »
LOL Thanks :)
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: U.S. Flag
« Reply #27 on: June 17, 2020, 12:12:26 am »
Amazing! Beautiful!
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: U.S. Flag
« Reply #28 on: June 17, 2020, 12:20:40 am »
Thanks everyone :))
Logged

Offline DANILIN

  • Forum Regular
  • Posts: 128
    • View Profile
    • Danilin youtube
Re: U.S. Flag
« Reply #29 on: June 17, 2020, 01:05:46 pm »
Flagimation & Ezgif

 
SierraKen.gif
   
USAflag.gif




 
fldelen.gif
SierraKen.bmp
« Last Edit: June 17, 2020, 01:31:13 pm by DANILIN »
Logged
Russia looks world from future. big data is peace data.
https://youtube.com/playlist?list=PLBBTP9oVY7IagpH0g9FNUQ8JqmHwxDDDB
i never recommend anything to anyone and always write only about myself
Pages: 1 [2]   Go Up
« previous next »