robur/opam-graph
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Opam_graph: Fixed firefox bug, where a 'too small viewBox' leads to wrong hitboxes

Browse source
This commit is contained in:
rand00 2022-02-10 18:35:29 +01:00
parent 1e7a4867b3
commit a7b2d42b70
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/opam_graph.ml
View file

@ -263,7 +263,7 @@ svg {
} }
line { line {
stroke-width: 0.004; stroke-width: 0.4;
stroke: bisque; stroke: bisque;
} }
@ -313,8 +313,8 @@ svg {
y : float; y : float;
} }
let center = { x = 0.5; y = 0.5 } let center = { x = 50.; y = 50. }
let root_radius = 0.015 let root_radius = 1.5
module Unit = struct module Unit = struct
@ -490,6 +490,7 @@ svg {
in in
svg, css svg, css
(*goto values might need to be updated to fit new viewbox*)
let make_layer2_nodes_spiral ~layer2_deps ~layer2_deps_center = let make_layer2_nodes_spiral ~layer2_deps ~layer2_deps_center =
let open Gg in let open Gg in
let dot_radius = root_radius *. 0.25 in let dot_radius = root_radius *. 0.25 in
@ -506,7 +507,6 @@ svg {
make_node ~pos ~radius:dot_radius ~text ~classes make_node ~pos ~radius:dot_radius ~text ~classes
) )
(*goto implement as iterative search*)
let grid_pos ~cell_width i = let grid_pos ~cell_width i =
let open Gg in let open Gg in
let north = V2.v 0. cell_width in let north = V2.v 0. cell_width in
@ -554,7 +554,7 @@ svg {
let make_layer2_nodes_grid ~layer2_deps ~layer2_deps_center = let make_layer2_nodes_grid ~layer2_deps ~layer2_deps_center =
let open Gg in let open Gg in
let dot_radius = 0.005 in let dot_radius = 0.5 in
let cell_width = dot_radius *. 2.5 in let cell_width = dot_radius *. 2.5 in
layer2_deps |> List.mapi (fun i layer2_dep -> layer2_deps |> List.mapi (fun i layer2_dep ->
let pos = V2.(layer2_deps_center + grid_pos ~cell_width i) in let pos = V2.(layer2_deps_center + grid_pos ~cell_width i) in
@ -585,7 +585,7 @@ svg {
let bg = let bg =
let pos = let pos =
{ x = V2.x layer2_deps_center; y = V2.y layer2_deps_center } { x = V2.x layer2_deps_center; y = V2.y layer2_deps_center }
and radius = sqrt (float (List.length layer2_deps) +. 1.) *. 0.0115 and radius = sqrt (float (List.length layer2_deps) +. 1.) *. 1.15
and text = "" and text = ""
and classes = [ "layer2_deps"; "bg"; dep.name ] in and classes = [ "layer2_deps"; "bg"; dep.name ] in
make_node ~pos ~radius ~text ~classes make_node ~pos ~radius ~text ~classes
@ -645,7 +645,7 @@ svg {
let diff_angle = Float.two_pi /. float len_deps in let diff_angle = Float.two_pi /. float len_deps in
deps |> List.mapi (fun i (dep, layer2_deps) -> deps |> List.mapi (fun i (dep, layer2_deps) ->
let angle = diff_angle *. float i in let angle = diff_angle *. float i in
let dist_center = 0.2 in let dist_center = 20. in
let x = cos angle *. dist_center +. center.x let x = cos angle *. dist_center +. center.x
and y = sin angle *. dist_center +. center.y in and y = sin angle *. dist_center +. center.y in
((dep, { x; y }), layer2_deps) ((dep, { x; y }), layer2_deps)
@ -693,7 +693,7 @@ svg {
make_node ~pos ~radius ~text ~classes make_node ~pos ~radius ~text ~classes
in in
let deps_svgs, deps_css = make_deps layer2_deps in let deps_svgs, deps_css = make_deps layer2_deps in
let svg_attr = [ Svg.a_viewBox (0., 0., 1., 1.) ] in let svg_attr = [ Svg.a_viewBox (0., 0., 100., 100.) ] in
let svg_content = svg_defs @ (root_svg :: deps_svgs) in let svg_content = svg_defs @ (root_svg :: deps_svgs) in
let css = merge_css [ initial_css; deps_css ] in let css = merge_css [ initial_css; deps_css ] in
{ svg_content; svg_attr; css } { svg_content; svg_attr; css }