Added a cool feature!
The circle gets larger the faster it's going!
It's still a bit buggy, but here it is!
At the end, the circle stops instantly. Do this with [DEL]. [CLEAR] exits the program.
Attached : SVELDRAW is the source, and VELOCITY is the compiled program.
Source code:
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
| :.VELOCITY
:0→A
:0→B
:1→X
:1→Y
:While 1
:Pause 180
:If getKey(4)
:B-1→B
:End
:If getKey(1)
:B+1→B
:End
:If getKey(2)
:A-1→A
:End
:If getKey(3)
:A+1→A
:End
:If getKey(56)
:0→A
:0→B
:End
:If getKey(15)
:Return
:End
:Y+B→Y
:X+A→X
:If X>>96
:1→X
:End
:If X<<1
:96→X
:End
:If Y>>64
:1→Y
:End
:If Y<<1
:64→Y
:End
:A+B→R
:If R<<1
:If R=0
:Circle(X,Y,1)
:Else
:Circle(X,Y,‾R)
:End
:Else
:Circle(X,Y,R)
:End
:DispGraphClrDraw
:End |
Optimizations, suggestions, bug reports?
Powered by SMF 1.1.18 |
SMF © 2013, Simple Machines
