Sierpinski carpet: Difference between revisions
→{{header|EasyLang}}
mNo edit summary |
|||
Line 2,494:
}
}</syntaxhighlight>
=={{header|EasyLang}}==
[https://easylang.dev/ide/#run=proc%20carp%20x%20y%20sz%20.%20.%0A%20%20%20move%20x%20-%20sz%20%2F%202%20y%20-%20sz%20%2F%202%0A%20%20%20rect%20sz%20sz%0A%20%20%20if%20sz%20%3E%200.5%0A%20%20%20%20%20%20h%20%3D%20sz%20%2F%203%0A%20%20%20%20%20%20call%20carp%20x%20-%20sz%20y%20-%20sz%20h%0A%20%20%20%20%20%20call%20carp%20x%20-%20sz%20y%20h%0A%20%20%20%20%20%20call%20carp%20x%20-%20sz%20y%20%2B%20sz%20h%0A%20%20%20%20%20%20call%20carp%20x%20%2B%20sz%20y%20-%20sz%20h%0A%20%20%20%20%20%20call%20carp%20x%20%2B%20sz%20y%20h%0A%20%20%20%20%20%20call%20carp%20x%20%2B%20sz%20y%20%2B%20sz%20h%0A%20%20%20%20%20%20call%20carp%20x%20y%20-%20sz%20h%0A%20%20%20%20%20%20call%20carp%20x%20y%20%2B%20sz%20h%0A%20%20%20.%0A.%0Abackground%20000%0Aclear%0Acolor%20633%0Acall%20carp%2050%2050%20100%20%2F%203%0A Run it]
<syntaxhighlight lang="easylang">
proc carp x y sz . .
move x - sz / 2 y - sz / 2
rect sz sz
if sz > 0.5
h = sz / 3
call carp x - sz y - sz h
call carp x - sz y h
call carp x - sz y + sz h
call carp x + sz y - sz h
call carp x + sz y h
call carp x + sz y + sz h
call carp x y - sz h
call carp x y + sz h
.
.
background 000
clear
color 633
call carp 50 50 100 / 3
</syntaxhighlight>
=={{header|Elixir}}==
| |||