diff options
| author | Hans Hagen <pragma@wxs.nl> | 2011-10-18 22:09:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2011-10-18 22:09:00 +0200 |
| commit | 44113dd5530d4653fe335ad13ccf80fb8882d5e7 (patch) | |
| tree | 2dfe46b28a0da50749b7a162783f7270153431af /metapost | |
| parent | 3c50b29fa3fe5ec86e20e0812485067fa5b7eeb2 (diff) | |
| download | context-44113dd5530d4653fe335ad13ccf80fb8882d5e7.tar.gz | |
beta 2011.10.18 22:09
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-char.mpiv | 14 |
1 files changed, 14 insertions, 0 deletions
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 ; |