gclc shit

dim 100 75
ang_picture 2.5 2.5 99 74
ang_origin 50.0 35.0

number a 0.5
number k 3
number R 3
number pi 3.14

point l 0.0 0.0 3.14  0.0
point i 1 0 2 0

array points {400 }
getx n l


expression n1 { 6*pi}
getx n l
linethickness 0.7
ang_draw_parametric_curve t
{0 ;  t <= n1 ; t+ 0.01}
{-cos(t+n)*t*t*t*a;sin(t+n)*t*t*t*a}

ang_draw_parametric_curve t
{0 ;  t <= n1 ; t+ 0.01}
{-cos(t+30+n)*t*t*t*a;sin(t+30+n)*t*t*t*a}

ang_draw_parametric_curve t
{0 ;  t <= n1 ; t+ 0.01}
{-cos(t+60+n)*t*t*t*a;sin(t+60+n)*t*t*t*a}

 ang_draw_parametric_curve t
{0 ;  t <= n1 ; t+ 0.01}
{-cos(t+90+n)*t*t*t*a;sin(t+90+n)*t*t*t*a}



number q 0
number par 0
number i 0
linethickness 0.1
while { i <= 100}
{
%kriva 1
expression q {-cos(par+n)*par*par*par*a}
expression w {sin(par+n)*par*par*par*a}
ang_point A q w
set_equal points[i] A


%kriva 2
expression q { -cos(par+30+n)*par*par*par*a}
expression w { sin(par+30+n)*par*par*par*a}
ang_point B q w
set_equal points[i+1] B

%kriva 3
drawsegment points[i] points[i+1]

expression q { -cos(par+60+n)*par*par*par*a}
expression w { sin(par+60+n)*par*par*par*a}
ang_point A q w
set_equal points[i+2] A

%kriva4
drawsegment points[i+1] points[i+2]

expression q { -cos(par+90+n)*par*par*par*a}
expression w { sin(par+90+n)*par*par*par*a}
ang_point A q w
set_equal points[i+3] A

drawsegment points[i+2] points[i+3]
drawsegment points[i+3] points[i]
expression i {i+4}
expression par {par+0.11}
}

animation_frames 20 20