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 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Pythagoras-tree/BASIC256/pythagoras-tree.basic
View file

@ -1,17 +1,17 @@
Subroutine pythagoras_tree(x1, y1, x2, y2, depth)
If depth > 10 Then Return
If depth > 10 Then Return
dx = x2 - x1 : dy = y1 - y2
x3 = x2 - dy : y3 = y2 - dx
x4 = x1 - dy : y4 = y1 - dx
x5 = x4 + (dx - dy) / 2
y5 = y4 - (dx + dy) / 2
#draw the box
Line x1, y1, x2, y2 : Line x2, y2, x3, y3
Line x3, y3, x4, y4 : Line x4, y4, x1, y1
dx = x2 - x1 : dy = y1 - y2
x3 = x2 - dy : y3 = y2 - dx
x4 = x1 - dy : y4 = y1 - dx
x5 = x4 + (dx - dy) / 2
y5 = y4 - (dx + dy) / 2
#draw the box
Line x1, y1, x2, y2 : Line x2, y2, x3, y3
Line x3, y3, x4, y4 : Line x4, y4, x1, y1
Call pythagoras_tree(x4, y4, x5, y5, depth +1)
Call pythagoras_tree(x5, y5, x3, y3, depth +1)
Call pythagoras_tree(x4, y4, x5, y5, depth +1)
Call pythagoras_tree(x5, y5, x3, y3, depth +1)
End Subroutine
w = 800 : h = w * 11 \ 16