/[geocaml]/geocaml/src/drawing.ml
ViewVC logotype

Diff of /geocaml/src/drawing.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26