Reciprocal Shape Maker

[SierraKen]

I've wanted to make this for a long time. It's probably been here before by others, but check out my version. I learned how to use the DRAW command to easily make them. I also figured out a neat way to make a color wheel for it for the shape and the background. Plus I added the _CLIPBOARDIMAGE when pressing C so people can copy the image and paste it to their own graphics program.
Sometimes the shape won't be directly centered on the screen, but that has to do with your size selection and number of sides you choose. If both are very large, it will only show up partially on the screen. Also, just so you know, size 10 can just be barely seen, which is the smallest. One more thing, if you choose a triangle or square, they will be tilted because that's how I use the DRAW command. All other shapes come out good I believe.

Code: QB64: [Select]

1. 'Reciprocal Shape Maker by SierraKen
2. 'Aug. 27, 2020
3. _LIMIT 10
4. SCREEN _NEWIMAGE(1000, 800, 32)
5. again:
6. _TITLE "Reciprocal Shape Maker"
7. CLS
8. INPUT "Amount of sides (3-90):", s
9. IF s > 90 OR s < 3 OR s <> INT(s) THEN GOTO again:
10. PRINT
11. 'The more sides you use and the greater size, the more of a chance it will go off the screen.
12. INPUT "Size (10-200)", l
13. IF l < 10 OR l > 200 OR l <> INT(l) THEN GOTO again:
14. PRINT
15. PRINT "Filled In (Y/N)?"
16. yn:
17. a$ = INKEY$
18. IF a$ = "y" OR a$ = "Y" THEN fill = 1: GOTO colors:
19. IF a$ = "n" OR a$ = "N" THEN fill = 0: GOTO colors:
20. GOTO yn:
21.  
22. colors:
23. c = c + 1
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. 'Color Wheel
28. FOR r = 1 TO 255 STEP 2
29.     sz = sz + .2
30.     CIRCLE (500, 400), sz, _RGB32(r, 0, 0)
31. NEXT r
32. FOR g = 1 TO 255 STEP 2
33.     sz = sz + .2
34.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
35. NEXT g
36. FOR b = 1 TO 255 STEP 2
37.     sz = sz + .2
38.     CIRCLE (500, 400), sz, _RGB32(0, 0, b)
39. NEXT b
40. FOR rg = 1 TO 255 STEP 2
41.     sz = sz + .2
42.     CIRCLE (500, 400), sz, _RGB32(rg, rg, 0)
43. NEXT rg
44. FOR gb = 1 TO 255 STEP 2
45.     sz = sz + .2
46.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb)
47. NEXT gb
48. FOR rb = 1 TO 255 STEP 2
49.     sz = sz + .2
50.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb)
51. NEXT rb
52. FOR rg = 1 TO 255 STEP 2
53.     sz = sz + .2
54.     CIRCLE (500, 400), sz, _RGB32(rg, rg / 2, 0)
55. NEXT rg
56. FOR rg = 1 TO 255 STEP 2
57.     sz = sz + .2
58.     CIRCLE (500, 400), sz, _RGB32(rg / 2, rg, 0)
59. NEXT rg
60. FOR gb = 1 TO 255 STEP 2
61.     sz = sz + .2
62.     CIRCLE (500, 400), sz, _RGB32(0, gb / 2, gb)
63. NEXT gb
64. FOR gb = 1 TO 255 STEP 2
65.     sz = sz + .2
66.     CIRCLE (500, 400), sz, _RGB32(0, gb, gb / 2)
67. NEXT gb
68. FOR rb = 1 TO 255 STEP 2
69.     sz = sz + .2
70.     CIRCLE (500, 400), sz, _RGB32(rb, 0, rb / 2)
71. NEXT rb
72. FOR rb = 1 TO 255 STEP 2
73.     sz = sz + .2
74.     CIRCLE (500, 400), sz, _RGB32(rb / 2, 0, rb)
75. NEXT rb
76. FOR w = 1 TO 255 STEP 2
77.     sz = sz + .2
78.     CIRCLE (500, 400), sz, _RGB32(w, w, w)
79. NEXT w
80. sz = 0
81. mouseLeftButton = 0
82. DO
83.     _LIMIT 7
84.     mouseWheel = 0
85.     DO WHILE _MOUSEINPUT
86.         mouseX = _MOUSEX
87.         mouseY = _MOUSEY
88.         mouseLeftButton = _MOUSEBUTTON(1)
89.         mouseRightButton = _MOUSEBUTTON(2)
90.         mouseMiddleButton = _MOUSEBUTTON(3)
91.         mouseWheel = mouseWheel + _MOUSEWHEEL
92.     LOOP
93.     IF mouseLeftButton = -1 AND c = 1 THEN mouseLeftButton = 0: col& = POINT(mouseX, mouseY): GOTO colors:
94.     IF mouseLeftButton = -1 AND c = 2 THEN mouseLeftButton = 0: backcol& = POINT(mouseX, mouseY): GOTO nex:
95. LOOP
96.  
97. 'Create Shape
98. nex:
99. _LIMIT 10
100. c = 0
101. CLS
102. _TITLE "Press C to copy to Clipboard. Space Bar for more. Esc to quit."
103. image& = _NEWIMAGE(1000, 800, 32)
104. SCREEN image&
105. 'Paint background color.
106. PAINT (2, 2), backcol&
107. 'Set starting point and color with PSET.
108. PSET (325, 400), col&
109. 'TA for angle relative to U for up and 80 pixels per side.
110. angle = 180 / s
111. oldangle = angle
112. FOR sides = 1 TO s
113.     angle$ = STR$(angle)
114.     'l = 180 / s
115.     u$ = STR$(l)
116.     DRAW "TA-" + angle$ + " U" + u$
117.     angle = angle + (oldangle * 2)
118. NEXT sides
119. IF fill = 1 THEN PAINT (500, 400), col&
120. angle = 0: oldangle = 0
121. DO
122.     a$ = INKEY$
123.     IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = image&: cp = 1
124.     IF a$ = CHR$(27) THEN END
125.     IF a$ = " " THEN GOTO again:
126.     IF cp = 1 THEN
127.         _DELAY .5
128.         LOCATE 2, 60
129.         COLOR col&, backcol&
130.         PRINT "Picture Copied"
131.         _DELAY 3
132.         cp = 0
133.         LOCATE 2, 60
134.         COLOR col&, backcol&
135.         PRINT "               "
136.     END IF
137. LOOP
138.  

