more rect updates
parent
e08a04a03d
commit
b668936d9f
|
@ -3,7 +3,7 @@
|
||||||
USING: kernel math math.functions math.parser models
|
USING: kernel math math.functions math.parser models
|
||||||
models.filter models.range models.compose sequences ui
|
models.filter models.range models.compose sequences ui
|
||||||
ui.gadgets ui.gadgets.frames ui.gadgets.labels ui.gadgets.packs
|
ui.gadgets ui.gadgets.frames ui.gadgets.labels ui.gadgets.packs
|
||||||
ui.gadgets.sliders ui.render ;
|
ui.gadgets.sliders ui.render math.geometry.rect ;
|
||||||
IN: color-picker
|
IN: color-picker
|
||||||
|
|
||||||
! Simple example demonstrating the use of models.
|
! Simple example demonstrating the use of models.
|
||||||
|
|
|
@ -1,6 +1,9 @@
|
||||||
! Copyright (C) 2007, 2008 Alex Chapman
|
! Copyright (C) 2007, 2008 Alex Chapman
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alarms arrays calendar jamshred.game jamshred.gl jamshred.player jamshred.log kernel math math.constants namespaces sequences threads ui ui.backend ui.gadgets ui.gadgets.worlds ui.gestures ui.render math.vectors ;
|
USING: accessors alarms arrays calendar jamshred.game jamshred.gl
|
||||||
|
jamshred.player jamshred.log kernel math math.constants namespaces
|
||||||
|
sequences threads ui ui.backend ui.gadgets ui.gadgets.worlds
|
||||||
|
ui.gestures ui.render math.vectors math.geometry.rect ;
|
||||||
IN: jamshred
|
IN: jamshred
|
||||||
|
|
||||||
TUPLE: jamshred-gadget jamshred last-hand-loc alarm ;
|
TUPLE: jamshred-gadget jamshred last-hand-loc alarm ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! From http://www.ffconsultancy.com/ocaml/maze/index.html
|
! From http://www.ffconsultancy.com/ocaml/maze/index.html
|
||||||
USING: sequences namespaces math math.vectors opengl opengl.gl
|
USING: sequences namespaces math math.vectors opengl opengl.gl
|
||||||
arrays kernel random ui ui.gadgets ui.gadgets.canvas ui.render
|
arrays kernel random ui ui.gadgets ui.gadgets.canvas ui.render
|
||||||
math.order ;
|
math.order math.geometry.rect ;
|
||||||
IN: maze
|
IN: maze
|
||||||
|
|
||||||
: line-width 8 ;
|
: line-width 8 ;
|
||||||
|
|
|
@ -10,7 +10,7 @@ USING: kernel namespaces threads combinators sequences arrays
|
||||||
combinators.cleave
|
combinators.cleave
|
||||||
rewrite-closures fry accessors newfx
|
rewrite-closures fry accessors newfx
|
||||||
processing.color
|
processing.color
|
||||||
processing.gadget ;
|
processing.gadget math.geometry.rect ;
|
||||||
|
|
||||||
IN: processing
|
IN: processing
|
||||||
|
|
||||||
|
|
|
@ -38,6 +38,8 @@ C: <node> node
|
||||||
|
|
||||||
! : >>vel ( node vel -- node ) over set-node-vel ;
|
! : >>vel ( node vel -- node ) over set-node-vel ;
|
||||||
|
|
||||||
|
: node-vel ( node -- vel ) vel>> ;
|
||||||
|
|
||||||
: set-node-vel ( vel node -- ) swap >>vel drop ;
|
: set-node-vel ( vel node -- ) swap >>vel drop ;
|
||||||
|
|
||||||
: pos-x ( node -- x ) pos>> first ;
|
: pos-x ( node -- x ) pos>> first ;
|
||||||
|
|
|
@ -2,7 +2,8 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alarms arrays calendar kernel ui.gadgets ui.gadgets.labels
|
USING: alarms arrays calendar kernel ui.gadgets ui.gadgets.labels
|
||||||
ui.gadgets.worlds ui.gadgets.status-bar ui.gestures ui.render ui
|
ui.gadgets.worlds ui.gadgets.status-bar ui.gestures ui.render ui
|
||||||
tetris.game tetris.gl sequences system math math.parser namespaces ;
|
tetris.game tetris.gl sequences system math math.parser namespaces
|
||||||
|
math.geometry.rect ;
|
||||||
IN: tetris
|
IN: tetris
|
||||||
|
|
||||||
TUPLE: tetris-gadget tetris alarm ;
|
TUPLE: tetris-gadget tetris alarm ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
|
|
||||||
USING: kernel alien.c-types combinators sequences splitting grouping
|
USING: kernel alien.c-types combinators sequences splitting grouping
|
||||||
opengl.gl ui.gadgets ui.render
|
opengl.gl ui.gadgets ui.render
|
||||||
math math.vectors accessors ;
|
math math.vectors accessors math.geometry.rect ;
|
||||||
|
|
||||||
IN: ui.gadgets.frame-buffer
|
IN: ui.gadgets.frame-buffer
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue