12 Jun
2012
12 Jun
'12
6:54 p.m.
Hi!
I know this has been on the wished list of many of you. The following script produces:
-=-=-=-=-=-=-=-=-=-=-=-= | view el1 el2 edge line | view := ROView new. el1 := ROElement new. el1 @RODraggable. el1 extent: 50@50. el1 + ROBox blue.
el2 := ROElement new. el2 @RODraggable. el2 extent: 50@50. el2 + ROBox green.
el1 translateTo: 0 @ 100. edge := ROEdge from: el1 to: el2. line := ROLine new. line add: ROArrow new offset: 0.1. line add: ROArrow new offset: 0.5. edge + line.
view add: el1; add: el2; add: edge. view open -=-=-=-=-=-=-=-=-=-=-=-=
I will remove ROArrowedLine very soon then
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
