Update Conway example

Use native عنصر, animate results using رسم library, make initial state a glider gun instead of a glider
nasser · Jan 15, 2013 · 034f8f9 · 034f8f9
1 parent add3653
commit 034f8f9
Showing 1 changed file with 38 additions and 25 deletions.
diff --git a/public/lib/amthila/konway.qlb b/public/lib/amthila/konway.qlb
@@ -1,9 +1,3 @@
-(حدد عنصر (لامدا (ن ل)
-  (إذا (أكبر؟ ن (طول ل)) ٠
-    (إذا (أصغر؟ ن ١) ٠
-      (إذا (يساوي؟ ن ١) (رأس ل)
-        (عنصر (طرح ن ١) (ذيل ل)))))))
-
 (حدد الكون-المقبل (لامدا (كون)
   (إفعل
     (حدد خلية (لامدا (س ص)
@@ -43,25 +37,44 @@
   )
 ))
 
-(حدد عرض-كون (لامدا (ك)
-  (طبق (لامدا (ص)
-    (قول ص)) ك)))
+(حدد ارسم-كون (لامدا (ك)
+  (طبق-مع-مؤشر (لامدا (الصف ص)
+    (طبق-مع-مؤشر (لامدا (العمود س)
+      (إذا (يساوي؟ العمود ١) (نقطة س ص) (عدم))) 
+    الصف))
+  ك)))
 
-(حدد كونواي (لامدا (بذرة جيل)
-  (إذا (أكبر؟ جيل ٠)
-    (إفعل
-      (عرض-كون بذرة)
-      (قول "")      
-      (كونواي (الكون-المقبل بذرة) (طرح جيل ١)))
-    بذرة)))
+(حدد كونواي (لامدا (بذرة)
+    (ارسم (لامدا()
+      (خلفية ٢٥٥ ٢٥٥ ٢٥٥)
+      (ارسم-كون بذرة)
+      (عدل بذرة (الكون-المقبل بذرة))))))
 
+(ابدأ-رسم ٢٠٠ ٢٠٠)
+(تحجيم ٥ ٥ ٥)
 (كونواي (حرفي
-  (٠ ٠ ١ ٠ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ١ ٠ ٠ ٠ ٠)
-  (٠ ١ ١ ١ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
-  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
-  ) ٣٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠)
+  (١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ١ ٠ ١ ١ ٠ ٠ ٠ ٠ ١ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ٠ ٠ ٠ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ١ ١ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  (٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠ ٠)
+  ))
+
+
+