From 83f6db421163ce1459708ae6df571a072ecba285 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 28 Feb 2012 18:26:21 -0500 Subject: [PATCH] back-porting the corrections I needed to make to take advantage of load-script, as well as correctly sending string rather than naked id to the call to the Raphael JS library --- examples/raphael-demo.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/examples/raphael-demo.rkt b/examples/raphael-demo.rkt index df98e61..598fe72 100644 --- a/examples/raphael-demo.rkt +++ b/examples/raphael-demo.rkt @@ -6,15 +6,13 @@ ; This is a small demonstration of the Javascript ; graphics library Raphael from http://raphaeljs.com/ . -; Include the small script in raphael-script.js to load Rapahel (old version 1.5.2). -; racket ../../whalesong.rkt build --include-script raphael-script.js raphael-demo.rkt - ; The example below the bindings draws a Lissajous curve. ;;; ;;; Whalesong binding of Raphael ;;; +(load-script "http://yandex.st/raphael/1.5.2/raphael.js") (define paper #f) @@ -22,7 +20,7 @@ (unless paper (set! paper (js-eval - (format "Raphael(~a, ~a, ~a)" + (format "Raphael(~s, ~a, ~a)" id width height))))) (define (raphael-rect x1 y1 x2 y2 . more)