Circle Coordinate Text File Maker

[SierraKen]

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:
10. CLS
11. PRINT "      Circle Coordinate Maker   by Ken G."
12. PRINT
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."
18. PRINT
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:
25. PRINT
26. PRINT "Choose how many coordinates you want here."
27. PRINT "(1) 61"
28. PRINT "(2) 601"
29. PRINT "(3) 6001"
30. PRINT
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:
36. CLS
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:
49. END IF
50. GOTO one:
51. two:
52. CLOSE #1
53. PRINT "CircleCoordinates.txt has been created."
54. PRINT
55. PRINT "Goodbye."
56.  

[TempodiBasic]

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
14. DIM s AS SINGLE, x AS SINGLE, y AS SINGLE, m 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
38. LOOP
39. CLS
40. OPEN "CircleCoordinates.txt" FOR OUTPUT AS #1
41.  
42. DO
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
58. LOOP
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
70. END SUB

and I use this version to focus our attention on a glictch of QB64IDE. See new post in Discussion session,

[SierraKen]

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.

[TempodiBasic]

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!

[SierraKen]

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.