suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing the example

Browse Source
This commit is contained in:
Danny Yoo 2012-03-06 14:04:19 -05:00
parent fa6cad34b7
commit 5c881e6487
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/clipart-test/clipart.rkt
View File

@ -1,4 +1,4 @@
#lang planet dyoo/whalesong #lang planet dyoo/whalesong/base
(require (planet dyoo/whalesong/image) (require (planet dyoo/whalesong/image)
(planet dyoo/whalesong/resource)) (planet dyoo/whalesong/resource))
@ -110,7 +110,7 @@
(define BG (rectangle 300 100 "solid" "green")) (define BG (rectangle 300 100 "solid" "green"))
(define-resource dog.jpg) ;; "http://t3.gstatic.com/images?q=tbn:ANd9GcSiCx-eVMoU6wpH2WgfNzOTd_wZunA-S07ZZJsGtHiKNfOUp2chMKmvEVajtg") (define-resource dog.jpg) ;; "http://t3.gstatic.com/images?q=tbn:ANd9GcSiCx-eVMoU6wpH2WgfNzOTd_wZunA-S07ZZJsGtHiKNfOUp2chMKmvEVajtg")
(define DOG (scale 1/2 dog.jpg)) (define DOG dog.jpg)
;(define XDOG (time "(transparent-from-corners DOG 30)" (lambda () (transparent-from-corners DOG 30)))) ;(define XDOG (time "(transparent-from-corners DOG 30)" (lambda () (transparent-from-corners DOG 30))))
;(define D (overlay XDOG BG)) ;(define D (overlay XDOG BG))
;(define CDOG (overlay (clipart/url DOGURL) BG)) ;(define CDOG (overlay (clipart/url DOGURL) BG))

13
tests/more-tests/js-binding.rkt
View File

@ -7,18 +7,23 @@
(define js-minus (define js-minus
(js-function->procedure "function(x, y) { return x - y; }")) (js-function->procedure "function(x, y) { return x - y; }"))
(define sleep (define raw-sleep
(js-async-function->procedure"function(success, fail, n) { setTimeout(success, n) }")) (js-async-function->procedure
"function(success, fail, n) { setTimeout(success, n); }"))
(define (sleep n)
(unless (real? n)
(raise-type-error 'sleep "real" n))
(void (raw-sleep (inexact->exact (floor (* n 1000))))))
"plus: " (js-plus 3 4) "plus: " (js-plus 3 4)
"wait for one second: " (sleep 1000) "wait for one second: " (sleep 1)
"minus:" (js-minus 239748 23) "minus:" (js-minus 239748 23)
(for-each (lambda (x) (for-each (lambda (x)
(display x) (display x)
(sleep 1000)) (sleep 1))
'(hello world testing)) '(hello world testing))