require "Color"
require "TIlib"

$Names[0] = "K(5)"
$Colors[0] = $Red
$Names[1] = "D(5,3)"
$Colors[1] = $Green

if !$ST
    $ST = Stoch_new(5, 3, 3)
else
    Stoch_next($ST)
    Stoch_draw($ST, $Colors[0], $Colors[1], null)
end
