Slightly improve dot backend

src/taste-interface_view.adb

@@ -736,7 +736,7 @@ package body TASTE.Interface_View is
          for PI of Each.Provided loop
 
             --  Add periodic PIs to the list of connections
-            if PI.RCM = Cyclic_Operation then
+            if PI.RCM = Cyclic_Operation and not Each.Is_Type then
                End_To_End_Connections := End_To_End_Connections
                  & (Caller  => US ("ENV"),
                     Callee  => Each.Name,

templates/dump/interface_view_dot/function.tmplt

@@ -24,9 +24,9 @@
 @@-- @_Is_Type_@             : Flag, True if function is a component type
 @@-- @_Instance_Of_@         : Optional name of component type
 @@IF@@ @_Is_Type_@ = TRUE
-@_Name_@ [shape=box, style=filled, fontsize=24, label="type @_Name_@ (@_Language_@)"];
+@_Name_@ [shape=box, style=filled, fillcolor=gold,fontsize=24, label="type @_Name_@ (@_Language_@)"];
 @@ELSIF@@ @_Instance_Of_@ /= ""
-@_Name_@ [shape=box, fillcolor=cyan, style="filled, rounded", fontsize=20, label="@_Name_@ : @_Instance_Of_@"];
+@_Name_@ [shape=box, fillcolor=beige, style="filled, rounded", fontsize=20, label="@_Name_@ : @_Instance_Of_@"];
 @@ELSE@@
-@_Name_@ [shape=box, fillcolor=cyan, style="filled, rounded", fontsize=20, label="@_Name_@ (@_Language_@)"];
+@_Name_@ [shape=box, fillcolor=bisque, style="filled, rounded", fontsize=20, label="@_Name_@ (@_Language_@)"];
 @@END_IF@@

templates/dump/interface_view_dot/interfaceview.tmplt

@@ -5,5 +5,9 @@
 @@-- @_Callee_PIs_@ :   |_ corresponding name of PIs
 @_Functions'Indent_@
 @@TABLE@@
+@@IF@@ @_Caller_RIs_@ = @_Callee_PIs_@
+@_Callers_@ -> @_Callees_@ [fontsize=14, color=blue, headlabel="[@_Callee_PIs_@]"];
+@@ELSE@@
 @_Callers_@ -> @_Callees_@ [fontsize=14, color=blue, headlabel="[@_Caller_RIs_@]", taillabel="[@_Callee_PIs_@]"];
+@@END_IF@@
 @@END_TABLE@@