Hi,
I am a noob too, starting to play with opengl using the redbook and
factor so here is an example of how to make an animation using timers.
I couldn't figure out how to do it using <slate>. It is probably not
the best solution and it flicks (I still don't know how to do
double-buffering in factor).
Hope its usefull.
[]s,
Ricardo Boccato Alves.
TUPLE: test-gadget offset ;
: <test-gadget> ( -- gadget )
test-gadget construct-gadget
dup 0 swap set-test-gadget-offset ;
M: test-gadget pref-dim* ( gadget -- dim )
drop { 600 600 } ;
M: test-gadget draw-gadget* ( gadget -- )
test-gadget-offset dup 2array
origin get
v+
[ blue gl-color
{ 30 30 } { 100 100 } gl-fill-rect
] with-translation ;
M: test-gadget tick ( object -- )
[ [ test-gadget-offset 10 + ] keep set-test-gadget-offset ] keep
relayout-1 ;
: test-window ( -- )
[
<test-gadget>
[ 100 1 add-timer ] keep
"Test" open-window
] with-ui ;
On Tue, Mar 4, 2008 at 8:08 AM, Ben Schlingelhof
<[EMAIL PROTECTED]> wrote:
> I discovered Factor about a month ago and am trying very much to fall
> in love with it. As usual at the very beginning of a new relationship,
> I'm rather confused. Loved Forth in 1989, so I have a faint memory of
> stack-based programming. Still everything in Factor is new, promising,
> and utterly strange. Enough story, you guys love beginners questions,
> so here it goes:
>
> I managed to paint a nice square on the screen:
>
> : display ( -- )
> blue gl-color
> { 30 30 } { 100 100 } gl-fill-rect
> ;
>
> : test-window ( -- )
> [
> [ display ] <slate>
> { 600 600 } over set-slate-dim
> "Test" open-window
> ] with-ui ;
>
> MAIN: test-window.
>
> How do I get it to move? I had a look at the timers, confusion.
>
> Second question: Is there a possibility to disable the alt-5 shortcut?
> I'm on a german mac, that is the [ . Rather inconvenient.
>
> Ben
>
> --
> Ben Schlingelhof
> benseins.de
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Factor-talk mailing list
> Factor-talk@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
