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
|
' $Id$
Import noddybox.algorithm
Const SCRW=800
Const SCRH=600
SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC
While Not KeyHit(KEY_ESCAPE)
Cls
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
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
Flip
FlushMem
Wend
EndGraphics
End
|
