forked from honeydatax/lisbon
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdlines.uni
99 lines (99 loc) · 2.48 KB
/
dlines.uni
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
declare,main
declare,draw_point_double
declare,line_ajust
declare,func1
function,main
;,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
const,0,1,2,3,8,12,200,10,639,4,7,256,399,20,630,5
double.const,10.0000,5.0000,1.0000,12.0000,399.0000,638.0000,0.0000,299.0000,199.0000
integer,black,0
integer,blue,1
integer,cyan,3
integer,white,7
integer,i,0
integer,n,0
integer,hline.pointer,0
double,hline.x1,0.0000
double,hline.y1,0.0000
double,hline.x2,638.0000
double,hline.y2,399.0000
double,hline.plus,0.0000
integer,hline.color,0
double,f1,0.0000
double,f2,0.0000
pointer,hline.pointer,hline.pointer
screen,256
let,hline.color,black
back,white
line_ajust,0,hline.pointer,0,0
for,n,0,12,1#func1,n,hline.pointer,0,0
doevents
eval,i,18*2
timer.sleep,i
screen,3
;,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
function,draw_point_double
const,0,1,2,7,4,8,10,28,32,244,50,639
double.const,0.0400,6.3800,3.9900,0.0000
integer,hline.pointer,0
double,hline.x1,0.00
double,hline.y1,0.00
double,hline.x2,638.00
double,hline.y2,399.00
double,hline.plus,0.00
integer,hline.color,0
double,f2,4.00
double,f3,0.00
double,f1,0.00
pointer,argv2,hline.pointer
memcopy,argv2,argv1,28
add,hline.x1,hline.x1,hline.plus
memcopy,argv1,argv2,28
add,f1,hline.x1,f2
let,hline.y1,argv0
((integer)),argv0,argv0
((integer)),f1,f1
((integer)),hline.x1,hline.x1
hline,hline.x1,argv0,f1,hline.color
;,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
function,line_ajust
const,0,1,2,7,4,8,10,28,32,244,50,639
double.const,0.0400
integer,hline.pointer,0
double,hline.x1,0.00
double,hline.y1,0.00
double,hline.x2,638.00
double,hline.y2,0.00
double,hline.plus,0.00
integer,hline.color,0
double,f1,0.0000
double,f2,0.0000
double,f3,0.0000
double,f4,0.0000
pointer,argv2,hline.pointer
memcopy,argv2,argv1,28
sub,f1,hline.y2,hline.y1
sub,f2,hline.x2,hline.x1
((integer)),f1,f1
eval,f2,f2/f1
let,hline.plus,f2
memcopy,argv1,argv2,28
function,func1
const,0,1,2,7,4,8,10,28,32,244,50,639
double.const,20.0000,1.0000
integer,hline.pointer,0
double,hline.x1,0.0000
double,hline.y1,0.0000
double,hline.x2,638.0000
double,hline.y2,399.0000
double,hline.plus,0.0000
integer,hline.color,0
double,n,0.0000
double,f1,0.0000
double,f2,0.0000
pointer,argv2,hline.pointer
memcopy,argv2,argv1,28
line_ajust,0,hline.pointer,0,0
for,n,hline.y1,hline.y2,1.0000#draw_point_double,n,hline.pointer,0,0
sub,hline.y2,hline.y2,20.0000
memcopy,argv1,argv2,28