[SierraKen]

Also, don't ask how I got line 117 to work with this:   angle = angle + (oldangle * 2)
I still have no idea why it needs * 2 but it works! LOL

[bplus]

@SierraKen  what you are drawing are Regular Polygons, many sided figures with equal side lengths.

Here is a demo for an easier way to control exactly where and how big your polygon will be:

Code: QB64: [Select]

1. _TITLE "Basic Polygon" 'b+ 2020-08-27
2.  
3. ' a circle is 360 degree
4. ' a polygon of n side has central angles = 360 / n  > think of a pie the central angle are the angle of slices in center
5. SCREEN _NEWIMAGE(500, 500, 32)
6. _DELAY .25
7. _SCREENMOVE _MIDDLE
8. xC = _WIDTH / 2 '  middle of screen
9. yC = _HEIGHT / 2 ' ditto
10. r = 200 '          radius = less than half screen height
11. FOR n = 3 TO 12 ' n = number of sides
12.     CLS
13.     PRINT "Sides = "; n
14.     CIRCLE (xC, yC), r ' here is our pie,  Apple or Pepperroni :-))
15.     FOR angle = 0 TO 360 STEP 360 / n ' step the size of pie angles
16.         ' let xC, yC be the coordinates at the center of the pie circle
17.         ' let r be the radius of the pie
18.         ' then the n outside points are
19.         x = xC + r * COS(_D2R(angle)) ' x coordinate of outer edge point
20.         y = yC + r * SIN(_D2R(angle)) ' y coordinate of outer edge point
21.         IF angle = 0 THEN PSET (x, y) ELSE LINE -(x, y) ' outer edge edge
22.         LINE (xC, yC)-(x, y) ' slice from center of pie to outer edge
23.         _LIMIT 4
24.     NEXT
25.     _DELAY 2
26.     PRINT "press any to see next polygon up to 12..."
27.     SLEEP
28. NEXT
29. PRINT "Demo is done."
30.  
31.  

 

The angle 0 degrees points due East so first Sin(0) and Cos(0) is point all the way right in middle of screen.
From there we work Clockwise around the circle at increments of 360/n degrees until we return to 0 = 360 degrees.


I give this lecture because I don't think you can do this with your approach to drawing Polygons:

Code: QB64: [Select]

1. _TITLE "Polygon Demo by bplus"
2. ' polygon demo.bas for QB64 (B+=MGA) 2017-09-17
3. CONST xmax = 700
4. CONST ymax = 700
5. SCREEN _NEWIMAGE(xmax, ymax, 32)
6. _DELAY .25
7. _SCREENMOVE _MIDDLE
8. x0 = xmax / 2: y0 = ymax / 2
9. FOR n = 3 TO 9
10.     radius = 345
11.     CLS
12.     rr = RND * 75: gg = RND * 75: bb = RND * 75
13.     FOR a = 0 TO _PI(2) STEP _PI(1 / 20)
14.         radius = radius - 8
15.         pc& = _RGB(radius / 345 * 200 + rr, radius / 345 * 200 + gg, radius / 345 * 200 + bb)
16.         COLOR pc&
17.         polygon x0, y0, radius, n, a
18.         PAINT (x0, y0), pc&, pc&
19.         _LIMIT 10
20.     NEXT
21.     SLEEP 2
22. NEXT
23.  
24. SUB polygon (xOrigin, yOrigin, radius, nVertex, RadianAngleOffset)
25.     polyAngle = _PI(2) / nVertex
26.     x1 = xOrigin + radius * COS(polyAngle + RadianAngleOffset)
27.     y1 = yOrigin + radius * SIN(polyAngle + RadianAngleOffset)
28.     FOR i = 2 TO nVertex + 1
29.         x2 = xOrigin + radius * COS(i * polyAngle + RadianAngleOffset)
30.         y2 = yOrigin + radius * SIN(i * polyAngle + RadianAngleOffset)
31.         LINE (x1, y1)-(x2, y2)
32.         x1 = x2: y1 = y2
33.     NEXT
34. END SUB
35.  
36.  

[SierraKen]

Thanks B+. Yours is a trig. way of doing it. I guess I like my way with the DRAW command because it reminds me of the old 1980's programming language called LOGO. It was the very first thing I did on a computer back in the 7th grade in school. You told the "turtle" to walk steps and draw a line, then turn an angle and go another line, etc. :) But I kept yours and might learn from it sometime.

[bplus]

OK I guess we can do it that way too.

[SierraKen]

Wow... I like your second example. Someday I will learn the Trig functions like the palm of my hand. :) I saved that one too.

[loudar]

That polygon() function is really neat @bplus I might have to adapt it for an art generator program I'm currently writing...