« previous next »
Pages: [1]   Go Down

Author Topic: Animated Flip The Coin  (Read 3884 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Animated Flip The Coin
« on: July 15, 2020, 08:20:33 pm »
After all these years I finally decided to make an animated coin flipping program. :) It shows the coin flip up in the air and come down. I added a bit of gravity realism going up and down to make it look more real. But I spent most of the time drawing the sides of the coin, Heads and Tales. I went off of the U.S. Penny as a model and just used CIRCLE, LINE, and PSET commands. What do you all think? I hope you like it. The trickiest part was making the stairs on the monument building because of the 45 (or so) degree angle ends.

Code: QB64: [Select]
  1. 'Flip The Coin - By SierraKen
  2. 'Made on July 15, 2020.
  3.  
  4. SCREEN _NEWIMAGE(800, 600, 32)
  5. _TITLE "Flip The Coin - By SierraKen"
  6. _LIMIT 100
  8. start:
  9. LOCATE 2, 1
  10. INPUT "Press Enter To Flip Coin.", a$
  12. SOUND 200, .5
  13. x = 400: y = 450
  14. tt = .2
  15. yy = 10
  16. yy2 = 1
  17. FOR cc = 1 TO 2
  18.     FOR c = 1 TO 30
  19.         t = t + tt
  20.         IF t > 1 THEN tt = -.3
  21.         IF t < .2 THEN tt = .3
  22.         FOR sz = .25 TO 40 STEP .25
  23.             CIRCLE (x, y), sz, _RGB32(0, 100, 0), , , t
  24.         NEXT sz
  25.         y = y - yy
  26.         yy = yy + yy2
  27.         _DELAY .02
  28.         _DISPLAY
  29.         CLS
  30.     NEXT c
  31.     yy2 = -1
  32.     yy = -10
  33. NEXT cc
  34.  
  35. '-------------- Draw the outcome -----------------
  37. side = INT(RND * 2) + 1
  38. IF side = 1 THEN
  39.     FOR sz = .25 TO 40 STEP .25
  40.         CIRCLE (400, 450), sz, _RGB32(0, 100, 0)
  41.     NEXT sz
  42.     'Head
  43.     FOR sz = .25 TO 20 STEP .25
  44.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0), , , 1.25
  45.     NEXT sz
  46.     'Eye
  47.     FOR sz = .25 TO 3 STEP .25
  48.         CIRCLE (390, 445), sz, _RGB32(0, 100, 0)
  49.     NEXT sz
  50.     'Nose
  51.     FOR sz = .25 TO 5 STEP .25
  52.         CIRCLE (382, 450), sz, _RGB32(0, 255, 0), , , .5
  53.     NEXT sz
  54.     'Mouth
  55.     FOR sz = .25 TO 5 STEP .25
  56.         CIRCLE (388, 457), sz, _RGB32(0, 100, 0), , , .5
  57.     NEXT sz
  58.     'Hair
  59.     FOR hy = 433 TO 455 STEP 3
  60.         FOR hx = 400 TO 420 STEP 3
  61.             IF POINT(hx, hy) = _RGB32(0, 255, 0) THEN CIRCLE (hx, hy), 2, _RGB32(0, 175, 0)
  62.         NEXT hx
  63.     NEXT hy
  65.  
  66. IF side = 2 THEN
  67.     FOR sz = .25 TO 40 STEP .25
  68.         CIRCLE (400, 450), sz, _RGB32(0, 100, 0)
  69.     NEXT sz
  70.     'Building
  71.     LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  72.     LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  73.     LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  74.     'Stairs
  75.     FOR sty = 455 TO 465 STEP 2
  76.         FOR stx = 369 TO 381
  77.             IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  78.                 FOR stx2 = stx TO 430
  79.                     PSET (stx2, sty), _RGB32(0, 255, 0)
  80.                     IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex:
  81.                 NEXT stx2
  82.             END IF
  83.         NEXT stx
  84.         nex:
  85.     NEXT sty
  86.     LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  87.     LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  88.     'Columns
  89.     xc = 380
  90.     FOR columns = 1 TO 12
  91.         xc = xc + 3.33
  92.         LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  93.     NEXT columns
  95. GOTO start:
  96.  
« Last Edit: July 15, 2020, 10:50:47 pm by SierraKen »
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Animated Flip The Coin
« Reply #1 on: July 15, 2020, 10:36:04 pm »
Neat, @SierraKen.  Now when my wife tells me to quit playing with QB64 and cook dinner, I can flip her for it.

