aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions
Download patch file Download diff file Expand all files Collapse all files

62
Task/Simple-turtle-graphics/EasyLang/simple-turtle-graphics.easy
View file

@ -5,7 +5,7 @@ subr home
down = 0
move x y
.
call home
home
#
proc forward n . .
x += cos deg * n
@ -22,31 +22,31 @@ proc turn a . .
.
#
proc house . .
call turn 180
call forward 45
call turn 180
turn 180
forward 45
turn 180
down = 1
#
call forward 30
call turn 90
call forward 30
call turn 90
call forward 30
call turn 90
call forward 30
forward 30
turn 90
forward 30
turn 90
forward 30
turn 90
forward 30
#
call turn 30
call forward 30
call turn 120
call forward 30
call home
turn 30
forward 30
turn 120
forward 30
home
.
call house
house
#
proc bar a[] . .
call turn 90
call forward 30
call turn -90
turn 90
forward 30
turn -90
down = 1
for i to len a[]
max = higher max a[i]
@ -54,16 +54,16 @@ proc bar a[] . .
for i to len a[]
h = a[i] / max * 50
w = 45 / len a[]
call turn -90
call forward h
call turn 90
call forward w
call turn 90
call forward h
call turn -90
turn -90
forward h
turn 90
forward w
turn 90
forward h
turn -90
.
call turn 180
call forward 45
call home
turn 180
forward 45
home
.
call bar [ 50 33 200 130 50 ]
bar [ 50 33 200 130 50 ]