3D Polygon Graphic Maker

[SierraKen]

I'm extremely close to finishing this program but I am at my usual standstill with the _PUTIMAGE and _COPYIMAGE commands it's driving me nuts again. Can someone tell me why this isn't working? When I press the left mouse button it's supposed to place the shape onto the screen so someone can make a new shape for the same screen. Of course CLS clears it in every loop but it should still work with COPYIMAGE and PUTIMAGE and DISPLAY. Read the _TITLE for instructions on how to use it. The amazing thing is, I was just experimenting with my other shapes maker and I added a loop and here's 3D. :) So I added depth changes, rotation, size changes, and location with the mouse. The main loop starts at line 103. I'm also wondering if I have to use 2 NEWIMAGE's like I have here, would CLIPBOARDIMAGE still work when it can only do one image? Any help is appreciated, thanks.

Code: QB64: [Select]

1. start:
2. _AUTODISPLAY
3. sides = 3
4. length = 150
5. full = 0
6. c = 0
7. _TITLE "Mouse To Locate, Mouse Wheel To Change Sides, C To Copy To Clipboard, +/- To Change Size, Arrow Keys To Change Depth And Rotate."
8. image& = _NEWIMAGE(1000, 800, 32)
9. SCREEN image&
10.  
11. PRINT: PRINT: PRINT
12. PRINT "                                      Polygon Maker"
13. PRINT: PRINT
14. PRINT "                          By SierraKen (with some help from B+!)"
15. PRINT: PRINT: PRINT
16. full:
17. INPUT "Select Color Emptiness (1-50 Where 50 Being Most Empty.)", full
18. IF full > 50 OR full < 1 OR full <> INT(full) THEN GOTO full:
19. full = full / 10
20.  
21. colors:
22. c = c + 1
23.  
24. CLS
25. IF c = 1 THEN LOCATE 2, 45: PRINT "Click A Shape Color With Your Mouse"
26. IF c = 2 THEN LOCATE 2, 45: PRINT "      Click A Background Color"
27.  
28. 'Color Wheel
29. FOR r = 1 TO 255 STEP 2
30.     sz = sz + .2
31.     CIRCLE (500, 400), sz, _RGB32(r, 0, 0)
32. NEXT r
33. FOR g = 1 TO 255 STEP 2
34.     sz = sz + .2
35.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
36. NEXT g
37. FOR b = 1 TO 255 STEP 2
38.     sz = sz + .2
39.     CIRCLE (500, 400), sz, _RGB32(0, 0, b)
40. NEXT b
41. FOR rg = 1 TO 255 STEP 2
42.     sz = sz + .2
43.     CIRCLE (500, 400), sz, _RGB32(rg, rg, 0)
44. NEXT rg
45. FOR gb = 1 TO 255 STEP 2
46.     sz = sz + .2
47.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb)
48. NEXT gb
49. FOR rb = 1 TO 255 STEP 2
50.     sz = sz + .2
51.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb)
52. NEXT rb
53. FOR rg = 1 TO 255 STEP 2
54.     sz = sz + .2
55.     CIRCLE (500, 400), sz, _RGB32(rg, rg / 2, 0)
56. NEXT rg
57. FOR rg = 1 TO 255 STEP 2
58.     sz = sz + .2
59.     CIRCLE (500, 400), sz, _RGB32(rg / 2, rg, 0)
60. NEXT rg
61. FOR gb = 1 TO 255 STEP 2
62.     sz = sz + .2
63.     CIRCLE (500, 400), sz, _RGB32(0, gb / 2, gb)
64. NEXT gb
65. FOR gb = 1 TO 255 STEP 2
66.     sz = sz + .2
67.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb / 2)
68. NEXT gb
69. FOR rb = 1 TO 255 STEP 2
70.     sz = sz + .2
71.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb / 2)
72. NEXT rb
73. FOR rb = 1 TO 255 STEP 2
74.     sz = sz + .2
75.     CIRCLE (500, 400), sz, _RGB32(rb / 2, 0, rb)
76. NEXT rb
77. FOR w = 1 TO 255 STEP 2
78.     sz = sz + .2
79.     CIRCLE (500, 400), sz, _RGB32(w, w, w)
80. NEXT w
81. sz = 0
82. mouseLeftButton = 0
83. DO
84.     _LIMIT 7
85.     mouseWheel = 0
86.     DO WHILE _MOUSEINPUT
87.         mouseX = _MOUSEX
88.         mouseY = _MOUSEY
89.         mouseLeftButton = _MOUSEBUTTON(1)
90.         mouseRightButton = _MOUSEBUTTON(2)
91.         mouseMiddleButton = _MOUSEBUTTON(3)
92.         mouseWheel = mouseWheel + _MOUSEWHEEL
93.     LOOP
94.     IF mouseLeftButton = -1 AND c = 1 THEN mouseLeftButton = 0: col& = POINT(mouseX, mouseY): GOTO colors:
95.     IF mouseLeftButton = -1 AND c = 2 THEN mouseLeftButton = 0: backcol& = POINT(mouseX, mouseY): GOTO nex:
96. LOOP
97.  
98. 'Create Shape
99. nex:
100. CLS
101. COLOR , backcol&
102. image2& = _NEWIMAGE(800, 600, 32)
103. DO
104.     CLS
105.     _LIMIT 300
106.     SCREEN image&, image2&
107.     mouseWheel = 0
108.     DO WHILE _MOUSEINPUT
109.         mouseX = _MOUSEX
110.         mouseY = _MOUSEY
111.         mouseLeftButton = _MOUSEBUTTON(1)
112.         mouseRightButton = _MOUSEBUTTON(2)
113.         mouseMiddleButton = _MOUSEBUTTON(3)
114.         mouseWheel = mouseWheel + _MOUSEWHEEL
115.     LOOP
116.     a$ = INKEY$
117.     IF a$ = " " THEN GOTO start:
118.     IF a$ = CHR$(27) THEN END
119.     IF a$ = "+" THEN length = length + 1
120.     IF a$ = "-" THEN length = length - 1
121.     IF a$ = CHR$(0) + CHR$(77) THEN a = a + 1
122.     IF a$ = CHR$(0) + CHR$(75) THEN a = a - 1
123.     IF a$ = CHR$(0) + CHR$(72) THEN v = v + 1
124.     IF a$ = CHR$(0) + CHR$(80) THEN v = v - 1
125.     IF v < -149 THEN v = -149
126.     IF v > 400 THEN v = 400
127.     IF a < 0 THEN a = 360
128.     IF a > 360 THEN a = 0
129.     IF length > 800 THEN length = 800
130.     IF length < 5 THEN length = 5
131.     IF mouseWheel = -1 THEN sides = sides + 1
132.     IF mouseWheel = 1 THEN sides = sides - 1
133.     IF sides < 3 THEN sides = 3
134.     IF sides > 20 THEN sides = 20
135.  
136.     FOR t = .25 TO length + v STEP full
137.         FOR angle = 1 + a TO 360 + a STEP 360 / sides
138.             oldx = x
139.             oldy = y
140.             x = (COS(_D2R(angle)) * length) + mouseX
141.             y = (SIN(_D2R(angle)) * length) + mouseY
142.             LINE (x - t, y - t)-(oldx - t, oldy - t), col&
143.         NEXT angle
144.     NEXT t
145.     IF a$ = "C" OR a$ = "c" THEN _CLIPBOARDIMAGE = image&
146.     IF mouseLeftButton THEN image2& = _COPYIMAGE(0)
147.     _PUTIMAGE , image&, image2&
148.     _DISPLAY
149. LOOP
150.  

