Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 27, 2019, 04:00:48 pm

Title: Circle Coordinate Text File Maker
Post by: SierraKen on December 27, 2019, 04:00:48 pm
Some of the newer programmers or just programmers that aren't too great in math, might need this program sometime to find the coordinates of any circle they wish within the 800 x 600 window it uses. Of course you can always use the CIRCLE command to make an easy circle, but I made this in case you need the particular points without using much math. You can set the radius and X and Y center point of the circle as well as you can choose from 3 different choices of how many coordinates you want for that circle (61, 601, or 6001). Programmers can use the text file it creates of the coordinates to READ it or just copy/paste into code like with the DATA commands. This program might not ever be used by anyone but I thought why not toss it out there?
The text file it makes is called CircleCoordinates.txt which also can be opened with Notepad, etc. After it is made the program ends. If you run it again,  it will overwrite the old file.

Code: QB64: [Select]
  1. 'I made this program for programmers that don't know too much math and need the coordinates of a circle.
  2. 'Of course you can always use the CIRCLE command but this could be needed to find partcular points.
  3. 'The more coordinates you make of the circle, the lesser gaps between pixels..
  4. 'Programmers can use the CircleCoordinates.txt to either copy/paste it into code or use it as a data file to read with their program.
  5. 'Made on Dec. 27, 2019 by Ken G.
  6. 'Freeware
  7.  
  8. SCREEN _NEWIMAGE(800, 600, 32)
  9. again:
  11. PRINT "      Circle Coordinate Maker   by Ken G."
  13. PRINT "This program will create the file CircleCoordinates.txt"
  14. PRINT "which will have x and then y coordinates of a circle."
  15. PRINT "If this file already exists in this directory,"
  16. PRINT "it will be deleted to make a new one."
  17. PRINT "This screen is x=800 by y=600 coordinates big."
  19. INPUT "Center Point Horizon X (between 0 and 800): ", xx
  20. IF xx < 0 OR xx > 800 THEN GOTO again:
  21. INPUT "Center Point Vertical Y (between 0 and 600): ", yy
  22. IF yy < 0 OR yy > 600 THEN GOTO again:
  23. INPUT "Center To Middle (radius larger than zero): ", r
  24. IF r < 0 OR r = 0 THEN GOTO again:
  26. PRINT "Choose how many coordinates you want here."
  27. PRINT "(1) 61"
  28. PRINT "(2) 601"
  29. PRINT "(3) 6001"
  31. INPUT "->", co
  32. IF co = 1 THEN cco = 1
  33. IF co = 2 THEN cco = .1
  34. IF co = 3 THEN cco = .01
  35. IF co > 3 THEN GOTO again:
  37. OPEN "CircleCoordinates.txt" FOR OUTPUT AS #1
  38. one:
  39. _LIMIT 200
  40. seconds = seconds + cco
  41. s = (60 - seconds) * 6 + 180
  42. x = INT(SIN(s / 180 * 3.141592) * r) + xx
  43. y = INT(COS(s / 180 * 3.141592) * r) + yy
  44. WRITE #1, x, y
  45. PSET (x, y), _RGB32(255, 255, 255)
  46. IF seconds > 60 THEN
  47.     seconds = 0
  48.     GOTO two:
  50. GOTO one:
  51. two:
  53. PRINT "CircleCoordinates.txt has been created."
  55. PRINT "Goodbye."
  56.  

Title: Re: Circle Coordinate Text File Maker
Post by: TempodiBasic on December 27, 2019, 05:12:13 pm
Hi SierraKen it is interesting....
but do you use _OPTION EXPLICIT during your coding sessions?

however I have had some salt nuts that brought to me urticaria... so with so itch at hands I have typing something on your opera modding the shape but not the essence.

