ruby-graphviz_c 1.1.0

data/examples/sample70.rb

@@ -0,0 +1,9 @@
+$:.unshift( "../lib" )
+require 'graphviz'
+
+puts GraphViz.graph( :G ) { |g|
+  g[:label] = "<<b>This</b> is <i>a</i> <b>test</b>>"
+  n1 = g.add_nodes( "N1", :label => '<<b>node 1</b>>')
+  n2 = g.add_nodes( "N2", :label => '<<b>node 2</b>>')
+  g.add_edges( n1, n2, :label => '<<u>edge</u>>')
+}.output( :svg => "#{$0}.svg", :none => String )

data/examples/sample99.rb

@@ -0,0 +1,70 @@
+$:.unshift( "../lib" );
+require 'graphviz/family_tree'
+
+tree = GraphViz::FamilyTree.new do
+  generation do
+    chantale.is_a_woman( "Chantale" )
+    jacques.is_a_man( "Jacques" )
+
+    jacques.is_dead
+    jacques.is_maried_with chantale
+
+    rose.is_a_woman( "Rose Marie" )
+    andre.is_a_man( "Andre" )
+
+    andre.is_maried_with rose
+    andre.is_dead
+  end
+
+  generation do
+    benoist.is_a_man( "Benoist" )
+    nathalie.is_a_woman( "Nathalie" )
+
+    benoist.is_maried_with nathalie
+
+    michel.is_a_man( "Michel" )
+    brigitte.is_a_woman( "Brigitte" )
+
+    michel.is_maried_with brigitte
+  end
+
+  couple( chantale, jacques ).kids( nathalie )
+  couple( rose, andre ).kids( benoist )
+
+  generation do
+    charlotte.is_a_woman( "Charlotte" )
+    amelie.is_a_woman( "Amelie" )
+    clement.is_a_man( "Clement" )
+    gregoire.is_a_man( "Gregoire" )
+
+    muriel.is_a_woman( "Muriel" )
+    gilles.is_a_man( "Gilles" )
+
+    morgane.is_a_woman( "Morgane" )
+    gregoire.is_divorced_with morgane
+
+    pascal.is_a_man( "Pascal" )
+    muriel.is_divorced_with pascal
+
+    gregoire.is_maried_with muriel
+  end
+
+  couple( michel, brigitte ).kids( muriel, gilles )
+  couple( benoist, nathalie ).kids( charlotte, amelie, clement, gregoire )
+
+  generation do
+    arthur.is_a_boy( "Arthur" )
+    colyne.is_a_girl( "Colyne" )
+    benedict.is_a_boy( "Benedict" )
+    maia.is_a_girl( "Maia" )
+    enaitz.is_a_boy( "Enaitz" )
+    milo.is_a_boy( "Milo" )
+  end
+
+  couple( gregoire, morgane ).kids( arthur, colyne, benedict )
+  couple( gregoire, muriel ).kids( maia )
+  couple( muriel, pascal ).kids( milo )
+  muriel.kids( enaitz )
+end
+
+tree.graph.save( :png => "#{$0}.png" )

data/examples/sdlshapes/README