[bplus]

Like this?

Code: QB64: [Select]

1. start:
2. _AUTODISPLAY
3. sides = 3
4. length = 150
5. full = 0
6. c = 0
7. _TITLE "Mouse To Locate, Mouse Wheel To Change Sides, C To Copy To Clipboard, +/- To Change Size, Arrow Keys To Change Depth And Rotate."
8. SCREEN _NEWIMAGE(1000, 700, 32)
9.  
10.  
11. PRINT: PRINT: PRINT
12. PRINT "                                      Polygon Maker"
13. PRINT: PRINT
14. PRINT "                          By SierraKen (with some help from B+!)"
15. PRINT: PRINT: PRINT
16. full:
17. INPUT "Select Color Emptiness (1-50 Where 50 Being Most Empty.)", full
18. IF full > 50 OR full < 1 OR full <> INT(full) THEN GOTO full:
19. full = full / 10
20.  
21. colors:
22. c = c + 1
23.  
24. CLS
25. IF c = 1 THEN LOCATE 2, 45: PRINT "Click A Shape Color With Your Mouse"
26. IF c = 2 THEN LOCATE 2, 45: PRINT "      Click A Background Color"
27.  
28. 'Color Wheel
29. FOR r = 1 TO 255 STEP 2
30.     sz = sz + .2
31.     CIRCLE (500, 400), sz, _RGB32(r, 0, 0)
32. NEXT r
33. FOR g = 1 TO 255 STEP 2
34.     sz = sz + .2
35.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
36. NEXT g
37. FOR b = 1 TO 255 STEP 2
38.     sz = sz + .2
39.     CIRCLE (500, 400), sz, _RGB32(0, 0, b)
40. NEXT b
41. FOR rg = 1 TO 255 STEP 2
42.     sz = sz + .2
43.     CIRCLE (500, 400), sz, _RGB32(rg, rg, 0)
44. NEXT rg
45. FOR gb = 1 TO 255 STEP 2
46.     sz = sz + .2
47.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb)
48. NEXT gb
49. FOR rb = 1 TO 255 STEP 2
50.     sz = sz + .2
51.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb)
52. NEXT rb
53. FOR rg = 1 TO 255 STEP 2
54.     sz = sz + .2
55.     CIRCLE (500, 400), sz, _RGB32(rg, rg / 2, 0)
56. NEXT rg
57. FOR rg = 1 TO 255 STEP 2
58.     sz = sz + .2
59.     CIRCLE (500, 400), sz, _RGB32(rg / 2, rg, 0)
60. NEXT rg
61. FOR gb = 1 TO 255 STEP 2
62.     sz = sz + .2
63.     CIRCLE (500, 400), sz, _RGB32(0, gb / 2, gb)
64. NEXT gb
65. FOR gb = 1 TO 255 STEP 2
66.     sz = sz + .2
67.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb / 2)
68. NEXT gb
69. FOR rb = 1 TO 255 STEP 2
70.     sz = sz + .2
71.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb / 2)
72. NEXT rb
73. FOR rb = 1 TO 255 STEP 2
74.     sz = sz + .2
75.     CIRCLE (500, 400), sz, _RGB32(rb / 2, 0, rb)
76. NEXT rb
77. FOR w = 1 TO 255 STEP 2
78.     sz = sz + .2
79.     CIRCLE (500, 400), sz, _RGB32(w, w, w)
80. NEXT w
81. sz = 0
82. mouseLeftButton = 0
83. DO
84.     _LIMIT 7
85.     mouseWheel = 0
86.     DO WHILE _MOUSEINPUT
87.         mouseX = _MOUSEX
88.         mouseY = _MOUSEY
89.         mouseLeftButton = _MOUSEBUTTON(1)
90.         mouseRightButton = _MOUSEBUTTON(2)
91.         mouseMiddleButton = _MOUSEBUTTON(3)
92.         mouseWheel = mouseWheel + _MOUSEWHEEL
93.     LOOP
94.     IF mouseLeftButton = -1 AND c = 1 THEN mouseLeftButton = 0: col& = POINT(mouseX, mouseY): GOTO colors:
95.     IF mouseLeftButton = -1 AND c = 2 THEN mouseLeftButton = 0: backcol& = POINT(mouseX, mouseY): GOTO nex:
96. LOOP
97.  
98. 'Create Shape
99. nex:
100. CLS
101. COLOR , backcol&
102. image2& = _NEWIMAGE(1000, 700, 32)
103. _PUTIMAGE , 0, image2& 'screen to image
104. DO
105.     _PUTIMAGE , image2&, 0 'image to screen
106.     _LIMIT 300
107.  
108.     mouseWheel = 0
109.     DO WHILE _MOUSEINPUT
110.         mouseX = _MOUSEX
111.         mouseY = _MOUSEY
112.         mouseLeftButton = _MOUSEBUTTON(1)
113.         mouseRightButton = _MOUSEBUTTON(2)
114.         mouseMiddleButton = _MOUSEBUTTON(3)
115.         mouseWheel = mouseWheel + _MOUSEWHEEL
116.     LOOP
117.     a$ = INKEY$
118.     IF a$ = " " THEN GOTO start:
119.     IF a$ = CHR$(27) THEN END
120.     IF a$ = "+" THEN length = length + 1
121.     IF a$ = "-" THEN length = length - 1
122.     IF a$ = CHR$(0) + CHR$(77) THEN a = a + 1
123.     IF a$ = CHR$(0) + CHR$(75) THEN a = a - 1
124.     IF a$ = CHR$(0) + CHR$(72) THEN v = v + 1
125.     IF a$ = CHR$(0) + CHR$(80) THEN v = v - 1
126.     IF v < -149 THEN v = -149
127.     IF v > 400 THEN v = 400
128.     IF a < 0 THEN a = 360
129.     IF a > 360 THEN a = 0
130.     IF length > 800 THEN length = 800
131.     IF length < 5 THEN length = 5
132.     IF mouseWheel = -1 THEN sides = sides + 1
133.     IF mouseWheel = 1 THEN sides = sides - 1
134.     IF sides < 3 THEN sides = 3
135.     IF sides > 20 THEN sides = 20
136.  
137.     FOR t = .25 TO length + v STEP full
138.         FOR angle = 1 + a TO 360 + a STEP 360 / sides
139.             oldx = x
140.             oldy = y
141.             x = (COS(_D2R(angle)) * length) + mouseX
142.             y = (SIN(_D2R(angle)) * length) + mouseY
143.             LINE (x - t, y - t)-(oldx - t, oldy - t), col&
144.         NEXT angle
145.     NEXT t
146.     IF a$ = "C" OR a$ = "c" THEN _CLIPBOARDIMAGE = image&
147.     IF mouseLeftButton THEN _PUTIMAGE , 0, image2& ' screen to image2
148.  
149.     _DISPLAY
150. LOOP
151.  
152.  
153.  