I added an edge around the coin to enhance the flipping effect.

- Dav

Code: QB64: [Select]
  1. 'Flip The Coin - By SierraKen
  2. 'Made on July 15, 2020.
  3.  
  4. SCREEN _NEWIMAGE(800, 600, 32)
  5. _TITLE "Flip The Coin - By SierraKen"
  6. _LIMIT 100
  8. start:
  9. LOCATE 2, 1
  10. INPUT "Press Enter To Flip Coin.", a$
  12. SOUND 200, .5
  13. x = 400: y = 450
  14. tt = .2
  15. yy = 10
  16. yy2 = 1
  17. FOR cc = 1 TO 2
  18.     FOR c = 1 TO 30
  19.         t = t + tt
  20.         IF t > 1 THEN tt = -.3
  21.         IF t < .2 THEN tt = .3
  22.         FOR sz = .25 TO 40 STEP .25
  23.             CIRCLE (x, y), sz, _RGB32(0, 255, 0), , , t
  24.             CIRCLE (x, y), sz - 1, _RGB32(0, 100, 0), , , t
  25.         NEXT sz
  26.         y = y - yy
  27.         yy = yy + yy2
  28.         _DELAY .02
  29.         _DISPLAY
  30.         CLS
  31.     NEXT c
  32.     yy2 = -1
  33.     yy = -10
  34. NEXT cc
  35.  
  36. '-------------- Draw the outcome -----------------
  38. side = INT(RND * 2) + 1
  39. IF side = 1 THEN
  40.     FOR sz = .25 TO 40 STEP .25
  41.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0)
  42.         CIRCLE (400, 450), sz - 1, _RGB32(0, 100, 0)
  43.     NEXT sz
  44.     'Head
  45.     FOR sz = .25 TO 20 STEP .25
  46.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0), , , 1.25
  47.     NEXT sz
  48.     'Eye
  49.     FOR sz = .25 TO 3 STEP .25
  50.         CIRCLE (390, 445), sz, _RGB32(0, 100, 0)
  51.     NEXT sz
  52.     'Nose
  53.     FOR sz = .25 TO 5 STEP .25
  54.         CIRCLE (382, 450), sz, _RGB32(0, 255, 0), , , .5
  55.     NEXT sz
  56.     'Mouth
  57.     FOR sz = .25 TO 5 STEP .25
  58.         CIRCLE (388, 457), sz, _RGB32(0, 100, 0), , , .5
  59.     NEXT sz
  60.     'Hair
  61.     FOR hy = 433 TO 455 STEP 3
  62.         FOR hx = 400 TO 420 STEP 3
  63.             IF POINT(hx, hy) = _RGB32(0, 255, 0) THEN CIRCLE (hx, hy), 2, _RGB32(0, 175, 0)
  64.         NEXT hx
  65.     NEXT hy
  67.  
  68. IF side = 2 THEN
  69.     FOR sz = .25 TO 40 STEP .25
  70.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0)
  71.         CIRCLE (400, 450), sz - 1, _RGB32(0, 100, 0)
  72.     NEXT sz
  73.     'Building
  74.     LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  75.     LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  76.     LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  77.     'Stairs
  78.     FOR sty = 455 TO 465 STEP 2
  79.         FOR stx = 369 TO 381
  80.             IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  81.                 FOR stx2 = stx TO 430
  82.                     PSET (stx2, sty), _RGB32(0, 255, 0)
  83.                     IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex:
  84.                 NEXT stx2
  85.             END IF
  86.         NEXT stx
  87.         nex:
  88.     NEXT sty
  89.     LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  90.     LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  91.     'Columns
  92.     xc = 380
  93.     FOR columns = 1 TO 12
  94.         xc = xc + 3.33
  95.         LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  96.     NEXT columns
  98. GOTO start:
  99.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Animated Flip The Coin
« Reply #2 on: July 15, 2020, 10:42:47 pm »
Looks neat Dav, I thought about doing that too, but never got around to it. I posted a video of my version on the first post.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Animated Flip The Coin
« Reply #3 on: July 15, 2020, 10:50:33 pm »
Actually I like yours better. Am going to delete the video.
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Animated Flip The Coin
« Reply #4 on: July 15, 2020, 11:00:54 pm »
Nice.  I'm checking out your MAGIX Music Maker endeavors.   I played around with that program before too.  The Good times jazz one makes me want to whip out my flugelhorn to improv on.

