;~~~~~~~~~~~~~~~~~~~~~~~~~~;
;~~~~~~~Made 8/19/08~~~~~~~;
;~~~~~~~~By Frances~~~~~~~~;
;~~~~~~~~~~~~~~~~~~~~~~~~~~;
Graphics 800,800,16,3
AppTitle "Lines and curves"

Global ending = False ;Old
Global count = 0
SeedRnd MilliSecs() ;Making random truely random

;~~~~~~~~~~~~~~~~~~~~~~~~~~;
;~~~~All About The Line~~~~;
;~~~~~~~~~~~~~~~~~~~~~~~~~~;
Global Linestartx# = 0     ;
Global Linestarty#         ;
Global Lineendx#           ;
Global Lineendy# = 0       ;
	Linestarty = 0         ;
	Lineendx = 1000        ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~;
	

;~~~~~~~~~~~~~~~~~~~~~~~~~~;
;~~~~~~~~Main Loop~~~~~~~~~;
;~~~~~~~~~~~~~~~~~~~~~~~~~~;
	While Not KeyDown(1) ;Press escape to exit
	Color(Rnd(155,255),Rnd(155,255),Rnd(155,255)) ;Random Color Not too Dark
	
				;Comment out all but the Line function to see no web of lines.
				If count > 10 Or Count = 10
				Line (Linestartx,linestarty,lineendx,lineendy)
				Count = 0
				EndIf
		
				;Clearing And restarting when the curve is done
				If Linestarty = 1000
				;ending = True ;Add in this to have it just end the program when you press escape
				Cls
				Linestarty = 0
				Lineendx = 1000
				Linestartx = 0
				Linestary = 0
				Delay 100;(letting you see it for a bit longer)
				EndIf
				
		
	;Change theese to play with the curve (they change the angle.)
	;Warning: if you do random amounts soon there will be a strange bug. Its easier to see
	;Without the delay
		LinestartY = LinestartY + 1
		LineendX = LineendX - 1
		LinestartX = LinestartX + 0
		LinestartY = LinestartY + 0
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		
		Count = Count + 1;Look above for the If statement with A line in it
		
		
		Delay 1;A little delay, but without if you cant see whats going on
	Wend
	
	
	;And old loop before the program did more that one curve a time
;Ending = False;Reset Ending

	;While ending = False
	;	If KeyDown(1);Press escape to exit
	;	Ending = True
	;	EndIf
	;Wend
End