I am impressed how you figured to rotate the sides!

[SierraKen]

Thanks Tons B+! :)). I did notice that the background color was gone, so I fixed it. Yeah rotating the polygons were actually pretty easy if you just add to the angle up to 360 and then shift back to 0 and the other way around. :) I used your code from earlier on my other shapes program for the COS and SIN equations. There one MINOR thing that would be nice on this program is if when you press C to copy the image to the buffer, it doesn't copy the current polygon that's being moved around with the mouse. I think that would have to deal with another COPYIMAGE or something and since you have helped me this far, I'm not going to try and make it worse by me. LOL People can just use the last polygon as part of their image. Thanks again B+, I see what you did with PUTIMAGE on the mouse click. This will be a good learning example for my future works.

Code: QB64: [Select]

1. start:
2. _AUTODISPLAY
3. sides = 3
4. length = 150
5. full = 0
6. c = 0
7. _TITLE "Mouse To Locate, Mouse Wheel To Change Sides, C To Copy To Clipboard, +/- To Change Size, Arrow Keys To Change Depth And Rotate."
8. SCREEN _NEWIMAGE(1000, 700, 32)
9.  
10.  
11. PRINT: PRINT: PRINT
12. PRINT "                                      Polygon Maker"
13. PRINT: PRINT
14. PRINT "                          By SierraKen (with some help from B+!)"
15. PRINT: PRINT: PRINT
16. full:
17. INPUT "Select Color Emptiness (1-50 Where 50 Being Most Empty.)", full
18. IF full > 50 OR full < 1 OR full <> INT(full) THEN GOTO full:
19. full = full / 10
20.  
21. colors:
22. c = c + 1
23.  
24. CLS
25. IF c = 1 THEN LOCATE 2, 45: PRINT "Click A Shape Color With Your Mouse"
26. IF c = 2 THEN LOCATE 2, 45: PRINT "      Click A Background Color"
27.  
28. 'Color Wheel
29. FOR r = 1 TO 255 STEP 2
30.     sz = sz + .2
31.     CIRCLE (500, 400), sz, _RGB32(r, 0, 0)
32. NEXT r
33. FOR g = 1 TO 255 STEP 2
34.     sz = sz + .2
35.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
36. NEXT g
37. FOR b = 1 TO 255 STEP 2
38.     sz = sz + .2
39.     CIRCLE (500, 400), sz, _RGB32(0, 0, b)
40. NEXT b
41. FOR rg = 1 TO 255 STEP 2
42.     sz = sz + .2
43.     CIRCLE (500, 400), sz, _RGB32(rg, rg, 0)
44. NEXT rg
45. FOR gb = 1 TO 255 STEP 2
46.     sz = sz + .2
47.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb)
48. NEXT gb
49. FOR rb = 1 TO 255 STEP 2
50.     sz = sz + .2
51.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb)
52. NEXT rb
53. FOR rg = 1 TO 255 STEP 2
54.     sz = sz + .2
55.     CIRCLE (500, 400), sz, _RGB32(rg, rg / 2, 0)
56. NEXT rg
57. FOR rg = 1 TO 255 STEP 2
58.     sz = sz + .2
59.     CIRCLE (500, 400), sz, _RGB32(rg / 2, rg, 0)
60. NEXT rg
61. FOR gb = 1 TO 255 STEP 2
62.     sz = sz + .2
63.     CIRCLE (500, 400), sz, _RGB32(0, gb / 2, gb)
64. NEXT gb
65. FOR gb = 1 TO 255 STEP 2
66.     sz = sz + .2
67.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb / 2)
68. NEXT gb
69. FOR rb = 1 TO 255 STEP 2
70.     sz = sz + .2
71.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb / 2)
72. NEXT rb
73. FOR rb = 1 TO 255 STEP 2
74.     sz = sz + .2
75.     CIRCLE (500, 400), sz, _RGB32(rb / 2, 0, rb)
76. NEXT rb
77. FOR w = 1 TO 255 STEP 2
78.     sz = sz + .2
79.     CIRCLE (500, 400), sz, _RGB32(w, w, w)
80. NEXT w
81. sz = 0
82. mouseLeftButton = 0
83. DO
84.     _LIMIT 7
85.     mouseWheel = 0
86.     DO WHILE _MOUSEINPUT
87.         mouseX = _MOUSEX
88.         mouseY = _MOUSEY
89.         mouseLeftButton = _MOUSEBUTTON(1)
90.         mouseRightButton = _MOUSEBUTTON(2)
91.         mouseMiddleButton = _MOUSEBUTTON(3)
92.         mouseWheel = mouseWheel + _MOUSEWHEEL
93.     LOOP
94.     IF mouseLeftButton = -1 AND c = 1 THEN mouseLeftButton = 0: col& = POINT(mouseX, mouseY): GOTO colors:
95.     IF mouseLeftButton = -1 AND c = 2 THEN mouseLeftButton = 0: backcol& = POINT(mouseX, mouseY): GOTO nex:
96. LOOP
97.  
98. 'Create Shape
99. nex:
100. mouseLeftButton = 0
101. CLS
102. PAINT (2, 2), backcol&
103. image2& = _NEWIMAGE(1000, 700, 32)
104. _PUTIMAGE , 0, image2& 'screen to image
105. DO
106.     _PUTIMAGE , image2&, 0 'image to screen
107.     _LIMIT 300
108.  
109.     mouseWheel = 0
110.     DO WHILE _MOUSEINPUT
111.         mouseX = _MOUSEX
112.         mouseY = _MOUSEY
113.         mouseLeftButton = _MOUSEBUTTON(1)
114.         mouseRightButton = _MOUSEBUTTON(2)
115.         mouseMiddleButton = _MOUSEBUTTON(3)
116.         mouseWheel = mouseWheel + _MOUSEWHEEL
117.     LOOP
118.     a$ = INKEY$
119.     IF a$ = " " THEN GOTO start:
120.     IF a$ = CHR$(27) THEN END
121.     IF a$ = "+" THEN length = length + 1
122.     IF a$ = "-" THEN length = length - 1
123.     IF a$ = CHR$(0) + CHR$(77) THEN a = a + 1
124.     IF a$ = CHR$(0) + CHR$(75) THEN a = a - 1
125.     IF a$ = CHR$(0) + CHR$(72) THEN v = v + 1
126.     IF a$ = CHR$(0) + CHR$(80) THEN v = v - 1
127.     IF v < -149 THEN v = -149
128.     IF v > 400 THEN v = 400
129.     IF a < 0 THEN a = 360
130.     IF a > 360 THEN a = 0
131.     IF length > 800 THEN length = 800
132.     IF length < 5 THEN length = 5
133.     IF mouseWheel = -1 THEN sides = sides + 1
134.     IF mouseWheel = 1 THEN sides = sides - 1
135.     IF sides < 3 THEN sides = 3
136.     IF sides > 20 THEN sides = 20
137.  
138.     FOR t = .25 TO length + v STEP full
139.         FOR angle = 1 + a TO 360 + a STEP 360 / sides
140.             oldx = x
141.             oldy = y
142.             x = (COS(_D2R(angle)) * length) + mouseX
143.             y = (SIN(_D2R(angle)) * length) + mouseY
144.             LINE (x - t, y - t)-(oldx - t, oldy - t), col&
145.         NEXT angle
146.     NEXT t
147.     IF a$ = "C" OR a$ = "c" THEN _CLIPBOARDIMAGE = image&
148.     IF mouseLeftButton THEN _PUTIMAGE , 0, image2& ' screen to image2
149.     _DISPLAY
150. LOOP
151.  

