1 files changed, 10 insertions, 38 deletions

diff --git a/src/main.rs b/src/main.rs
index 62a3562..97f748d 100644
--- a/src/main.rs
+++ b/src/main.rs
@@ -6,58 +6,30 @@ use rust_lisp::default_env;
 use rust_lisp::lisp;
 use rust_lisp::parser::parse;
 use rust_lisp::interpreter::eval;
-use rust_lisp::model::{Symbol, Value};
+use rust_lisp::model::{Value};
 
 mod extended_environment;
 
-#[macroquad::main("BasicShapes")]
+#[macroquad::main("Snake")]
 async fn main() {
-    // create a base environment
+    request_new_screen_size(34.0 * 18.0, 24.0 * 24.0);
     let env = Rc::new(RefCell::new(default_env()));
 
     // define new methods
     extended_environment::extend_environment(&env);
 
-    // parse into an iterator of syntax trees (one for each root)
-    // let mut ast_iter = parse("(+ \"Hello \" \"world!\")");
-    // let first_expression = ast_iter.next().unwrap().unwrap();
-
-    // evaluate
-    // let evaluation_result = eval(env.clone(), &first_expression).unwrap();
-    // let mut ast_iter = parse("(test_draw)");
-    // let first_expression = ast_iter.next().unwrap().unwrap();
-
-    // let first_expression = lisp! {(test_draw)};
-    
-    // let mut inc = parse("(begin (set a 0) (+ a 1))");
-    // let mut inc = parse("(begin (define a 0) (set a (+ a 1)))");
-    // let inc_exp = inc.next().unwrap().unwrap();
-
-    // let inc_exp = lisp! {
-    //     (begin (define a 0) (set a (+ a 1)))
-    // };
-    // eval(env.clone(), &inc_exp).unwrap();
-
-    // let inc_exp = lisp! {
-    //     (set a (+ a 1))
-    // };
-
-    let gol_exp = parse(include_str!("../scripts/main.el"));
-    for exp in gol_exp {
+    let main_script = parse(include_str!("../scripts/main.el"));
+    for exp in main_script {
         eval(env.clone(), &exp.unwrap()).unwrap();
     }
     
-    // let mut inc = parse("(set a (+ a 1))");
-    // let inc_exp = inc.next().unwrap().unwrap();
-    
     loop {
-        clear_background(RED);
+        clear_background(extended_environment::BACKGROUND_COLOR);
 
-        draw_line(40.0, 40.0, 100.0, 200.0, 15.0, BLUE);
-        draw_rectangle(screen_width() / 2.0 - 60.0, 100.0, 120.0, 60.0, GREEN);
-        eval(env.clone(), &first_expression).unwrap();
-        let inc_eval = eval(env.clone(), &inc_exp).unwrap();
-        draw_text(&format!("IT WORKS! {}!", &inc_eval), 20.0, 20.0, 30.0, DARKGRAY);
+        eval(env.clone(), &lisp! {
+            (update { Value::Float(get_frame_time()) } )
+        }).unwrap();
+        eval(env.clone(), &lisp! { (draw) }).unwrap();
 
         next_frame().await
     }