> <\body> .> <\session|mathemagix|default> <\input> <|input> use "graphix" <\input> <|input> $o == $point (0, 0); <\input> <|input> $p (t) == $point (2 * cos t, 2 * sin t); <\input> <|input> $red x == $color ("red", x); <\unfolded-io> <|unfolded-io> $animation ($hold ("0.04sec", $red $line ($o, $p (t/10))) \| t in 0 to 63) <|unfolded-io> |>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>||>>|0.04sec>|||>>|0.04sec>>> <\session|mathemagix|default> <\input> <|input> 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; } }; <\unfolded-io> <|unfolded-io> view == dynamic (as_document $grid (0, 0, 1, \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ $size ("0.3par", "0.3par", $graphics ()))) <|unfolded-io> ||1.00000000000000000000>|gr-geometry||gr-mode|point||>>>>>>> <\input> <|input> demo (view, as_double 10.0); . If you don't have this file, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.>