From d40ea2a8ae7bf4c961befc29209a2cb774ffd4c6 Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Wed, 8 Aug 2018 22:22:06 -0700
Subject: [PATCH] Add some more complex programs.

---
 programs/comb_sprite.chalk   | 39 ++++++++++++++++++++++++++++++++++++
 programs/comb_sprite_2.chalk | 34 +++++++++++++++++++++++++++++++
 2 files changed, 73 insertions(+)
 create mode 100644 programs/comb_sprite.chalk
 create mode 100644 programs/comb_sprite_2.chalk

diff --git a/programs/comb_sprite.chalk b/programs/comb_sprite.chalk
new file mode 100644
index 0000000..7dfd222
--- /dev/null
+++ b/programs/comb_sprite.chalk
@@ -0,0 +1,39 @@
+sprite dum [
+`  x  x  `
+`  x  x  `
+`  x  x  `
+`        `
+`x      x`
+` xxxxxx `
+]
+
+fun main(): u8 {
+  var x = 0;
+  var y = 5;
+  var vy = 0;
+  var ay = 1;
+  var mode = 0;
+  while(1) {
+    draw_sprite(dum, x, y);
+    set_delay(1);
+    while(get_delay()){}
+    draw_sprite(dum, x, y);
+    if(5 - y) {
+
+    } else {
+        mode = 0;
+    }
+    if(26 - y) {
+
+    } else {
+        mode = 1;
+    }
+    if(mode) {
+        vy = vy - ay;
+        y = y - vy;
+    } else {
+        y = y + vy;
+        vy = vy + ay;
+    }
+  }
+}
diff --git a/programs/comb_sprite_2.chalk b/programs/comb_sprite_2.chalk
new file mode 100644
index 0000000..6c434b6
--- /dev/null
+++ b/programs/comb_sprite_2.chalk
@@ -0,0 +1,34 @@
+sprite dum [
+`  x  x  `
+`  x  x  `
+`  x  x  `
+`        `
+`x      x`
+` xxxxxx `
+]
+
+fun main(): u8 {
+  var x = 0;
+  var y = 27;
+  var vx = 1;
+  var vy = 0;
+  var a = 1;
+  while(1) {
+    var draw_y = 32 - y;
+    draw_sprite(dum, x, draw_y);
+    set_delay(1);
+    while(get_delay()){}
+
+    vy = vy - a;
+    y = y + vy;
+    x = x + vx;
+    if(6-y) {
+
+    } else {
+      var vtemp = vy;
+      vy = 0 - vtemp;
+      vy = vy + 1;
+    }
+    clear();
+  }
+}