Created
April 23, 2024 22:21
-
-
Save dojosgithub/4031ffc41283b77fbbf43c0074b06836 to your computer and use it in GitHub Desktop.
Revisions
-
dojosgithub created this gist
Apr 23, 2024 .There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal file line number Diff line number Diff line change @@ -0,0 +1,86 @@ ' Copyright (c) 2022 Mi Gran Dama ' See the LICENSE file for details !$managerColor="white" !unquoted procedure manager($id,$name,$position,$title,$parentid="",$options="",$reportOptions="") $id [label=<<b>$position</b><br/>$name, $title> shape="box" style="rounded, filled" height="1" fontname="Helvetica" fontsize="13" width="4" fontcolor="$managerColor" $options] !if ($parentid!="") $parentid -> $id [minlen=3 $reportOptions] !endif !endprocedure !unquoted procedure individual($id,$name,$office="",$parentid="",$options="") $id [ !if ($office!="") label=<<b>$office</b><br/>$name> !else label=<$name> !endif shape="box" style="rounded" fontsize="13" width="2.5" height="0.4" $options] !if ($parentid!="") $parentid -> $id [minlen=3] !endif !endprocedure !procedure individualEntity($individual,$parentid="") individual($individual.id,$individual.name,$individual.office,$parentid) !endprocedure !procedure subgroupEntity($parentid,$group) !$first = "none" subgraph cluster_##$group.id { edge [style=invis] label="$group.name" !foreach $emp in $group.employees !if ($first == "none") !$first = $emp.id !endif individualEntity($emp) !endfor !$arrow = "" !foreach $emp in $group.employees $arrow $emp.id !$arrow = " -> " !endfor } $parentid -> $first [lhead=cluster_##$group.id minlen=3] !endprocedure !procedure officeEntity($office,$parentid="") manager($office.id,$office.name,$office.office,$office.position,$parentid,$office.positionOptions, $office.reportOptions) !foreach $emp in $office.employees !if ($emp.individual == true ) individualEntity($emp,$office.id) !else officeEntity($emp,$office.id) !endif !endfor !foreach $subgroup in $office.subgroups subgroupEntity($office.id,$subgroup) !endfor !endprocedure !procedure team($id,$name,$members,$parentid) subgraph cluster_##$id { edge [style=invis] label="$name" !$empindex = 0 !foreach $emp in $members !$empid = $id + $empindex individual($empid,$emp) !$empindex = $empindex + 1 !endfor !$arrow = "" !$empindex = 0 !foreach $emp in $members !$empid = $id + $empindex $arrow $empid !$arrow = " -> " !$empindex = $empindex + 1 !endfor } !$firstid = $id + "0" $parentid -> $firstid [lhead=cluster_##$id minlen=3] !endprocedure