Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@Hermann-SW

Hermann-SW/scad_calltree

Created July 30, 2022 21:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Hermann-SW/03536703dfcde3c2d774ba7c60a498d2 to your computer and use it in GitHub Desktop.
Save Hermann-SW/03536703dfcde3c2d774ba7c60a498d2 to your computer and use it in GitHub Desktop.
Download ZIP
Generate Graphviz dotfile from OpenSCAD "use" calltree
Raw
scad_calltree
#/bin/bash
if [ "$2" = "" ]; then
echo "digraph G {"
echo "rankdir=LR"
echo "node [shape=none]"
fi
echo \"$2\" "->" \"$1\" "[label=\"`wc --lines $1 | cut -f1 -d\ `\"]"
for f in `grep "^use" $1 | cut -f2 -d\< | cut -f1 -d\>`
do
./scad_calltree `dirname $1`/$f $1
done
if [ "$2" = "" ]; then
echo "}"
fi
@Hermann-SW
Copy link
Author

Example execution for https://www.reddit.com/r/openscad/comments/wa5y86/tria_p1_p2_p3_module_implements_spherical/ii30mz7/

$ ./scad_calltree gct.scad 
digraph G {
rankdir=LR
node [shape=none]
"" -> "gct.scad" [label="32"]
"gct.scad" -> "./triangle/tri_subdivide.scad" [label="11"]
"./triangle/tri_subdivide.scad" -> "./triangle/_impl/_tri_subdivide_impl.scad" [label="27"]
}
$

GraphvizFiddle link:
https://stamm-wilbrandt.de/GraphvizFiddle/?1659215771368#digraph%20G%20%7B%0Arankdir%3DLR%0Anode%20%5Bshape%3Dnone%5D%0A%22%22%20-%3E%20%22gct.scad%22%20%5Blabel%3D%2232%22%5D%0A%22gct.scad%22%20-%3E%20%22.%2Ftriangle%2Ftri_subdivide.scad%22%20%5Blabel%3D%2211%22%5D%0A%22.%2Ftriangle%2Ftri_subdivide.scad%22%20-%3E%20%22.%2Ftriangle%2F_impl%2F_tri_subdivide_impl.scad%22%20%5Blabel%3D%2227%22%5D%0A%7D%0A

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment