Parent Directory | Revision Log | Patch
revision 1.4 by adoniec, Tue Sep 9 13:56:07 2003 UTC | revision 1.5 by adoniec, Tue Sep 9 14:45:34 2003 UTC | |
---|---|---|
# | Line 171 class circle (p1: point) (p2: point) (na | Line 171 class circle (p1: point) (p2: point) (na |
171 | let new_x' = round ((sin !teta) *. rf +. xf) and new_y' = int_of_float((cos !teta) *. rf +. yf) in | let new_x' = round ((sin !teta) *. rf +. xf) and new_y' = int_of_float((cos !teta) *. rf +. yf) in |
172 | Graphics.lineto new_x' new_y'; | Graphics.lineto new_x' new_y'; |
173 | teta := !teta +. 0.02; | teta := !teta +. 0.02; |
174 | for i=0 to 400000 do () done | for i=0 to 4000000 do () done (* pas génial: à améliorer!!! *) |
175 | done; | done; |
176 | end | end |
177 | else | else |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |