PROGRAM NOVA; VAR a,b,x,y : integer; r,c : real; {$I diablo.lib} BEGIN init_diablo; b := 25; WHILE b < 251 DO BEGIN a := 0; WHILE a < 361 DO BEGIN c := (a*3.14156)/180; r := b*(1-sin(15*c)); x := round(r*cos(c))+250; y := round(r*sin(c))+250; IF a = 0 THEN plot(x,y) ELSE drawto(x,y); a := a+5 END; b := b+25 END; reset_diablo END.