- Dav
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Animated Flip The Coin
« Reply #5 on: July 15, 2020, 11:05:46 pm »
LOL GREAT!! Thank you for checking those out. I made those songs way back over 10 years ago on Windows XP. lol
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Animated Flip The Coin
« Reply #6 on: July 15, 2020, 11:31:46 pm »
Nice Animation! ;)
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: Animated Flip The Coin
« Reply #7 on: July 15, 2020, 11:38:22 pm »
Thanks Ashish!

I just changed it so if you have to click the coin with the mouse to flip it. :) I also removed the irritating sound. lol Also, Dav I kept your ring idea but I changed your code so the ring doesn't have to be made dozens of times along with the coin-fill in the loop. I just added the ring outside of the loop so the computer doesn't have to deal with that. I also removed _DISPLAY because there's really no reason for it I found out and also it was blocking the rest of the program I think because of the mouse code loops or something.
Anyway, here is the updated version:

Code: QB64: [Select]
  1. 'Flip The Coin - By SierraKen
  2. 'Made on July 15, 2020.
  3. 'Thanks to Dav for the ring around the coin idea.
  4.  
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. _TITLE "Click the coin to flip it."
  7. _LIMIT 100
  9. x = 400: y = 450
  10. FOR sz = .25 TO 40 STEP .25
  11.     CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  12. NEXT sz
  13. CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  14. 'Building
  15. LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  16. LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  17. LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  18. 'Stairs
  19. FOR sty = 455 TO 465 STEP 2
  20.     FOR stx = 369 TO 381
  21.         IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  22.             FOR stx2 = stx TO 430
  23.                 PSET (stx2, sty), _RGB32(0, 255, 0)
  24.                 IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex:
  25.             NEXT stx2
  26.         END IF
  27.     NEXT stx
  28.     nex:
  29. NEXT sty
  30. LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  31. LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  32. 'Columns
  33. xc = 380
  34. FOR columns = 1 TO 12
  35.     xc = xc + 3.33
  36.     LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  37. NEXT columns
  38.  
  39. start:
  42.         mouseX = _MOUSEX
  43.         mouseY = _MOUSEY
  44.         mouseLeftButton = _MOUSEBUTTON(1)
  45.     LOOP
  46.     IF mouseLeftButton THEN
  47.         IF POINT(mouseX, mouseY) <> _RGB32(0, 0, 0) THEN mouseLeftButton = 0: GOTO throw:
  48.     END IF
  50.  
  51.  
  52. throw:
  54. x = 400: y = 450
  55. tt = .2
  56. yy = 10
  57. yy2 = 1
  58. FOR cc = 1 TO 2
  59.     FOR c = 1 TO 30
  60.         t = t + tt
  61.         IF t > 1 THEN tt = -.3
  62.         IF t < .2 THEN tt = .3
  63.         FOR sz = .25 TO 40 STEP .25
  64.             CIRCLE (x, y), sz, _RGB32(0, 100, 0), , , t
  65.         NEXT sz
  66.         CIRCLE (x, y), 41, _RGB32(0, 255, 0), , , t
  67.         y = y - yy
  68.         yy = yy + yy2
  69.         _DELAY .02
  70.         CLS
  71.     NEXT c
  72.     yy2 = -1
  73.     yy = -10
  74. NEXT cc
  75.  
  76. '-------------- Draw the outcome -----------------
  77.  
  79. side = INT(RND * 2) + 1
  80.  
  81. IF side = 1 THEN
  82.     FOR sz = .25 TO 40 STEP .25
  83.         CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  84.     NEXT sz
  85.     CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  86.     'Head
  87.     FOR sz = .25 TO 20 STEP .25
  88.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0), , , 1.25
  89.     NEXT sz
  90.     'Eye
  91.     FOR sz = .25 TO 3 STEP .25
  92.         CIRCLE (390, 445), sz, _RGB32(0, 100, 0)
  93.     NEXT sz
  94.     'Nose
  95.     FOR sz = .25 TO 5 STEP .25
  96.         CIRCLE (382, 450), sz, _RGB32(0, 255, 0), , , .5
  97.     NEXT sz
  98.     'Mouth
  99.     FOR sz = .25 TO 5 STEP .25
  100.         CIRCLE (388, 457), sz, _RGB32(0, 100, 0), , , .5
  101.     NEXT sz
  102.     'Hair
  103.     FOR hy = 433 TO 455 STEP 3
  104.         FOR hx = 400 TO 420 STEP 3
  105.             IF POINT(hx, hy) = _RGB32(0, 255, 0) THEN CIRCLE (hx, hy), 2, _RGB32(0, 175, 0)
  106.         NEXT hx
  107.     NEXT hy
  109.  
  110. IF side = 2 THEN
  111.     FOR sz = .25 TO 40 STEP .25
  112.         CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  113.     NEXT sz
  114.     CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  115.     'Building
  116.     LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  117.     LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  118.     LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  119.     'Stairs
  120.     FOR sty = 455 TO 465 STEP 2
  121.         FOR stx = 369 TO 381
  122.             IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  123.                 FOR stx2 = stx TO 430
  124.                     PSET (stx2, sty), _RGB32(0, 255, 0)
  125.                     IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex2:
  126.                 NEXT stx2
  127.             END IF
  128.         NEXT stx
  129.         nex2:
  130.     NEXT sty
  131.     LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  132.     LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  133.     'Columns
  134.     xc = 380
  135.     FOR columns = 1 TO 12
  136.         xc = xc + 3.33
  137.         LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  138.     NEXT columns
  140. GOTO start:
  141.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Animated Flip The Coin
