Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
PSET Circle!
#25
This obviously isn't an entry for this challenge, but it's a fun program nonetheless. ^_^

*peace*

Meg

[syntax="QBASIC"]
'THIS PROGRAM MAKES USE OF THE CROSSCIRCLE SUB TO DISPLAY CIRCLES WITH LINES
'CUTTING ACROSS THEM AT PRESET NODE POINTS.
' - Written 03/17/2005 by mb

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'SUB DECLARATIONS
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
DECLARE SUB CrossCircle (x!, y!, r!, c%, n%, o!)

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'CHANGE TO GRAPHICS MODE 320x200
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SCREEN 13
CLS

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'ROTATE A 10-NODE, 40-RADIUS CIRCLE IN THE CENTER OF THE SCREEN
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
offset! = 0
DO
offset! = offset! + .01
CrossCircle 160, 100, 40, 15, 10, offset!
WAIT &H3DA, 8
WAIT &H3DA, 8, 8
CrossCircle 160, 100, 40, 0, 10, offset!
LOOP UNTIL INKEY$ <> ""

SYSTEM

SUB CrossCircle (x!, y!, r!, c%, n%, o!)

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'THIS SUB DRAWS NODES AROUND A CIRCLE AND CONNECTS THEM WITH LINES
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'x! = x-coordinate of circle
'y! = y-coordinate of circle
'r! = radius of circle
'c% = color of circle
'n% = number of nodes in circle
'o! = offset of first node in radians

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'MAKE OUR NODE COORDINATE ARRAYS
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REDIM nodeX!(1 TO n%)
REDIM nodeY!(1 TO n%)

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'STARTING AT OFFSET o!, CREATE EVENLY SPACED NODES AROUND THE CIRCLE
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
NodeDist! = (2 * 3.14159) / n%
NodeCurr! = o!
FOR i% = 1 TO n%
nodeX!(i%) = x! + COS(NodeCurr!) * r!
nodeY!(i%) = y! - SIN(NodeCurr!) * r!
NodeCurr! = NodeCurr! + NodeDist!
NEXT i%

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'CONNECT THE NODES TO EACH OTHER WITH LINES
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
FOR i% = 1 TO n% - 1
FOR j% = i% + 1 TO n%
LINE (nodeX!(i%), nodeY!(i%))-(nodeX!(j%), nodeY!(j%)), c%
NEXT j%, i%

END SUB
[/syntax]
Reply


