'gradient'

This commit is contained in:
Tony Garnock-Jones 2015-09-09 11:44:42 -04:00
parent c7ae3c64d3
commit 112c33302e
1 changed files with 6 additions and 2 deletions

View File

@ -12,8 +12,12 @@
(define-values (added removed) (patch-project/set/single p window-projection))
(transition s (for/list [(w added)]
(match-define (window width height) w)
(update-scene `((push-matrix (scale ,width ,height)
(texture ,(rectangle 1 1 "solid" "white")))
(update-scene `((push-matrix (scale ,width ,(* height 2))
(translate 0 -0.25)
(texture
,(overlay/xy (rectangle 1 1 "solid" "white")
0 0
(rectangle 1 2 "solid" "black"))))
;; (rotate -30)
;; (scale 5 5)
)