Changeset 491 for trunk/thune/gl/scripts/view.t

Timestamp:

10/20/07 18:18:45 (13 months ago)

Author:

krobillard

Message:

Macros are now created with caret followed by paren: ^(...)

Files:

• trunk/thune/gl/scripts/view.t (modified) (5 diffs)

trunk/thune/gl/scripts/view.t

@@ -1 +1 @@
 ; Thune GL View
 
-<"scripts/stars.t" load do>
+^("scripts/stars.t" load do)
 
 ;"scripts/timer_bar.t" load do
@@ -33 +33 @@
         particle
         shader star-sh
-        call <400 make-stars>
+        call ^(400 make-stars)
 
         particle/sprite
         shader bstar-sh
-        call <10 make-stars>
+        call ^(10 make-stars)
     pop
     ;particle/off
@@ -128 +128 @@
     [
         model
-        shader ent-shader   ; FIXME: Causes text not to render.
+        shader ent-shader
         call ent-dl
 
@@ -256 +256 @@
         dup :mouse-pos
         mouse-pos/5 [
-            <mouse-lb> [mouse-pos/3 mouse-pos/4 view-cam/turntable]
-            <mouse-mb> [light-amb mouse-pos/4 0.02 mul add :light-amb]
-            <mouse-rb> [mouse-pos/3 mouse-pos/4 move-light]
+            ^(mouse-lb) [mouse-pos/3 mouse-pos/4 view-cam/turntable]
+            ^(mouse-mb) [light-amb mouse-pos/4 0.02 mul add :light-amb]
+            ^(mouse-rb) [mouse-pos/3 mouse-pos/4 move-light]
         ] case
+        ; KR "------------" print .s
     ]
 
@@ -301 +302 @@
         text text-pos "Model Demo 1"
         ;enable/?
-        image/trans logo-pos <"image/warpfleetc.png" load.tex.clamp>
+        image/trans logo-pos ^("image/warpfleetc.png" load.tex.clamp)
 
         ;shader matte