379 |
|
|
380 |
sequencecallpen = pencircle scaled 3pt; |
sequencecallpen = pencircle scaled 3pt; |
381 |
sequenceactivepen = pencircle scaled 1.5pt; |
sequenceactivepen = pencircle scaled 1.5pt; |
382 |
pair sequencebwid; |
pair sequencebwid, sequencex, sequencey; |
383 |
sequencebwid = (5,0); |
sequencebwid = (5,0); |
384 |
|
sequencex = (15,15); |
385 |
|
sequencey = (-15,15); |
386 |
|
|
387 |
vardef sequenceactivation(expr u,l) = |
vardef sequenceactivation(expr u,l) = |
388 |
save rectpath; |
save rectpath; |
420 |
label.top(labelstring, 0.5[(sourcex,starty), u]); |
label.top(labelstring, 0.5[(sourcex,starty), u]); |
421 |
enddef; |
enddef; |
422 |
|
|
423 |
|
vardef sequencedestroy(expr x, y) = |
424 |
|
save v, o; |
425 |
|
pair v, o; |
426 |
|
v = (x,y); |
427 |
|
draw v+sequencex -- v-sequencex withpen sequencecallpen; |
428 |
|
draw v+sequencey -- v-sequencey withpen sequencecallpen; |
429 |
|
enddef; |
430 |
|
|
431 |
vardef sequencecreatemeasure(expr sourcex)(suffix target)(expr starty, endy, labelstring) = |
vardef sequencecreatemeasure(expr sourcex)(suffix target)(expr starty, endy, labelstring) = |
432 |
know(sourcex); |
know(sourcex); |
433 |
know(starty); |
know(starty); |