diff --git a/examples/using-resources.rkt b/examples/using-resources.rkt index 77dd074..2b4c7ce 100644 --- a/examples/using-resources.rkt +++ b/examples/using-resources.rkt @@ -9,6 +9,5 @@ (image-url (resource->url whale-resource))) -whale-resource whale-image whale-image \ No newline at end of file diff --git a/resource/js-impl.js b/resource/js-impl.js index 1d38740..b60f681 100644 --- a/resource/js-impl.js +++ b/resource/js-impl.js @@ -16,5 +16,5 @@ EXPORTS['resource->url'] = makePrimitiveProcedure( 1, function(MACHINE) { var resource = checkResource(MACHINE, 'resource->url', 0); - return "res/" + String(getResourceKey(resource)); + return String(getResourceKey(resource)); }); diff --git a/web-world/examples/attr-animation/index.html b/web-world/examples/attr-animation/index.html index fd8256c..e6b6504 100644 --- a/web-world/examples/attr-animation/index.html +++ b/web-world/examples/attr-animation/index.html @@ -1,107 +1,8 @@ - -Animation - - - -

-This should be animating: -

-
-
-
-
-
-
-
-
-
-
-
-
- -
- -The program for this is: -
-
-#lang planet dyoo/whalesong
-
-(require (planet dyoo/whalesong/resource)
-         (planet dyoo/whalesong/web-world))
-
-(define-resource index.html)
-(define-resource style.css)
-
-(define (tick w v)
-  (modulo (add1 w) 10))
-
-
-;; pick-block: world view -> view
-;; Focus the view on block i.
-(define (pick-block v i)
-  (view-focus v (format "#~a" i)))
-
-
-(define (draw w v)
-  (define v1 (update-view-attr
-              (pick-block v w)
-              "class"
-              "selectedBlock"))
-  (define v2 (update-view-attr
-              (pick-block v1 (modulo (sub1 w) 10))
-              "class"
-              "offsetBlock"))
-  (define v3 (update-view-attr
-              (pick-block v2 (modulo (add1 w) 10))
-              "class"
-              "offsetBlock"))
-  (define v4 (update-view-attr
-              (pick-block v3 (modulo (- w 2) 10))
-                          "class"
-                          "block"))
-  (define v5 (update-view-attr
-              (pick-block v4 (modulo (+ w 2) 10))
-              "class"
-              "block"))
-  v5)
-
-
-(big-bang 0
-          (initial-view index.html)
-          (on-tick tick)
-          (to-draw draw))
-
-
- - -with style.css: -
-
-.block {
-    width : 80px;
-    height : 10px;
-    background-color : blue;
-    display: inline-block;
-}
-
-.selectedBlock {
-    width : 80px;
-    height : 10px;
-    background-color: navy;
-    display: inline-block;
-}
-
-.offsetBlock {
-    width : 80px;
-    height : 10px;
-    background-color: teal;
-    display: inline-block;
-}
-
-
- - - -

- - + + + + + + + +