ui.gadgets.cartesian: range words
parent
c7048ccacc
commit
0b9e6538c0
|
@ -1,5 +1,5 @@
|
|||
|
||||
USING: kernel combinators opengl.gl
|
||||
USING: kernel combinators sequences opengl.gl
|
||||
ui.render ui.gadgets ui.gadgets.slate
|
||||
accessors ;
|
||||
|
||||
|
@ -7,15 +7,6 @@ IN: ui.gadgets.cartesian
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: init-slate ( slate -- slate )
|
||||
init-gadget
|
||||
[ ] >>action
|
||||
{ 200 200 } >>pdim
|
||||
[ ] >>graft
|
||||
[ ] >>ungraft ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
TUPLE: cartesian < slate x-min x-max y-min y-max z-min z-max perspective ;
|
||||
|
||||
: init-cartesian ( cartesian -- cartesian )
|
||||
|
@ -48,3 +39,9 @@ M: cartesian draw-gadget* ( cartesian -- )
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: x-range ( cartesian range -- cartesian ) first2 [ >>x-min ] [ >>x-max ] bi* ;
|
||||
: y-range ( cartesian range -- cartesian ) first2 [ >>y-min ] [ >>y-max ] bi* ;
|
||||
: z-range ( cartesian range -- cartesian ) first2 [ >>z-min ] [ >>z-max ] bi* ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
|
|
Loading…
Reference in New Issue