[bplus]

If you want the image without the current polygon, you already have it stored in image2&. That is what is being put up on screen before each redraw of current poly.

[SierraKen]

ROFL AWESOME!!! Thanks :).

Here is the update and a picture of 2 houses I made with it in just a couple minutes. 

Code: QB64: [Select]

1. start:
2. _AUTODISPLAY
3. sides = 3
4. length = 150
5. full = 0
6. c = 0
7. _TITLE "Mouse To Locate, Mouse Wheel To Change Sides, C To Copy To Clipboard, +/- To Change Size, Arrow Keys To Change Depth And Rotate."
8. SCREEN _NEWIMAGE(1000, 700, 32)
9.  
10.  
11. PRINT: PRINT: PRINT
12. PRINT "                                      Polygon Maker"
13. PRINT: PRINT
14. PRINT "                          By SierraKen (with some help from B+!)"
15. PRINT: PRINT: PRINT
16. full:
17. INPUT "Select Color Emptiness (1-50 Where 50 Being Most Empty.)", full
18. IF full > 50 OR full < 1 OR full <> INT(full) THEN GOTO full:
19. full = full / 10
20.  
21. colors:
22. c = c + 1
23.  
24. CLS
25. IF c = 1 THEN LOCATE 2, 45: PRINT "Click A Shape Color With Your Mouse"
26. IF c = 2 THEN LOCATE 2, 45: PRINT "      Click A Background Color"
27.  
28. 'Color Wheel
29. FOR r = 1 TO 255 STEP 2
30.     sz = sz + .2
31.     CIRCLE (500, 400), sz, _RGB32(r, 0, 0)
32. NEXT r
33. FOR g = 1 TO 255 STEP 2
34.     sz = sz + .2
35.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
36. NEXT g
37. FOR b = 1 TO 255 STEP 2
38.     sz = sz + .2
39.     CIRCLE (500, 400), sz, _RGB32(0, 0, b)
40. NEXT b
41. FOR rg = 1 TO 255 STEP 2
42.     sz = sz + .2
43.     CIRCLE (500, 400), sz, _RGB32(rg, rg, 0)
44. NEXT rg
45. FOR gb = 1 TO 255 STEP 2
46.     sz = sz + .2
47.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb)
48. NEXT gb
49. FOR rb = 1 TO 255 STEP 2
50.     sz = sz + .2
51.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb)
52. NEXT rb
53. FOR rg = 1 TO 255 STEP 2
54.     sz = sz + .2
55.     CIRCLE (500, 400), sz, _RGB32(rg, rg / 2, 0)
56. NEXT rg
57. FOR rg = 1 TO 255 STEP 2
58.     sz = sz + .2
59.     CIRCLE (500, 400), sz, _RGB32(rg / 2, rg, 0)
60. NEXT rg
61. FOR gb = 1 TO 255 STEP 2
62.     sz = sz + .2
63.     CIRCLE (500, 400), sz, _RGB32(0, gb / 2, gb)
64. NEXT gb
65. FOR gb = 1 TO 255 STEP 2
66.     sz = sz + .2
67.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb / 2)
68. NEXT gb
69. FOR rb = 1 TO 255 STEP 2
70.     sz = sz + .2
71.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb / 2)
72. NEXT rb
73. FOR rb = 1 TO 255 STEP 2
74.     sz = sz + .2
75.     CIRCLE (500, 400), sz, _RGB32(rb / 2, 0, rb)
76. NEXT rb
77. FOR w = 1 TO 255 STEP 2
78.     sz = sz + .2
79.     CIRCLE (500, 400), sz, _RGB32(w, w, w)
80. NEXT w
81. sz = 0
82. mouseLeftButton = 0
83. DO
84.     _LIMIT 7
85.     mouseWheel = 0
86.     DO WHILE _MOUSEINPUT
87.         mouseX = _MOUSEX
88.         mouseY = _MOUSEY
89.         mouseLeftButton = _MOUSEBUTTON(1)
90.         mouseRightButton = _MOUSEBUTTON(2)
91.         mouseMiddleButton = _MOUSEBUTTON(3)
92.         mouseWheel = mouseWheel + _MOUSEWHEEL
93.     LOOP
94.     IF mouseLeftButton = -1 AND c = 1 THEN mouseLeftButton = 0: col& = POINT(mouseX, mouseY): GOTO colors:
95.     IF mouseLeftButton = -1 AND c = 2 THEN mouseLeftButton = 0: backcol& = POINT(mouseX, mouseY): GOTO nex:
96. LOOP
97.  
98. 'Create Shape
99. nex:
100. mouseLeftButton = 0
101. CLS
102. PAINT (2, 2), backcol&
103. image2& = _NEWIMAGE(1000, 700, 32)
104. _PUTIMAGE , 0, image2& 'screen to image
105. DO
106.     _PUTIMAGE , image2&, 0 'image to screen
107.     _LIMIT 300
108.  
109.     mouseWheel = 0
110.     DO WHILE _MOUSEINPUT
111.         mouseX = _MOUSEX
112.         mouseY = _MOUSEY
113.         mouseLeftButton = _MOUSEBUTTON(1)
114.         mouseRightButton = _MOUSEBUTTON(2)
115.         mouseMiddleButton = _MOUSEBUTTON(3)
116.         mouseWheel = mouseWheel + _MOUSEWHEEL
117.     LOOP
118.     a$ = INKEY$
119.     IF a$ = " " THEN GOTO start:
120.     IF a$ = CHR$(27) THEN END
121.     IF a$ = "+" THEN length = length + 1
122.     IF a$ = "-" THEN length = length - 1
123.     IF a$ = CHR$(0) + CHR$(77) THEN a = a + 1
124.     IF a$ = CHR$(0) + CHR$(75) THEN a = a - 1
125.     IF a$ = CHR$(0) + CHR$(72) THEN v = v + 1
126.     IF a$ = CHR$(0) + CHR$(80) THEN v = v - 1
127.     IF v < -149 THEN v = -149
128.     IF v > 400 THEN v = 400
129.     IF a < 0 THEN a = 360
130.     IF a > 360 THEN a = 0
131.     IF length > 800 THEN length = 800
132.     IF length < 5 THEN length = 5
133.     IF mouseWheel = -1 THEN sides = sides + 1
134.     IF mouseWheel = 1 THEN sides = sides - 1
135.     IF sides < 3 THEN sides = 3
136.     IF sides > 20 THEN sides = 20
137.  
138.     FOR t = .25 TO length + v STEP full
139.         FOR angle = 1 + a TO 360 + a STEP 360 / sides
140.             oldx = x
141.             oldy = y
142.             x = (COS(_D2R(angle)) * length) + mouseX
143.             y = (SIN(_D2R(angle)) * length) + mouseY
144.             LINE (x - t, y - t)-(oldx - t, oldy - t), col&
145.         NEXT angle
146.     NEXT t
147.     IF a$ = "C" OR a$ = "c" THEN _CLIPBOARDIMAGE = image2&
148.     IF mouseLeftButton THEN _PUTIMAGE , 0, image2& ' screen to image2
149.  
150.     _DISPLAY
151. LOOP
152.  

[SierraKen]

It also can do (mostly) filled-in polygons too. When you start it, you give a value up to 50, 50 being the most emptiness. Here is what it looks like with selecting 1 instead of 50.