@@ -0,0 +1,2 @@
+PostScript library for SDL node shapes (http://www.sdl-forum.org/SDL/index.htm)
+by Mark Rison of Cambridge Silicon Radio Ltd.

data/examples/sdlshapes/sdl.ps

@@ -0,0 +1,655 @@
+%! SDL shapes for Graphviz/dot in PostScript output mode
+
+% FILE
+%   sdl.ps  -  SDL shapes for Graphviz/dot in PostScript output mode
+%
+% USE
+%   All procedures expect to be passed a rectangular bounding box in the
+%   order [upper right, lower right, lower left, upper left, upper right].
+%   All procedures expect to be used with "peripheries = 0".
+%
+% BUGS
+%   The following shapes are currently not implemented:
+%   - frame/system/block/process/procedure/service/procedure, and types thereof
+%   - macro inlet/outlet/call
+%   - exception handler/handle/raise
+%   - decision (suggest use diamond)
+%   - alternative (suggest use triangle)
+%   - internal input/output (suggest stop using historical relics!)
+%
+% COPYRIGHT AND PERMISSION NOTICE
+%   Copyright (C) 2005 Cambridge Silicon Radio Ltd.; all rights reserved.
+%
+%   Permission is hereby granted, free of charge, to any person obtaining
+%   a copy of this software and associated documentation files (the
+%   "Software"), to deal in the Software without restriction, including
+%   without limitation the rights to use, copy, modify, merge, publish,
+%   distribute, sublicense, and/or sell copies of the Software, and to
+%   permit persons to whom the Software is furnished to do so, subject to
+%   the following conditions:
+%
+%   The above copyright notice and this permission notice shall be
+%   included in all copies or substantial portions of the Software.
+%
+%   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+%   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+%   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+%   NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+%   LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+%   OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+%   WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+%
+%   Except as contained in this notice, the name of a copyright holder
+%   shall not be used in advertising or otherwise to promote the sale, use
+%   or other dealings in the Software without prior written authorization
+%   of the copyright holder.
+%
+% REVISION
+%   #4
+
+/xdef {exch def} bind def
+
+% SDL task
+
+/sdl_task {
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        newpath
+        moveto
+        lineto
+        lineto
+        lineto
+        pop pop
+        closepath
+        { fill } { stroke } ifelse
+} bind def
+
+% SDL input from right
+% The indent has lines at 45 degrees
+% There should be a few spaces at the end of this shape's label
+
+/sdl_input_from_right {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 ury lry sub 2 div def
+        newpath
+        moveto
+        urx h2 sub ury h2 sub lineto
+        lrx lry lineto
+        llx lly lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL input from left
+% Similar to SDL input from right
+% There should be a few spaces at the start of this shape's label
+
+/sdl_input_from_left {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 uly lly sub 2 div def
+        newpath
+        moveto
+        lrx lry lineto
+        llx lly lineto
+        ulx h2 add ury h2 sub lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL priority input from right
+% Similar to SDL input from right
+% The chevrons are displaced by an eighth of the shape height
+% The filled version is indistinguishable from a non-priority SDL input
+
+/sdl_priority_input_from_right {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 ury lry sub 2 div def
+        newpath
+        moveto
+        urx h2 sub ury h2 sub lineto
+        lrx lry lineto
+        llx lly lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke
+        urx h2 4 div sub ury moveto
+        urx h2 sub h2 4 div sub ury h2 sub lineto
+        lrx h2 4 div sub lry lineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL priority input from left
+% Similar to SDL priority input from right
+
+/sdl_priority_input_from_left {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 uly lly sub 2 div def
+        newpath
+        moveto
+        lrx lry lineto
+        llx lly lineto
+        ulx h2 add uly h2 sub lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke
+        llx h2 4 div add lly moveto
+        ulx h2 add h2 4 div add uly h2 sub lineto
+        ulx h2 4 div add uly lineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL start
+% The left and right sides are semicircles
+% This should be used with "label = "                ""
+
+/sdl_start {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        pop pop
+        /r ury lry sub 2 div def
+        newpath
+        urx r sub ury r sub r 90 -90 arcn
+        ulx r add uly r sub r -90 90 arcn
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL procedure start
+% Similar to SDL start
+% The filled version is indistinguishable from an SDL start
+% This should be used with "label = "                ""
+
+/sdl_procedure_start {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        pop pop
+        /r ury lry sub 2 div def
+        newpath
+        urx r sub ury r sub r 90 -90 arcn
+        ulx r add uly r sub r -90 90 arcn
+        closepath
+        { fill } { stroke
+        lrx r sub lry moveto
+        0 r 2 mul rlineto
+        llx r add lly moveto
+        0 r 2 mul rlineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL state/nextstate
+% The left and right sides are arcs
+
+/sdl_state {
+    12 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        pop pop
+        /h2 ury lry sub 2 div def
+        /w2 h2 1.5 mul def % was urx ulx sub 2 div def but this made curvature width-dependent
+        /r w2 def
+        /th h2 r dup mul h2 dup mul sub sqrt atan def
+        newpath
+        urx w2 sub ury h2 sub r th th neg arcn
+        ulx w2 add uly h2 sub r -180 th add -180 th sub arcn
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL output to right
+% The outdent has lines at 45 degrees
+% There should be a few spaces at the end of this shape's label
+
+/sdl_output_to_right {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 ury lry sub 2 div def
+        newpath
+        exch h2 sub exch moveto
+        urx ury h2 sub lineto
+        lrx h2 sub lry lineto
+        llx lly lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL output to left
+% Similar to SDL output to right
+% There should be a few spaces at the start of this shape's label
+
+/sdl_output_to_left {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 ury lry sub 2 div def
+        newpath
+        moveto
+        lrx lry lineto
+        llx h2 add lly lineto
+        ulx ury h2 sub lineto
+        ulx h2 add uly lineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL continuous signal/enabling condition
+% The chevrons have lines at 45 degrees
+% There should be a few spaces at the start and end of this shape's label
+
+/sdl_condition {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h2 ury lry sub 2 div def
+        newpath
+        exch h2 sub exch moveto
+        urx ury h2 sub lineto
+        lrx h2 sub lry lineto
+        dup llx h2 add lly 3 -1 roll { lineto } { moveto } ifelse
+        ulx uly h2 sub lineto
+        ulx h2 add uly lineto
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL save
+% The left and right edges are at about 60 degrees
+% There should be a few spaces at the start and end of this shape's label
+
+/sdl_save {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h3 ury lry sub 3 div def
+        newpath
+        moveto
+        lrx h3 sub lry lineto
+        llx lly lineto
+        ulx h3 add uly lineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL stop
+% The width of the bounding box is ignored; the lines are set at 45 degrees
+% This shape cannot be filled
+% This should be used with "label = """ and "arrowhead = none, headclip = false"
+
+/sdl_stop {
+    7 dict begin
+        { stop } if % make sure not asked to fill this
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        pop pop
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef pop
+        /h2 uly lly sub 2 div def
+        /mx llx lrx add 2 div def
+        newpath
+        mx h2 add exch moveto pop
+        mx h2 sub lly lineto
+        mx h2 sub uly moveto
+        mx h2 add lry lineto
+        closepath
+        stroke
+    end
+} bind def
+
+% SDL return
+% The width of the bounding box is ignored; the lines are set at 45 degrees
+% The filled version is indistinguishable from an SDL connection
+
+/sdl_return {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef pop
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef pop
+        pop pop
+        /h2 uly lly sub 2 div 2 sqrt div def
+        /mx llx lrx add 2 div def
+        /my lry ury add 2 div def
+        newpath
+        mx my uly lly sub 2 div 0 360 arc
+        { fill } { stroke
+        mx h2 add my h2 add moveto
+        mx h2 sub my h2 sub lineto
+        mx h2 sub my h2 add moveto
+        mx h2 add my h2 sub lineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL create
+% The extra lines are displaced by an eighth of the shape height
+% The filled version is indistinguishable from an SDL task
+
+/sdl_create {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h8 ury lry sub 8 div def
+        newpath
+        moveto
+        lrx lry lineto
+        llx lly lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke
+        ulx uly h8 sub moveto
+        urx ury h8 sub lineto
+        llx lly h8 add moveto
+        lrx lry h8 add lineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL call
+% The extra lines are displaced by an eighth of the shape height
+% The filled version is indistinguishable from an SDL task
+% There should be a few spaces at the start and end of this shape's label
+
+/sdl_call {
+    9 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h8 ury lry sub 8 div def
+        newpath
+        moveto
+        lrx lry lineto
+        llx lly lineto
+        ulx uly lineto
+        closepath
+        { fill } { stroke
+        urx h8 sub ury moveto
+        lrx h8 sub lry lineto
+        llx h8 add lly moveto
+        ulx h8 add uly lineto
+        stroke } ifelse
+    end
+} bind def
+
+% SDL text symbol
+% The corner has a size of twice the H height
+
+/sdl_text {
+    10 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /h8 ury lry sub 8 div def
+        newpath
+        moveto
+        /d (H) true charpath flattenpath pathbbox exch pop exch sub exch pop 2 mul def
+        newpath
+        urx ury d sub moveto
+        lrx lry lineto
+        llx lly lineto
+        ulx uly lineto
+        urx d sub ury lineto
+        closepath
+        { fill } { stroke } ifelse
+        urx ury d sub moveto
+        d neg 0 rlineto
+        0 d rlineto
+        stroke
+    end
+} bind def
+
+% SDL text extension from left
+% This should be used with "rank = same"
+
+/sdl_text_extension_from_left {
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        pop pop
+        moveto
+        lineto
+        lineto
+        lineto
+        { fill } { stroke } ifelse
+} bind def
+
+% SDL text extension from right
+% This should be used with "rank = same"
+
+/sdl_text_extension_from_right {
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        pop pop
+        8 4 roll
+        moveto
+        lineto
+        lineto
+        lineto
+        { fill } { stroke } ifelse
+} bind def
+
+% SDL comment from left
+% This should be used with "style = dashed" and "rank = same"
+
+/sdl_comment_from_left { sdl_text_extension_from_left } bind def
+
+% SDL comment from right
+% This should be used with "style = dashed" and "rank = same"
+
+/sdl_comment_from_right { sdl_text_extension_from_right } bind def
+
+% SDL connector
+% The width of the bounding box is ignored
+
+/sdl_connector {
+    7 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        pop pop
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef pop
+        pop pop
+        /h2 uly lly sub 2 div def
+        /mx llx lrx add 2 div def
+        newpath
+        mx uly h2 sub h2 0 360 arc
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL set (extension)
+% The hourglass has a size of twice the H height
+% There should be a few spaces at the start of this shape's label
+
+/sdl_set {
+    10 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /my uly lly add 2 div def
+        newpath
+        moveto
+        /d (H) true charpath flattenpath pathbbox exch pop exch sub exch pop def
+        newpath
+        llx d add my d add moveto
+        ulx d add uly lineto
+        urx ury lineto
+        lrx lry lineto
+        llx d add lly lineto
+        llx d add my d sub lineto
+        dup { closepath fill } { stroke } ifelse
+        llx my d sub moveto
+        d 2 mul dup rlineto
+        d 2 mul neg 0 rlineto
+        d 2 mul dup neg rlineto
+        closepath
+        { fill } { stroke } ifelse
+    end
+} bind def
+
+% SDL reset (extension)
+% The cross has a size of twice the H height
+% There should be a few spaces at the start of this shape's label
+
+/sdl_reset {
+    10 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /my uly lly add 2 div def
+        newpath
+        moveto
+        /d (H) true charpath flattenpath pathbbox exch pop exch sub exch pop def
+        newpath
+        urx ury moveto
+        lrx lry lineto
+        llx d add lly lineto
+        ulx d add uly lineto
+        closepath
+        { fill } { stroke } ifelse
+        llx my d sub moveto
+        d 2 mul dup rlineto
+        llx d 2 mul add my d sub moveto
+        d 2 mul dup neg exch rlineto
+        stroke
+    end
+} bind def
+
+% SDL export (extension)
+% The store has a width of twice the H height
+% There should be a few spaces at the start of this shape's label
+
+/sdl_export {
+    10 dict begin
+        3 1 roll % put filled flag at end
+        4 ne { stop } if % sanity-check number of sides
+        aload pop
+        /ury xdef /urx xdef
+        /lry xdef /lrx xdef
+        /lly xdef /llx xdef
+        /uly xdef /ulx xdef
+        /my uly lly add 2 div def
+        newpath
+        moveto
+        /d (H) true charpath flattenpath pathbbox exch pop exch sub exch pop def
+        newpath
+        llx d add my d 2 div add moveto
+        ulx d add uly lineto
+        urx ury lineto
+        lrx lry lineto
+        llx d add lly lineto
+        llx d add my d 2 div sub lineto
+        { closepath fill } { stroke } ifelse
+        llx my d 2 div sub moveto
+        d 2 mul 0 rlineto
+        llx my d 2 div add moveto
+        d 2 mul 0 rlineto
+        stroke
+    end
+} bind def