Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 27, 2020, 07:45:21 pm

Title: Reciprocal Shape Maker
Post by: SierraKen on August 27, 2020, 07:45:21 pm
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
  4. SCREEN _NEWIMAGE(1000, 800, 32)
  5. again:
  6. _TITLE "Reciprocal Shape Maker"
  8. INPUT "Amount of sides (3-90):", s
  9. IF s > 90 OR s < 3 OR s <> INT(s) THEN GOTO again:
  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:
  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
  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)
  32. FOR g = 1 TO 255 STEP 2
  33.     sz = sz + .2
  34.     CIRCLE (500, 400), sz, _RGB32(0, g, 0)
  36. FOR b = 1 TO 255 STEP 2
  37.     sz = sz + .2
  38.     CIRCLE (500, 400), sz, _RGB32(0, 0, 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)
  80. sz = 0
  81. mouseLeftButton = 0
  83.     _LIMIT 7
  84.     mouseWheel = 0
  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:
  96.  
  97. 'Create Shape
  98. nex:
  100. c = 0
  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
  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
  138.  




Title: Re: Reciprocal Shape Maker
Post by: SierraKen on August 27, 2020, 07:54:15 pm
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
Title: Re: Reciprocal Shape Maker
Post by: bplus on August 28, 2020, 12:03:32 am
@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
  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
  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
  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
  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
  35.  
  36.  

Title: Re: Reciprocal Shape Maker
Post by: SierraKen on August 28, 2020, 12:19:48 am
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.
Title: Re: Reciprocal Shape Maker
Post by: bplus on August 28, 2020, 12:37:56 am
OK I guess we can do it that way too.

Title: Re: Reciprocal Shape Maker
Post by: SierraKen on August 28, 2020, 12:53:54 am
Wow... I like your second example. Someday I will learn the Trig functions like the palm of my hand. :) I saved that one too.
Title: Re: Reciprocal Shape Maker
Post by: loudar on August 28, 2020, 07:56:12 am
That polygon() function is really neat @bplus I might have to adapt it for an art generator program I'm currently writing...
Text Only | Text with Attachments