From 177b4766d15f2bf3bb1e89bd949c8755c2d356a0 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 2 Aug 2019 20:36:47 +0900
Subject: [PATCH] Removed old examples

---
 examples/_OLD/arrays.lisp                  | 26 -------------
 examples/_OLD/import.lisp                  |  5 ---
 examples/_OLD/include.lisp                 |  3 --
 examples/_OLD/objects.lisp                 | 17 ---------
 examples/_OLD/random.file.lisp             | 14 -------
 examples/_OLD/resize.lisp                  |  5 ---
 examples/{batch => basics}/folder.lisp     |  0
 examples/{tools => pixels}/saturation.lisp |  0
 examples/tools/guides.lisp                 | 44 ----------------------
 9 files changed, 114 deletions(-)
 delete mode 100644 examples/_OLD/arrays.lisp
 delete mode 100644 examples/_OLD/import.lisp
 delete mode 100644 examples/_OLD/include.lisp
 delete mode 100644 examples/_OLD/objects.lisp
 delete mode 100644 examples/_OLD/random.file.lisp
 delete mode 100644 examples/_OLD/resize.lisp
 rename examples/{batch => basics}/folder.lisp (100%)
 rename examples/{tools => pixels}/saturation.lisp (100%)
 delete mode 100644 examples/tools/guides.lisp

diff --git a/examples/_OLD/arrays.lisp b/examples/_OLD/arrays.lisp
deleted file mode 100644
index 2f99e20..0000000
--- a/examples/_OLD/arrays.lisp
+++ /dev/null
@@ -1,26 +0,0 @@
-(echo (map '(add %1 1) (1 2 3)))
-
-(echo (first (1 2 3)))
-(echo (rest (1 2 3)))
-
-(echo
-  (filter 
-    '(eq 0 (mod %1 2)) 
-    (1 2 3 4 5))
-)
-
-(clear) 
-(map
-  '(stroke (rect (mul a 30) 20 50 50)
-1 "red")
-(range 0 20 5))
-
-(map
-  '(stroke 
-    (rect 
-      (mul %1 10) 
-      (add 250 (mul (sin %1) 250)) 
-      (mul 4 %1)
-      (add 20 (mul (cos %1) 50))) 1 "red")
-  (range 0 200 5))
-
diff --git a/examples/_OLD/import.lisp b/examples/_OLD/import.lisp
deleted file mode 100644
index 4fa5b9a..0000000
--- a/examples/_OLD/import.lisp
+++ /dev/null
@@ -1,5 +0,0 @@
-(clear)
-(def a (import 
-  "../static/crystal.jpg" 
-  (rect 0 0 400 400)))
-(echo a)
\ No newline at end of file
diff --git a/examples/_OLD/include.lisp b/examples/_OLD/include.lisp
deleted file mode 100644
index fce452b..0000000
--- a/examples/_OLD/include.lisp
+++ /dev/null
@@ -1,3 +0,0 @@
-; include
-(include "../examples/recursive.lisp") 
-(echo line-color)
\ No newline at end of file
diff --git a/examples/_OLD/objects.lisp b/examples/_OLD/objects.lisp
deleted file mode 100644
index cc87ab6..0000000
--- a/examples/_OLD/objects.lisp
+++ /dev/null
@@ -1,17 +0,0 @@
-; objects
-
-(test "symbols" :a "a")
-
-(def ob {:a "fantastic" :b 2})
-
-((of (js) :console :log) ob)
-
-(echo (of ob :a))
-
-(echo (keys ob))
-(echo (values ob))
-
-(set ob :a 4)
-(echo (of ob :a))
-
-(echo (map '(add %1 2) (4 5 6))
diff --git a/examples/_OLD/random.file.lisp b/examples/_OLD/random.file.lisp
deleted file mode 100644
index f95064b..0000000
--- a/examples/_OLD/random.file.lisp
+++ /dev/null
@@ -1,14 +0,0 @@
-; filesystem
-
-; get files 
-(def files 
-  (dir 
-    (dirpath))) 
-; pick a random file 
-(def random-index 
-  (floor 
-    (random 
-      (len files)))) 
-; print random file name
-(echo 
-  (get files random-index))
\ No newline at end of file
diff --git a/examples/_OLD/resize.lisp b/examples/_OLD/resize.lisp
deleted file mode 100644
index bc206c4..0000000
--- a/examples/_OLD/resize.lisp
+++ /dev/null
@@ -1,5 +0,0 @@
-; resize
-
-(clear) 
-(open "../../PREVIEW.jpg") 
-(resize 0.5 0.5)
\ No newline at end of file
diff --git a/examples/batch/folder.lisp b/examples/basics/folder.lisp
similarity index 100%
rename from examples/batch/folder.lisp
rename to examples/basics/folder.lisp
diff --git a/examples/tools/saturation.lisp b/examples/pixels/saturation.lisp
similarity index 100%
rename from examples/tools/saturation.lisp
rename to examples/pixels/saturation.lisp
diff --git a/examples/tools/guides.lisp b/examples/tools/guides.lisp
deleted file mode 100644
index b80718e..0000000
--- a/examples/tools/guides.lisp
+++ /dev/null
@@ -1,44 +0,0 @@
-; guides
-(def frame-rect (frame))
-(defn draw-cross 
-  (pos) 
-  (guide {:x (floor pos:x) :y (floor pos:y)}))
-; top
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.25) 
-    (mul frame-rect:h 0.25)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.5) 
-    (mul frame-rect:h 0.25)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.75) 
-    (mul frame-rect:h 0.25)))
-; middle
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.25) 
-    (mul frame-rect:h 0.5)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.5) 
-    (mul frame-rect:h 0.5)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.75) 
-    (mul frame-rect:h 0.5)))
-; bottom
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.25) 
-    (mul frame-rect:h 0.75)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.5) 
-    (mul frame-rect:h 0.75)))
-(draw-cross 
-  (pos 
-    (mul frame-rect:w 0.75) 
-    (mul frame-rect:h 0.75)))
\ No newline at end of file