Animations

Please notice that, at the present time, the following animations are only visible when run within TeXmacs.

1.Animations that remain in the document

Mmx] 

use "graphix"

Mmx] 

$o == $point (0, 0);

Mmx] 

$p (t) == $point (2 * cos t, 2 * sin t);

Mmx] 

$red x == $color ("red", x);

Mmx] 

$animation ($hold ("0.04sec", $red $line ($o, $p (t/10))) | t in 0 to 63)

2.Animations that operate on the document

Mmx] 

demo (view: Dynamic, sec: Double): Void == {

start: Double == time ();

while time () - start < (1000 * sec) do {

t: Double == (time () - start) / 1000;

g: Graphics == $graphics $red $line ($o, $p (t));

assign (view, as_document

$grid (0, 0, 1, $size ("0.3par", "0.3par", g)));

flush mmout; } };

Mmx] 

view == dynamic (as_document $grid (0, 0, 1,

$size ("0.3par", "0.3par", $graphics ())))

Mmx] 

demo (view, as_double 10.0);

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License. If you don't have this file, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.