DRAKON.SU

view eval { select * from vitems where branch_id =:branch_id and type = "branch"} val {set x [expr $val(x)-$shift]
if {$x > $lastbranchx} then {set lastbranchx $x}
                                                                                                                     set x1 [expr $x + $val(w)]
                                                                                                                     if {$x1 > $right_x} then {set right_x $x1}
                                                                                                                     draw_branch $val(text) $x $val(y) $val(h) $val(w)}

view eval { select * from vitems where branch_id =:branch_id and type = "branch"} val {set x [expr $val(x)-$shift]
if {$x > $lastbranchx} then {set lastbranchx $x}
set x1 [expr $x + $val(w)]
if {$x1 > $right_x} then {set right_x $x1}
draw_branch $val(text) $x $val(y) $val(h) $val(w)}

proc draw {type text text2 x y h w a color} {
   switch $type {
      beginend {draw_beginend $text $x $y $h $w $a}
      branch  {draw_branch $text $x $y $h $w}
      address {draw_address $text $x $y $h $w}
                 ...
      default {draw_action "Не могу нарисовать" $x $y $h $w}
   }   
}

=== header ===
source file1.tcl
source file2.tcl

view eval {
   select *
   from vitems
   where branch_id =:branch_id
   and type = "branch"
} val {
   set x [expr $val(x)-$shift]
   if {$x > $lastbranchx} then {set lastbranchx $x}
   set x1 [expr $x + $val(w)]
   if {$x1 > $right_x} then {set right_x $x1}
   draw_branch $val(text) $x $val(y) $val(h) $val(w)
}

set lastaddressx 0
set lastbranchx 0
view eval {
   select min(x) as min_x
   from vitems where
   branch_id = :branch_id}
   {set min_x $min_x}
view eval {
   select max(w) as max_w
   from vitems where
   x = :min_x and
   branch_id = :branch_id and
   type != "horizontal" and
   type !="arrow"}
   {set max_w $max_w}
set shift [expr $min_x - $max_w - $right_x - $space]
set right_x [expr $min_x + $max_w - $shift]
set firstx [expr $min_x - $shift]
view eval {
   select * from vitems where
   branch_id =:branch_id and type = "horizontal"
   } val {
   set x [expr $val(x)-$shift];
   draw_horizontal   $x $val(y) $val(w)
   }
view eval {
   select * from vitems where
   branch_id =:branch_id and
   type = "vertical"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $right_x} then {set right_x $x};
   draw_vertical $x  $val(y) $val(h)
   }
view eval {
   select * from vitems
   where branch_id =:branch_id
   and type = "arrow"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $right_x}   then {set right_x $x};
   draw_arrow $x $val(y) $val(h) $val(w) $val(a)
   }
view eval {
   select * from vitems where
   branch_id =:branch_id
   and type = "address"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $lastaddressx} then
      {set lastaddressx $x};
   set x1 [expr $x + $val(w)];
   if {$x1 > $right_x} then
      {set right_x $x1};
    draw_address $val(text) $x $val(y) $val(h) $val(w)}
view eval {
   select * from vitems
   where branch_id =:branch_id
   and type = "branch"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $lastbranchx} then
      {set lastbranchx $x};
   set x1 [expr $x + $val(w)];
   if {$x1 > $right_x} then
      {set right_x $x1};
   draw_branch $val(text) $x $val(y) $val(h) $val(w)}
view eval {
   select * from vitems where
   branch_id =:branch_id and type != "horizontal"
   and type != "vertical" and type !="arrow"
   and type != "address" and type != "branch"
   } val {
   set x [expr $val(x)-$shift];
   set x1 [expr $x + $val(w)];
   if {$x1 > $right_x} then {set right_x $x1};
   draw $val(type) $val(text) $val(text2)
    $x $val(y) $val(h) $val(w) $val(a) $val(color)
   }
return "$right_x $lastaddressx $lastbranchx $firstx"

view eval {
   select max(w) as max_w
   from vitems where
   x = :min_x and
   branch_id = :branch_id and
   type != "horizontal" and
   type !="arrow"
   } {set max_w $max_w}

view eval {
   select max(w) as max_w
   from vitems where
   x = :min_x and
   branch_id = :branch_id and
   type != "horizontal" and
   type !="arrow"
   }
   {set max_w $max_w}

view eval {
   select * from vitems where
   branch_id =:branch_id and
   type = "vertical"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $right_x} then {set right_x $x};
   draw_vertical $x  $val(y) $val(h)
   }

view eval {
   select * from vitems where
   branch_id =:branch_id and
   type = "vertical"
   } val {
   set x [expr $val(x)-$shift];
   if {$x > $right_x} then
   {set right_x $x};
   draw_vertical $x  $val(y) $val(h)
   }

if { $var == 3 } {
    puts $var
}

if { $var == 3 }
{
    puts $var
}