- plot-tessellation tessellation path title filenameprocedure
Plot the tessellation with its start and end nodes, as well as the path taken from start to end.
- The tessellation to plot
- A list of nodes
- Title for the graph
- The PNG to which to write
(define (plot-tessellation tessellation path title filename) (let ((title (make-title title (length path) (node-path-cost (car path))))) (let ((start (tessellation-start tessellation)) (end (tessellation-end tessellation))) (R (plot.voronoi ,(tessellation-R-object tessellation) ,(list->vector (path-x path)) ,(list->vector (path-y path)) ,(point-x start) ,(point-y start) ,(point-x end) ,(point-y end) ,filename ,title)))))