Voronoi diagram: Difference between revisions
Content added Content deleted
m (→{{header|Red}}) |
m (→{{header|Red}}) |
||
Line 2,157: | Line 2,157: | ||
coord: as-pair x y |
coord: as-pair x y |
||
min-dist: distance 1x1 canvas |
min-dist: distance 1x1 canvas |
||
color-l1: color-l2: none |
|||
foreach [point color] points [ |
foreach [point color] points [ |
||
d: distance point coord |
d: distance point coord |
||
if d/1 < min-dist/1 [ |
if d/1 < min-dist/1 [min-dist/1: d/1 color-l1: color] |
||
if d/2 < min-dist/2 [min-dist/2: d/2 color-l2: color] |
|||
] |
|||
if d/2 < min-dist/2 [ |
|||
min-point-l2: point min-dist/2: d/2 min-color-l2: color |
|||
] |
|||
] |
] |
||
poke diagram-l1 coord |
poke diagram-l1 coord color-l1 |
||
poke diagram-l2 coord |
poke diagram-l2 coord color-l2 |
||
] |
] |
||
] |
] |