{ init_turtles() : { seval("(define get-value-from-module dynamic-require)"); seval("(define (get-value-from-turtles symbol) (get-value-from-module '(lib" + ' "turtles.ss" "graphics") symbol))'); seval("(define turtles (get-value-from-turtles 'turtles))"); seval("(define move (get-value-from-turtles 'move))"); seval("(define draw (get-value-from-turtles 'draw))"); seval("(define erase (get-value-from-turtles 'erase))"); seval("(define turn (get-value-from-turtles 'turn))"); seval("(define clear (get-value-from-turtles 'clear))"); seval("(define move-offset (get-value-from-turtles 'move-offset))"); seval("(define draw-offset (get-value-from-turtles 'draw-offset))"); seval("(define erase-offset (get-value-from-turtles 'erase-offset))"); seval("(define turn/radians (get-value-from-turtles 'turn/radians))") }; show_turtles(bool) : bool(seval("(turtles #t)"), seval("(turtles #f)")); move(val) : seval("(move " + text(val) + ")"); draw(val) : seval("(draw " + text(val) + ")"); turn(val) : seval("(turn " + text(val) + ")"); erase(val) : seval("(erase " + text(val) + ")"); clear() : seval("(clear)"); move_offset(hor, ver) : seval("(move-offset " + text(hor) + " " + text(ver) + ")"); draw_offset(hor, ver) : seval("(draw-offset " + text(hor) + " " + text(ver) + ")"); erase_offset(hor, ver) : seval("(erase-offset " + text(hor) + " " + text(ver) + ")"); init_turtles() }