Fractal tree: Difference between revisions
Content deleted Content added
Line 764: | Line 764: | ||
return result; |
return result; |
||
}</lang> |
}</lang> |
||
=={{header|Easyprog.online}}== |
|||
[https://easyprog.online/ide?code=floatvars%0Afunc%20tree%20x%20y%20angle%20depth%20.%20.%0Aif%20depth%20%3E%200%0Axn%20%3D%20x%20%2B%20cos%20angle%20%2A%20depth%20%2A%201.8%0Ayn%20%3D%20y%20%2B%20sin%20angle%20%2A%20depth%20%2A%201.8%0Amove%20x%20y%0Aline%20xn%20yn%0Acall%20tree%20xn%20yn%20angle%20-%2020%20depth%20-%201%0Acall%20tree%20xn%20yn%20angle%20%2B%2020%20depth%20-%201%0A.%0A.%0Acall%20tree%2050%2090%20-90%209 Run it] |
|||
<lang easyprog.online>floatvars |
|||
func tree x y angle depth . . |
|||
if depth > 0 |
|||
xn = x + cos angle * depth * 1.8 |
|||
yn = y + sin angle * depth * 1.8 |
|||
move x y |
|||
line xn yn |
|||
call tree xn yn angle - 20 depth - 1 |
|||
call tree xn yn angle + 20 depth - 1 |
|||
. |
|||
. |
|||
call tree 50 90 -90 9</lang> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |