From 44113dd5530d4653fe335ad13ccf80fb8882d5e7 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Tue, 18 Oct 2011 22:09:00 +0200 Subject: beta 2011.10.18 22:09 --- metapost/context/base/mp-char.mpiv | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'metapost/context/base') diff --git a/metapost/context/base/mp-char.mpiv b/metapost/context/base/mp-char.mpiv index f2bbb8b68..5450ed972 100644 --- a/metapost/context/base/mp-char.mpiv +++ b/metapost/context/base/mp-char.mpiv @@ -654,6 +654,12 @@ def flow_connect_left_right (expr xfrom,yyfrom,zfrom) (expr xto,yyto,zto) = flow_xypoints[3] := flow_y_on_grid(2,yfrom,yto,zfrom) ; flow_xypoints[4] := flow_xy_on_grid(5,3) ; fi ; + %%%% begin experiment + if flow_dsp_y <> 0 : + flow_xypoints[3] := flow_xypoints[3] shifted (0,-flow_dsp_y) ; + flow_xypoints[4] := flow_xypoints[4] shifted (0,-flow_dsp_y) ; + fi ; + %%%% end experiment flow_draw_connection ; fi ; enddef ; @@ -783,6 +789,14 @@ def flow_connect_top_top (expr xfrom,yyfrom,zfrom) (expr xto,yyto,zto) = flow_xypoints[3] := flow_x_on_grid(2,xfrom,xto,zfrom) ; flow_xypoints[4] := flow_xy_on_grid(3,5) ; fi ; + %%%% begin experiment (todo: not value but just + and ) + if flow_dsp_y <> 0 : + flow_xypoints[2] := flow_xypoints[2] shifted (0,flow_dsp_y) ; + flow_xypoints[3] := flow_xypoints[3] shifted (0,flow_dsp_y) ; + flow_xypoints[4] := flow_xypoints[4] shifted (0,flow_dsp_y) ; + flow_xypoints[5] := flow_xypoints[5] shifted (0,flow_dsp_y) ; + fi ; + %%%% end experiment flow_draw_connection ; fi ; enddef ; -- cgit v1.2.3