summaryrefslogtreecommitdiff
path: root/algorithm/test.bmx
blob: e3032047905e000afc67d62b3d70654f5ad103de (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
' $Id$

Import noddybox.algorithm

Const SCRW=800
Const SCRH=600

SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC
HideMouse()

Local x1:Int=200
Local x2:Int=600
Local y1:Int=500
Local y2:Int=100

Local yi:Int=-1
Local xi:Int=1

While Not KeyHit(KEY_ESCAPE)
	Cls
	
	Rem
	Local l:TList=DoLine(Rand(0,SCRW),Rand(0,SCRH),Rand(0,SCRW),Rand(0,SCRH))
	
	For Local p:TAlgoPoint=EachIn l
		SetColor(Rand(100,255),Rand(100,255),Rand(100,255))
		Plot(p.x,p.y)
	Next
	EndRem
	
	Local pa:TAlgoPoint[]=DoCircle(Rand(0,SCRW),Rand(0,SCRH),Rand(100,200))
	
	For Local f:Int=0 To 359
		Local nf:Int=(f+1) Mod 360
		
		SetColor(Rand(100,255),Rand(100,255),Rand(100,255))
		DrawLine(pa[f].x,pa[f].y,pa[nf].x,pa[nf].y)
	Next
	
	SetColor(255,0,0)
	DrawLine(x1,y1,x2,y2)
	
	'x1:+xi
	'x2:-xi
	'y1:+yi
	'y2:-yi
	
	If x1=200 Or x1=600
		xi=-xi
	EndIf
	
	If y1=100 Or y1=500
		yi=-yi
	EndIf
	
	SetColor(0,0,255)
	DrawOval(MouseX()-10,MouseY()-10,20,20)
	
	SetColor(255,255,255)
	Local pl:TAlgoPoint3D[]=CircleIntersects(x1,y1,0,x2,y2,0,MouseX(),MouseY(),0,10)
	Local y:Int=50
	
	For Local p:TAlgoPoint3D=EachIn pl
		DrawText(p.x+","+p.y,0,y)
		y:+10
		Plot(p.x,p.y)
	Next
	
	Flip
	FlushMem
Wend

EndGraphics
End