-
Notifications
You must be signed in to change notification settings - Fork 0
/
013.jl
73 lines (71 loc) · 2.01 KB
/
013.jl
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
using Luxor
function draw(dir, x, y, length)
if dir == "up"
orientation = 90
elseif dir == "down"
orientation = 270
elseif dir == "right"
orientation = 0
elseif dir == "left"
orientation = 180
else
"invalid dir $dir"
return
end
if length < 10
return
end
newlength = length*1/sqrt(2)
if dir == "up"
draw("right", x+newlength, y, newlength)
turtle = Turtle()
Reposition(turtle, x, y)
Pencolor(turtle, "grey9")
Penwidth(turtle, 1.25)
# HueShift(turtle, rand(-1000:1000))
Orientation(turtle, orientation)
Forward(turtle, length)
draw("left", x-newlength, y, newlength)
elseif dir == "down"
draw("right", x+newlength, y, newlength)
turtle = Turtle()
Reposition(turtle, x, y)
Pencolor(turtle, "grey9")
Penwidth(turtle, 1.25)
# HueShift(turtle, rand(-1000:1000))
Orientation(turtle, orientation)
Forward(turtle, length)
HueShift(turtle)
draw("left", x-newlength, y, newlength)
elseif dir == "right"
draw("up", x, y+newlength, newlength)
turtle = Turtle()
Reposition(turtle, x, y)
Pencolor(turtle, "grey9")
Penwidth(turtle, 1.25)
# HueShift(turtle, rand(-1000:1000))
Orientation(turtle, orientation)
Forward(turtle, length)
HueShift(turtle)
draw("down", x, y-newlength, newlength)
elseif dir == "left"
draw("up", x, y+newlength, newlength)
turtle = Turtle()
Reposition(turtle, x, y)
Pencolor(turtle, "grey9")
Penwidth(turtle, 1.25)
# HueShift(turtle, rand(-1000:1000))
Orientation(turtle, orientation)
Forward(turtle, length)
HueShift(turtle)
draw("down", x, y-newlength, newlength)
end
end
Drawing(800, 800, "09.pdf")
origin()
# background("grey15")
#setantialias(6)
draw("left", 0, 0, 325)
draw("right", 0, 0, 325)
finish()
preview()