Chaos game: Difference between revisions

Content added Content deleted

Inline

@@ Line 193: / Line 193: @@
   mid ancho=0, Let( mid ancho:= Div(ancho,2))
+  Cls
   i=LIMITE
   Void(pixeles)
   Loop
-      Ceil(Rand(3)), Move to (vertice)
+    Ceil(Rand(3)), On gosub( EQ1, EQ2, EQ3 )
-      If( Eq(vertice,1) )
-          Let(x := Div(x, 2))
+    Set( Int(y), Int(x), color),Apndrow(pixeles)
+    --i
-          Let(y := Div(y, 2))
-          color=9
-      Else If( Eq(vertice,2))
-          Let(x := Add( mid ancho, Div(Sub(mid ancho, x), 2) ) )
-          Let(y := Sub( alto, Div( Sub(alto, y), 2 )))
-          color=10
-      Else
-          Let(x := Sub(ancho,  Div( Sub(ancho, x), 2)))
-          Let(y := Div(y, 2))
-          color=4
-      End If
-      Set( Int(y), Int(x), color),Apndrow(pixeles)
-      --i
   Back if (i) is not zero
-  Set video graph(2)
   Canvas-term
   Cls
   i=1
   Iterator(++i, Leq(i,LIMITE), Colorfore([i,3]Get(pixeles)), \
-                               Locate( [i,1]Get(pixeles), [i,2]Get(pixeles) ), Print(c) ); Prnl
+                             Locate( [i,1]Get(pixeles), [i,2]Get(pixeles) ), Print(c) )
   Pause
-  Set video text
 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}}