
$type := [
    [ "linear_in",
      "linear_out",
      "linear_in_out" ],

    [ "back_in",
      "back_out",
      "back_in_out" ],

    [ "bounce_in",
      "bounce_out",
      "bounce_in_out" ],

    [ "cubic_in",
      "cubic_out",
      "cubic_in_out" ],

    [ "circ_in",
      "circ_out",
      "circ_in_out" ],

    [ "elastic_in",
      "elastic_out",
      "elastic_in_out" ],

    [ "exp_in",
      "exp_out",
      "exp_in_out" ],

    [ "quad_in",
      "quad_out",
      "quad_in_out" ],

    [ "quart_in",
      "quart_out",
      "quart_in_out" ],

    [ "quint_in",
      "quint_out",
      "quint_in_out" ],

    [ "sine_in",
      "sine_out",
      "sine_in_out" ]
]        
      


$cpt := 0
forall $t in $type
{
        @local 500:$y, $nim, $t

	print $t
        $nim := NIM{ 0 0, 1 1 $t }

        curve player
        @grain := 0.01
        @action = { $y := $nim($x) }
        {
           $x {  { 0 } 1 { 1 } }
        }

        1.1
	$t0 := @explode($t[0])
	$t1 := [ $t0[$i] | $i in (@size($t0) - 3) ]
	$name := @reduce(@+, $t1) 
        $z := @gnuplot($name, @tab_history_date($y),  @tab_history($y))
        $cpt := $cpt + 1
} 


