← Back to branch summary

~ubuntu-branches/ubuntu/natty/ocamlgraph/natty

« back to all changes in this revision

Viewing changes to dgraph/dGraphViewItem.ml

  • Committer: Bazaar Package Importer
  • Author(s): Mehdi Dogguy
  • Date: 2010-05-15 15:10:43 UTC
  • mfrom: (1.1.11 upstream)
  • Revision ID: james.westby@ubuntu.com-20100515151043-dc0ukpzcwnle266b
Tags: 1.5-1
* New upstream release
  + Remove 0003-dgraph-handle-dotted-ellipse.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
dgraph/dGraphViewItem.ml
207
207
 
208
208
end
209
209
 
 
210
let get_props draw_st =
 
211
  let base_props = [ pen_color draw_st; fill_color draw_st ] in
 
212
  let fold_sty_attr props = function
 
213
    | Dashed -> `DASH (0., [|10.|]) :: props
 
214
    | Dotted -> `DASH (0., [|2.; 10.|])  :: props
 
215
    | _ -> props
 
216
  in
 
217
  List.fold_left fold_sty_attr base_props draw_st.style
 
218
 
210
219
let ellipse ~fill draw_st group pos w h =
211
220
  let((x1,y1), (x2,y2)) = XDot.bounding_box pos w h in
212
 
  let props = [ pen_color draw_st; fill_color draw_st ] in
 
221
  let props = get_props draw_st in
213
222
  let ellip = GnoCanvas.ellipse group ~x1 ~y1 ~x2 ~y2 ~props in
214
223
  new shape ~fill (SEllipse ellip) props
215
224
 
216
225
let polygon ~fill draw_st group pts =
217
 
  let base_props = [ pen_color draw_st; fill_color draw_st ] in
218
 
  let fold_sty_attr props = function
219
 
    | Dashed -> `DASH (0., [|10.|]) :: props
220
 
    | Dotted -> `DASH (0., [|2.; 10.|])  :: props
221
 
    | _ -> props
222
 
  in
223
 
  let props = List.fold_left fold_sty_attr base_props draw_st.style in
 
226
  let props = get_props draw_st in
224
227
  let points = flatten_points pts in
225
228
  let poly = GnoCanvas.polygon group ~points ~props in
226
229
  new shape ~fill (SPolygon poly) props
248
251
  let path =
249
252
    pathdef (Array.fold_right (fun p acc -> XDot.conv_coord p :: acc) pts [])
250
253
  in
251
 
  let base_props = [ pen_color draw_st; fill_color draw_st ] in
252
 
  let fold_sty_attr props = function
253
 
    | Dashed -> `DASH (0., [|10.|]) :: props
254
 
    | Dotted -> `DASH (0., [|2.; 10.|])  :: props
255
 
    | _ -> props
256
 
  in
257
 
  let props = List.fold_left fold_sty_attr base_props draw_st.style in
 
254
  let props = get_props draw_st in
258
255
  let bpath = GnoCanvas.bpath group ~bpath:path ~props in
259
256
  new shape ~fill (SBSpline bpath) props
260
257