Quintiq file version 2.0
|
#parent: #root
|
Method GetLinePolygon (
|
NumberVector vect
|
) as internal[Polygon] id:Method_LibOpt_FormComponentGraph_GetLinePolygon
|
{
|
#keys: '[139164.3.1008855746]'
|
Body:
|
[*
|
poly := construct( Polygon );
|
|
scale_x := ValueHolderScaleX.Data();
|
scale_y := ValueHolderScaleY.Data();
|
|
scale := minvalue( scale_x, scale_y );
|
|
for( i := 0; i < vect.Size() - 3; i := i + 2 )
|
{
|
poly.AddPoint( vect.Get( i ), vect.Get( i + 1 ) );
|
}
|
x := vect.Get( vect.Size() - 2 );
|
y := vect.Get( vect.Size() - 1 );
|
|
arrow_size := maxvalue( 3, 12 - maxvalue( 2, 2 / scale ) );
|
arrow_size_x := [Number] ( arrow_size * scale / 2 );
|
arrow_size_y := [Number] ( arrow_size * scale );
|
|
poly.AddPoint( x, y - arrow_size_y );
|
poly.AddPoint( x - arrow_size_x, y - arrow_size_y );
|
poly.AddPoint( x, y );
|
poly.AddPoint( x + arrow_size_x, y - arrow_size_y );
|
poly.AddPoint( x, y - arrow_size_y );
|
for( i := vect.Size() - 4; i > 1; i := i - 2 )
|
{
|
poly.AddPoint( vect.Get( i ), vect.Get( i + 1 ) );
|
}
|
|
|
return & poly;
|
*]
|
Declarative: true
|
ReturnsOwning: true
|
}
|
