Bonsoir a tous,
Tout d'abords, merci de l'importance et du temps que vous m'accordez.
Je tente de compiler un petit programme, cependant j'ai une erreure : Unbound value moveto
Je me permet de vous presenter le code source :
Ca fait deja 2h que je tourne en ronds sur internet.. Je n'en peux plus !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 let yg x y z=moveto x y; set_color black; fill_circle x y z; set_color white; fill_rect x (y-z) (2*z) (2*z); fill_circle x (y+z/2) (z/2); set_color black; fill_circle x (y-z/2) (z/2); draw_circle x y z; fill_circle x (y+z*2/3) (z/7); set_color white; fill_circle x (y-z*2/3) (z/7);; let mess x y= set_color black; moveto x y; lineto x (y+30); moveto x (y+15); lineto (x+5) (y+15); lineto (x+5) (y+30); lineto (x+5) (y-30); moveto (x+10) y; lineto (x+12) (y+30); lineto (x+15) (y+13); lineto (x+12) (y+13); moveto (x+15) (y+13); lineto (x+15) y; moveto (x+25) (y+15); lineto (x+20) (y+15); lineto (x+20) y; lineto (x+25) y; moveto (x+30) y; lineto (x+30) (y+30); moveto (x+30) (y+15); lineto (x+35) (y+30); moveto (x+30) (y+15); lineto (x+35) y; moveto (x+40) y; lineto (x+45) y; moveto (x+47) y; lineto (x+47) (y+29); lineto (x+44) (y+30); moveto (x+47) (y+29); lineto (x+50) (y+30); moveto (x+55) y; lineto (x+55) (y+30); moveto (x+55) (y+15); lineto (x+60) (y+15); lineto (x+60) (y+30); lineto (x+60) (y-30); moveto (x+70) y; lineto (x+65) y; lineto (x+65) (y+15); lineto (x+72) (y+15); moveto (x+65) (y+15); lineto (x+65) (y+30); lineto (x+70) (y+30); moveto (x+75) y; lineto (x+80) y; moveto (x+85) y; lineto (x+85) (y+30); lineto (x+87) (y+26); lineto (x+87) (y+23); lineto (x+85) (y+17); lineto (x+85) (y+13); lineto (x+87) (y+8); lineto (x+87) (y+5); lineto (x+85) y; moveto (x+90) y; lineto (x+90) (y+30); lineto (x+92) (y+26); lineto (x+92) (y+23); lineto (x+90) (y+17); lineto (x+90) (y+13); lineto (x+92) (y+8); lineto (x+92) (y+5); lineto (x+90) y; moveto (x+95) y; lineto (x+97) y; lineto (x+98) (y+3); lineto (x+99) (y+5); lineto (x+100) (y+10); lineto (x+100) (y+15); lineto (x+98) (y+20); lineto (x+97) (y+25); lineto (x+95) (y+30); lineto (x+100) (y+30);; clear_graph(); yg 200 200 100; mess 400 130;;![]()
Partager