Messages In This Thread
PSET Circle! - by Rattrapmax6 - 03-16-2005, 08:45 AM
PSET Circle! - by Diroga - 03-16-2005, 11:36 AM
PSET Circle! - by Dr_Davenstein - 03-16-2005, 01:54 PM
PSET Circle! - by xteraco - 03-16-2005, 02:14 PM
PSET Circle! - by xteraco - 03-16-2005, 02:20 PM
PSET Circle! - by xteraco - 03-16-2005, 02:35 PM
PSET Circle! - by Sterling Christensen - 03-16-2005, 02:37 PM
PSET Circle! - by xteraco - 03-16-2005, 02:41 PM
Re: PSET Circle! - by KiZ - 03-16-2005, 09:13 PM
PSET Circle! - by Meg - 03-16-2005, 09:38 PM
PSET Circle! - by Neo - 03-16-2005, 09:55 PM
PSET Circle! - by Rattrapmax6 - 03-16-2005, 10:11 PM
PSET Circle! - by Meg - 03-17-2005, 12:47 AM
PSET Circle! - by Rattrapmax6 - 03-17-2005, 02:07 AM
PSET Circle! - by Mitth'raw'nuruodo - 03-17-2005, 02:54 AM
PSET Circle! - by Sterling Christensen - 03-17-2005, 03:00 AM
PSET Circle! - by Rattrapmax6 - 03-17-2005, 03:02 AM
PSET Circle! - by Mitth'raw'nuruodo - 03-17-2005, 03:04 AM
PSET Circle! - by Diroga - 03-17-2005, 12:33 PM
PSET Circle! - by Neo - 03-17-2005, 02:09 PM
PSET Circle! - by KiZ - 03-17-2005, 02:47 PM
PSET Circle! - by xteraco - 03-17-2005, 05:55 PM
PSET Circle! - by Neo - 03-17-2005, 10:22 PM
PSET Circle! - by Eurodance - 03-18-2005, 12:27 AM
Fu program - by Meg - 03-18-2005, 01:36 AM
PSET Circle! - by Rattrapmax6 - 03-18-2005, 02:27 AM
PSET Circle! - by Mitth'raw'nuruodo - 03-19-2005, 01:19 AM
PSET Circle! - by Dio - 03-19-2005, 01:49 AM
PSET Circle! - by Rattrapmax6 - 03-19-2005, 03:59 AM
PSET Circle! - by Mitth'raw'nuruodo - 03-25-2005, 09:27 AM
PSET Circle! - by Diroga - 03-25-2005, 09:55 AM
PSET Circle! - by Rattrapmax6 - 03-26-2005, 08:45 PM
PSET Circle! - by Mitth'raw'nuruodo - 03-26-2005, 09:04 PM
PSET Circle! - by Rattrapmax6 - 03-26-2005, 09:08 PM
PSET Circle! - by Mitth'raw'nuruodo - 03-26-2005, 09:26 PM
PSET Circle! - by Rattrapmax6 - 03-26-2005, 09:36 PM
PSET Circle! - by Mitth'raw'nuruodo - 03-26-2005, 09:39 PM
PSET Circle! - by Rattrapmax6 - 03-26-2005, 09:40 PM
PSET Circle! - by Mitth'raw'nuruodo - 03-26-2005, 09:43 PM
PSET Circle! - by Nathan1993 - 08-19-2005, 11:31 PM
PSET Circle! - by Anonymous - 08-19-2005, 11:55 PM
PSET Circle! - by Neo - 08-20-2005, 12:25 AM
PSET Circle! - by Rattrapmax6 - 08-20-2005, 12:52 AM
PSET Circle! - by Dio - 08-20-2005, 12:55 AM
PSET Circle! - by Rattrapmax6 - 08-20-2005, 02:44 AM
PSET Circle! - by Ralph - 08-29-2005, 10:02 PM
PSET Circle! - by dumbledore - 08-30-2005, 12:04 AM
PSET Circle! - by Dr_Davenstein - 08-30-2005, 02:43 AM
PSET Circle! - by Dio - 08-30-2005, 03:50 AM
PSET Circle! - by Rattrapmax6 - 08-30-2005, 03:52 AM
PSET Circle! - by Deleter - 08-30-2005, 03:58 AM
PSET Circle! - by Dr_Davenstein - 08-30-2005, 04:43 AM
PSET Circle! - by Rattrapmax6 - 08-30-2005, 04:52 AM
PSET Circle! - by dumbledore - 08-30-2005, 10:15 AM
PSET Circle! - by Rattrapmax6 - 08-30-2005, 07:29 PM
PSET Circle! - by dumbledore - 08-31-2005, 12:49 AM
PSET Circle! - by axipher - 12-13-2005, 07:45 AM
PSET Circle! - by Deleter - 12-13-2005, 09:21 AM
PSET Circle! - by Nemesis - 12-13-2005, 10:33 AM
PSET Circle! - by Xerol - 12-13-2005, 11:56 AM
Breshenham algorithm - by googly - 12-13-2005, 06:29 PM
PSET Circle! - by axipher - 12-13-2005, 08:16 PM
Re: Breshenham algorithm - by Dr_Davenstein - 12-14-2005, 02:41 AM
PSET Circle! - by axipher - 12-14-2005, 07:16 AM
PSET Circle! - by Dr_Davenstein - 12-14-2005, 07:22 AM
PSET Circle! - by axipher - 12-14-2005, 07:40 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)