Code: QB64: [Select]
  1. ' TDB 27 12 2019 (it)/ 2019 12 27 (international) dd-mm-yyyy/yyyy-mm-dd
  2. 'Hi here I play with code translating it into a more modular shape
  3. 'like SUBs FUNCTIONs and loops
  4.  
  5. 'I made this program for programmers that don't know too much math and need the coordinates of a circle.
  6. 'Of course you can always use the CIRCLE command but this could be needed to find partcular points.
  7. 'The more coordinates you make of the circle, the lesser gaps between pixels..
  8. 'Programmers can use the CircleCoordinates.txt to either copy/paste it into code or use it as a data file to read with their program.
  9. 'Made on Dec. 27, 2019 by Ken G.
  10. 'Freeware
  11.  
  12. DIM AnyMaxX AS INTEGER, AnyMaxY AS INTEGER, r AS INTEGER, Again AS INTEGER
  13. DIM xx AS INTEGER, yy AS INTEGER, co AS INTEGER, cco AS SINGLE, seconds AS SINGLE
  15. AnyMaxX = 800
  16. AnyMaxY = 600
  17. SCREEN _NEWIMAGE(800, 600, 32)
  18. Again = -1
  19. DO WHILE Again
  20.     HelpScreen
  21.     PRINT "Center Point Horizon X (between 0 and "; STR$(AnyMaxX) + "): ": INPUT xx
  22.     IF xx < 0 OR xx > 800 THEN Again = -1 ELSE Again = 0
  23.     PRINT "Center Point Vertical Y (between 0 and " + STR$(AnyMaxY) + "): ": INPUT yy
  24.     IF yy < 0 OR yy > 600 THEN Again = -1 ELSE Again = 0
  25.     INPUT "Center To Middle (radius larger than zero): ", r
  26.     IF r < 0 OR r = 0 THEN Again = -1 ELSE Again = 0
  27.     PRINT
  28.     PRINT "Choose how many coordinates you want here."
  29.     PRINT "(1) 61"
  30.     PRINT "(2) 601"
  31.     PRINT "(3) 6001"
  32.     PRINT
  33.     INPUT "->", co
  34.     IF co = 1 THEN cco = 1
  35.     IF co = 2 THEN cco = .1
  36.     IF co = 3 THEN cco = .01
  37.     IF co > 3 THEN Again = -1 ELSE Again = 0
  40. OPEN "CircleCoordinates.txt" FOR OUTPUT AS #1
  41.  
  43.     _LIMIT 200
  44.     seconds = seconds + cco
  45.     s = (60 - seconds) * 6 + 180
  46.     x = INT(SIN(s / 180 * 3.141592) * r) + xx
  47.     y = INT(COS(s / 180 * 3.141592) * r) + yy
  48.     WRITE #1, x, y
  49.     PSET (x, y), _RGB32(255, 255, 255)
  50.     IF seconds > 60 THEN
  51.         seconds = 0
  52.         CLOSE #1
  53.         PRINT "CircleCoordinates.txt has been created."
  54.         PRINT
  55.         PRINT "Goodbye."
  56.         END
  57.     END IF
  59.  
  60. SUB HelpScreen
  61.     CLS
  62.     PRINT "      Circle Coordinate Maker   by Ken G."
  63.     PRINT
  64.     PRINT "This program will create the file CircleCoordinates.txt"
  65.     PRINT "which will have x and then y coordinates of a circle."
  66.     PRINT "If this file already exists in this directory,"
  67.     PRINT "it will be deleted to make a new one."
  68.     PRINT "This screen is x=800 by y=600 coordinates big."
  69.     PRINT
and I use this version to focus our attention on a glictch of QB64IDE. See new post in Discussion session,
Title: Re: Circle Coordinate Text File Maker
Post by: SierraKen on December 27, 2019, 06:16:18 pm
Hi TempodiBasic, thank you! I don't use OPTION EXPLICIT myself because I don't really know a specific need for it unless you just want to DIM all of your variables out of order and so you know what they all are. I've jumped around to different BASIC languages since the 80's and have never found a need for it.
Title: Re: Circle Coordinate Text File Maker
Post by: TempodiBasic on December 28, 2019, 05:26:41 am
Yes _OPTION EXPLICIT is a manner to force to think in Pascal like way,
first design,
second project modules,
thirt table of variable and constant,
forth write the code
:-)  a solid way that is not so suitable for C and C++ coders who like to be more free like we are in BASIC.

Do you have jumped also in TurboBasic?

PS
flow of my version is bugged but  Bplus have found and solved the issue!
Title: Re: Circle Coordinate Text File Maker
Post by: SierraKen on December 28, 2019, 12:46:50 pm
I've never tried TurboBasic. The ones I have done are: Texas Instruments BASIC from the 80's, Apple 2 Basic, BASICA (for IBM), QBasic, ASIC 5.0, a tiny bit of Visual Basic, and then of course QB64.
Text Only | Text with Attachments