« Reply #8 on: July 16, 2020, 03:00:28 pm »
I just added spinning the coin as an option. To toss the coin in the air, you left click it, to spin the coin you right click it.

Code: QB64: [Select]
  1. 'Flip The Coin - By SierraKen
  2. 'Made on July 16, 2020.
  3. 'Thanks to Dav for the ring around the coin idea.
  4.  
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. _TITLE "Left Click the coin to flip it in the air. Right Click the coin to spin it."
  7. _LIMIT 100
  9. x = 400: y = 450
  10. FOR sz = .25 TO 40 STEP .25
  11.     CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  12. NEXT sz
  13. CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  14. 'Building
  15. LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  16. LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  17. LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  18. 'Stairs
  19. FOR sty = 455 TO 465 STEP 2
  20.     FOR stx = 369 TO 381
  21.         IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  22.             FOR stx2 = stx TO 430
  23.                 PSET (stx2, sty), _RGB32(0, 255, 0)
  24.                 IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex:
  25.             NEXT stx2
  26.         END IF
  27.     NEXT stx
  28.     nex:
  29. NEXT sty
  30. LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  31. LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  32. 'Columns
  33. xc = 380
  34. FOR columns = 1 TO 12
  35.     xc = xc + 3.33
  36.     LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  37. NEXT columns
  38.  
  39. start:
  42.         mouseX = _MOUSEX
  43.         mouseY = _MOUSEY
  44.         mouseLeftButton = _MOUSEBUTTON(1)
  45.         mouseRightButton = _MOUSEBUTTON(2)
  46.     LOOP
  47.     IF mouseRightButton THEN
  48.         IF POINT(mouseX, mouseY) <> _RGB32(0, 0, 0) THEN mouseRightButton = 0: GOTO spin:
  49.     END IF
  50.  
  51.     IF mouseLeftButton THEN
  52.         IF POINT(mouseX, mouseY) <> _RGB32(0, 0, 0) THEN mouseLeftButton = 0: GOTO throw:
  53.     END IF
  55.  
  56. spin:
  57.  
  59. x = 400: y = 450
  60. tt = 1
  61. yy = 10
  62. FOR cc = 1 TO 2
  63.     FOR c = 1 TO 25
  64.         t = t + tt
  65.         IF t > 2 THEN tt = -.2
  66.         IF t < 1 THEN tt = .2
  67.         FOR sz = .25 TO 40 STEP .25
  68.             CIRCLE (x, y), sz, _RGB32(0, 100, 0), , , t
  69.         NEXT sz
  70.         CIRCLE (x, y), 41, _RGB32(0, 255, 0), , , t
  71.         x = x - yy
  72.         _DELAY .02
  73.         CLS
  74.     NEXT c
  75.     yy = -10
  76. NEXT cc
  77. FOR cc = 1 TO 2
  78.     FOR c = 1 TO 25
  79.         t = t + tt
  80.         IF t > 2 THEN tt = -.2
  81.         IF t < 1 THEN tt = .2
  82.         FOR sz = .25 TO 40 STEP .25
  83.             CIRCLE (x, y), sz, _RGB32(0, 100, 0), , , t
  84.         NEXT sz
  85.         CIRCLE (x, y), 41, _RGB32(0, 255, 0), , , t
  86.         x = x - yy
  87.         _DELAY .02
  88.         CLS
  89.     NEXT c
  90.     yy = 10
  91. NEXT cc
  92.  
  93.  
  94.  
  95. GOTO outcome:
  96.  
  97. throw:
  99. x = 400: y = 450
  100. tt = .2
  101. yy = 10
  102. yy2 = 1
  103. FOR cc = 1 TO 2
  104.     FOR c = 1 TO 30
  105.         t = t + tt
  106.         IF t > 1 THEN tt = -.3
  107.         IF t < .2 THEN tt = .3
  108.         FOR sz = .25 TO 40 STEP .25
  109.             CIRCLE (x, y), sz, _RGB32(0, 100, 0), , , t
  110.         NEXT sz
  111.         CIRCLE (x, y), 41, _RGB32(0, 255, 0), , , t
  112.         y = y - yy
  113.         yy = yy + yy2
  114.         _DELAY .02
  115.         CLS
  116.     NEXT c
  117.     yy2 = -1
  118.     yy = -10
  119. NEXT cc
  120.  
  121. '-------------- Draw the outcome -----------------
  122.  
  123. outcome:
  125. side = INT(RND * 2) + 1
  126.  
  127. IF side = 1 THEN
  128.     FOR sz = .25 TO 40 STEP .25
  129.         CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  130.     NEXT sz
  131.     CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  132.     'Head
  133.     FOR sz = .25 TO 20 STEP .25
  134.         CIRCLE (400, 450), sz, _RGB32(0, 255, 0), , , 1.25
  135.     NEXT sz
  136.     'Eye
  137.     FOR sz = .25 TO 3 STEP .25
  138.         CIRCLE (390, 445), sz, _RGB32(0, 100, 0)
  139.     NEXT sz
  140.     'Nose
  141.     FOR sz = .25 TO 5 STEP .25
  142.         CIRCLE (382, 450), sz, _RGB32(0, 255, 0), , , .5
  143.     NEXT sz
  144.     'Mouth
  145.     FOR sz = .25 TO 5 STEP .25
  146.         CIRCLE (388, 457), sz, _RGB32(0, 100, 0), , , .5
  147.     NEXT sz
  148.     'Hair
  149.     FOR hy = 433 TO 455 STEP 3
  150.         FOR hx = 400 TO 420 STEP 3
  151.             IF POINT(hx, hy) = _RGB32(0, 255, 0) THEN CIRCLE (hx, hy), 2, _RGB32(0, 175, 0)
  152.         NEXT hx
  153.     NEXT hy
  155.  
  156. IF side = 2 THEN
  157.     FOR sz = .25 TO 40 STEP .25
  158.         CIRCLE (x, y), sz, _RGB32(0, 100, 0)
  159.     NEXT sz
  160.     CIRCLE (x, y), 41, _RGB32(0, 255, 0)
  161.     'Building
  162.     LINE (380, 440)-(420, 455), _RGB32(0, 255, 0), B
  163.     LINE (380, 455)-(370, 465), _RGB32(0, 255, 0)
  164.     LINE (420, 455)-(430, 465), _RGB32(0, 255, 0)
  165.     'Stairs
  166.     FOR sty = 455 TO 465 STEP 2
  167.         FOR stx = 369 TO 381
  168.             IF POINT(stx, sty) = _RGB32(0, 255, 0) THEN
  169.                 FOR stx2 = stx TO 430
  170.                     PSET (stx2, sty), _RGB32(0, 255, 0)
  171.                     IF POINT(stx2 + 1, sty) = _RGB32(0, 255, 0) THEN GOTO nex2:
  172.                 NEXT stx2
  173.             END IF
  174.         NEXT stx
  175.         nex2:
  176.     NEXT sty
  177.     LINE (370, 465)-(430, 465), _RGB32(0, 255, 0)
  178.     LINE (385, 440)-(415, 435), _RGB32(0, 255, 0), B
  179.     'Columns
  180.     xc = 380
  181.     FOR columns = 1 TO 12
  182.         xc = xc + 3.33
  183.         LINE (xc, 440)-(xc, 455), _RGB32(0, 255, 0)
  184.     NEXT columns
  186. GOTO start:
  187.  
Logged
Pages: [1]   Go Up
« previous next »