Chaos game: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 193:
mid ancho=0, Let( mid ancho:= Div(ancho,2))
Cls
i=LIMITE
Void(pixeles)
Loop
Set(
Let(y := Div(y, 2))▼
color=9▼
Let(x := Add( mid ancho, Div(Sub(mid ancho, x), 2) ) )▼
Let(y := Sub( alto, Div( Sub(alto, y), 2 )))▼
color=10▼
Let(x := Sub(ancho, Div( Sub(ancho, x), 2)))▼
Let(y := Div(y, 2))▼
color=4▼
▲ --i
Back if (i) is not zero
Canvas-term
Cls
i=1
Iterator(++i, Leq(i,LIMITE), Colorfore([i,3]Get(pixeles)), \
Pause
End
Subrutines
EQ1:
Let(x := Div(x, 2))
▲ Let(y := Div(y, 2))
▲ Let(color:=9), Return
EQ2:
▲ Let(x := Add( mid ancho, Div(Sub(mid ancho, x), 2) ) )
▲ Let(y := Sub( alto, Div( Sub(alto, y), 2 )))
▲ Let(color:=10), Return
EQ3:
▲ Let(x := Sub(ancho, Div( Sub(ancho, x), 2)))
▲ Let(y := Div(y, 2))
▲ Let(color:=4), Return
</syntaxhighlight>
{{out}}
| |||