Basic_shapes.cif

(CIF written by CleWin 5.1);
(FPGG - Labex IPGG);
(29 Rue d'Ulm);
(75005 Paris);
(France);
(Layer names);
L L0; (CleWin: 0 0/0f808000 0f808000);
L L1; (CleWin: 1 Layer 1/0fe08080 0fe08080);
(Symbol definitions);
DS1 1 10;
9 Sigmoid;
(C5Param Length 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 4072c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 1520
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

void sigmoid(double* x, int size) {
    int i = 0;
    x[0] = 0;
    x[size - 1] = 1;
    for (i = 1; i < size - 1; i++) {
        x[i] = 1 / (1 + exp(6 - (12 * (double)i / size)));
    }
}

void linspace(double* x, double start, double stop, int size) {
    double step = (stop - start) / ((double)size - 1);
    int i = 0;
    for (i = 0; i < size; i++) {
        x[i] = start + i * step;      
    }
}

void combineXY(double* x, double* y, double* nodes, int size) {
    int i = 0;
    for (i = 0; i < size; i++) {
        nodes[2 * i] = x[i];
        nodes[2 * i + 1] = y[i];
    }
}

void scaleArray(double* array, double factor, double offset, int size) {
    int i = 0;
    for (i = 0; i < size; i++) {
        array[i] = array[i] * factor + offset;
    }
}

int size = 100;
double x[202];
double y[202];
linspace(x, 0, Length-Width/2, size);
sigmoid(y, 100);
scaleArray(y, Height, 0, size);

x[size] = Length;
y[size] = Height/2 + Width / 2;
int i = 0;
for (i = 0; i < size; i++) {
    x[i + size + 1] = x[size - i - 1] + Width/2;
    y[i + size + 1] = y[size - i - 1] - Width/2 - Height/2;
    y[size - i - 1] += Width/2 - Height/2;                          
}
x[2*size+1] = 0;
y[2*size+1] = -Width / 2 - Height/2;

double nodes[404];    
combineXY(x, y, nodes, 2*size+2);
polygon(2*size+2, nodes);
snapnode(0, -Height/2, 180);
snapnode(Length, Height/2, 0);
);
P 0 -100000 9596 -99164 19192 -99058 28788 -98938 38384 -98803
 47980 -98651 57576 -98480 67172 -98287 76768 -98070 86364 -97826
 95960 -97551 105556 -97242 115152 -96894 124747 -96502 134343 -96062
 143939 -95568 153535 -95012 163131 -94388 172727 -93688 182323 -92902
 191919 -92021 201515 -91034 211111 -89929 220707 -88694 230303 -87313
 239899 -85772 249495 -84055 259091 -82143 268687 -80018 278283 -77660
 287879 -75048 297475 -72162 307071 -68980 316667 -65480 326263 -61642
 335859 -57445 345455 -52871 355051 -47906 364646 -42536 374242 -36755
 383838 -30557 393434 -23948 403030 -16937 412626 -9540 422222 -1782
 431818 6303 441414 14676 451010 23288 460606 32086 470202 41011
 479798 50000 489394 58989 498990 67914 508586 76712 518182 85324
 527778 93697 537374 101782 546970 109540 556566 116937 566162 123948
 575758 130557 585354 136755 594949 142536 604545 147906 614141 152871
 623737 157445 633333 161642 642929 165480 652525 168980 662121 172162
 671717 175048 681313 177660 690909 180018 700505 182143 710101 184055
 719697 185772 729293 187313 738889 188694 748485 189929 758081 191034
 767677 192021 777273 192902 786869 193688 796465 194388 806061 195012
 815657 195568 825253 196062 834848 196502 844444 196894 854040 197242
 863636 197551 873232 197826 882828 198070 892424 198287 902020 198480
 911616 198651 921212 198803 930808 198938 940404 199058 950000 200000
 1000000 200000 1000000 100000 990404 99058 980808 98938 971212 98803
 961616 98651 952020 98480 942424 98287 932828 98070 923232 97826
 913636 97551 904040 97242 894444 96894 884848 96502 875253 96062
 865657 95568 856061 95012 846465 94388 836869 93688 827273 92902
 817677 92021 808081 91034 798485 89929 788889 88694 779293 87313
 769697 85772 760101 84055 750505 82143 740909 80018 731313 77660
 721717 75048 712121 72162 702525 68980 692929 65480 683333 61642
 673737 57445 664141 52871 654545 47906 644949 42536 635354 36755
 625758 30557 616162 23948 606566 16937 596970 9540 587374 1782
 577778 -6303 568182 -14676 558586 -23288 548990 -32086 539394 -41011
 529798 -50000 520202 -58989 510606 -67914 501010 -76712 491414 -85324
 481818 -93697 472222 -101782 462626 -109540 453030 -116937 443434 -123948
 433838 -130557 424242 -136755 414646 -142536 405051 -147906 395455 -152871
 385859 -157445 376263 -161642 366667 -165480 357071 -168980 347475 -172162
 337879 -175048 328283 -177660 318687 -180018 309091 -182143 299495 -184055
 289899 -185772 280303 -187313 270707 -188694 261111 -189929 251515 -191034
 241919 -192021 232323 -192902 222727 -193688 213131 -194388 203535 -195012
 193939 -195568 184343 -196062 174747 -196502 165152 -196894 155556 -197242
 145960 -197551 136364 -197826 126768 -198070 117172 -198287 107576 -198480
 97980 -198651 88384 -198803 78788 -198938 69192 -199058 59596 -199164
 50000 -200000 0 -200000;
(C5Snap 0 -150000 180);
(C5Snap 1000000 150000 0);
DF;
DS2 100 1;
9 Straight;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 179
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0,-Width/2,Length,Width/2);
snapnode(0,0,180);
snapnode(Length,0,0);
);
B 400 100 200 0;
(C5Snap 0 0 180);
(C5Snap 400 0 0);
DF;
DS35 1000 1;
9 $C5PSymbol2_35;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4072c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 179
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0,-Width/2,Length,Width/2);
snapnode(0,0,180);
snapnode(Length,0,0);
);
B 30 20 15 0;
(C5Snap 0 0 180);
(C5Snap 30 0 0);
DF;
DS36 1 1;
9 $C5PSymbol2_36;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 40a4f6902b1c2c6f 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 179
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0,-Width/2,Length,Width/2);
snapnode(0,0,180);
snapnode(Length,0,0);
);
B 268328 10000 134164 0;
(C5Snap 0 0 180);
(C5Snap 268328 0 0);
DF;
DS37 1 10;
9 $C5PSymbol2_37;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4090dc490f3d28ee 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 179
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0,-Width/2,Length,Width/2);
snapnode(0,0,180);
snapnode(Length,0,0);
);
B 1079070 100000 539535 0;
(C5Snap 0 0 180);
(C5Snap 1079070 0 0);
DF;
DS3 10000 1;
9 Corner_smooth;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4056800000000000 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 16 T 0 0;
(C5Param Angle 4056800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 1 1 90);
DF;
DS38 10000 1;
9 $C5PSymbol3_38;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4056800000000000 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 55 T 0 0;
(C5Param Angle 4056800000000000 0 0);
(C5Param Width 4069000000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 2 2 90);
DF;
DS39 10000 1;
9 $C5PSymbol3_39;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4066800000000000 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 48 T 0 0;
(C5Param Angle 4066800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 0 2 180);
DF;
DS40 1 10;
9 $C5PSymbol3_40;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle c0471ffcd96ece55 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 49 T 0 0;
(C5Param Angle c0471ffcb923a29c 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 72236 -30849 -46.2499);
DF;
DS41 1 10;
9 $C5PSymbol3_41;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 40471ffcd96ece55 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 50 T 0 0;
(C5Param Angle 40471ffcb923a29c 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 72236 30849 46.2499);
DF;
DS42 1 10;
9 $C5PSymbol3_42;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle c059e3392f4fa34a c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 51 T 0 0;
(C5Param Angle c059e33333333333 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4062c00000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 145825 -185144 -103.55);
DF;
DS43 1 10;
9 $C5PSymbol3_43;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle c05623392f4fa34a c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 52 T 0 0;
(C5Param Angle c0562339c0ebedfa 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Radius 4062c00000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 149952 -146205 -88.5504);
DF;
DS44 10000 1;
9 $C5PSymbol3_44;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4066800000000000 c066800000000000 4066800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 7 7 2000000 10000 507
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;

TM m;
unityTM(&m);
symbol("Bend", &m);
parameter("Angle", Angle);
parameter("Width", Width);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(Radius*sin(a_radians),sign*(Radius*cos(a_radians)-Radius),Angle);                                                                       
);
C 56 T 0 0;
(C5Param Angle 4066800000000000 0 0);
(C5Param Width 4069000000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 0 4 180);
DF;
DS6 1 10;
9 Mask;
L L0;
P 0 52000000 0 55000000 55000000 55000000 55000000 -55000000 -55000000 -55000000
 -55000000 55000000 0 55000000 0 52000000 -4532099 51802124 -9029705 51210003
 -13458590 50228143 -17785047 48864016 -21976150 47128005 -26000000 45033321 -29825975 42595906
 -33424956 39834311 -36769553 36769553 -39834311 33424956 -42595906 29825975 -45033321 26000000
 -47128005 21976150 -48864016 17785047 -50228143 13458590 -51210003 9029705 -51802124 4532099
 -52000000 0 -51802124 -4532099 -51210003 -9029705 -50228143 -13458590 -48864016 -17785047
 -47128005 -21976150 -45033321 -26000000 -42595906 -29825975 -39834311 -33424956 -36769553 -36769553
 -33424956 -39834311 -29825975 -42595906 -26000000 -45033321 -21976150 -47128005 -17785047 -48864016
 -13458590 -50228143 -9029705 -51210003 -4532099 -51802124 0 -52000000 4532099 -51802124
 9029705 -51210003 13458590 -50228143 17785047 -48864016 21976150 -47128005 26000000 -45033321
 29825975 -42595906 33424956 -39834311 36769553 -36769553 39834311 -33424956 42595906 -29825975
 45033321 -26000000 47128005 -21976150 48864016 -17785047 50228143 -13458590 51210003 -9029705
 51802124 -4532099 52000000 0 51802124 4532099 51210003 9029705 50228143 13458590
 48864016 17785047 47128005 21976150 45033321 26000000 42595906 29825975 39834311 33424956
 36769553 36769553 33424956 39834311 29825975 42595906 26000000 45033321 21976150 47128005
 17785047 48864016 13458590 50228143 9029705 51210003 4532099 51802124;
DF;
DS7 1 10;
9 Corner_sharp;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Theta 4056800000000000 c066800000000000 4066800000000000);
(C5Param Angle c046800000000000 c056800000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 0 0 2000000 10000 42
                                        
);
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 5 5 2000000 10000 415
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle<0) ? -1.0 : 1.0;
TM m;
unityTM(&m);
symbol("Wedge", &m);
parameter("Width", Width);
parameter("Angle", Angle);

snapnode(0, 0, 180);
snapnode(    
    sin(a_radians)*Width/2,
    sign * Width/2 - sign * cos(a_radians)*Width/2,
    Angle
);
);
C 45 T 0 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Angle c046800000000000 0 0);
(C5Snap 0 0 180);
(C5Snap 35355 -14645 -45);
DF;
DS8 100 1;
9 T-junction;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 4 4 2000000 10000 220
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0, -Width/2, Length, Width/2);
snapnode(0, 0, 180);
snapnode(Length, 0, 0);
snapnode(Length/2, Width/2, 90);
);
B 100 100 50 0;
(C5Snap 0 0 180);
(C5Snap 100 0 0);
(C5Snap 50 50 90);
DF;
DS9 100 1;
9 InOutlet;
(C5Param Radius 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 1084178432 0 0);
(CleScript  2 0 3 3 2000000 10000 187
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

circle(0, 0, Radius);
rectangle(0, -Width/2, Radius, Width/2);
snapnode(Radius, 0, 0);
);
R 2000 2 0;
B 1000 100 502 0;
(C5Snap 1002 0 0);
DF;
DS10 100 1;
9 X-junction;
(C5Param Length 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 5 5 2000000 10000 256
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0, -Width/2, Length, Width/2);
snapnode(0, 0, 180);
snapnode(Length, 0, 0);
snapnode(Length/2, Width/2, 90);
snapnode(Length/2, -Width/2, 270);
);
B 100 100 50 0;
(C5Snap 0 0 180);
(C5Snap 100 0 0);
(C5Snap 50 50 90);
(C5Snap 50 -50 270);
DF;
DS12 100 1;
9 Trapezoid;
(C5Param Width_in 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out 4049000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 352
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[8];
nodes[0] = 0;
nodes[1] = -Width_in/2;
nodes[2] = 0;
nodes[3] = Width_in/2;
nodes[4] = Length;
nodes[5] = Width_out/2;
nodes[6] = Length;
nodes[7] = -Width_out/2;
polygon(4, nodes);
snapnode(0, 0, 180);
snapnode(Length, 0, 0);
);
P 0 -50 0 50 100 25 100 -25;
(C5Snap 0 0 180);
(C5Snap 100 0 0);
DF;
DS13 1 10;
9 Constriction_smooth;
(C5Param Width_in 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 511
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[404];
double amp = (Width_in - Width_out) / 4;
double avg = (Width_in + Width_out) / 4;

int i = 0;
double dy = 0;
for (i = 0; i < 101; i++) {
    dy = amp * cos(i * M_PI / 100);
    nodes[2*i] = Length * i / 100;
    nodes[2*i+1] = avg + dy;
    nodes[403-2*i-1] = Length * i / 100;
    nodes[403-2*i] = - avg - dy;
}
polygon(202, nodes);
snapnode(0, 0, 180);
snapnode(Length, 0, 0);
);
P 0 50000 1000 50012 2000 50049 3000 50111 4000 50197
 5000 50308 6000 50443 7000 50602 8000 50785 9000 50993
 10000 51224 11000 51478 12000 51756 13000 52056 14000 52379
 15000 52725 16000 53092 17000 53481 18000 53892 19000 54323
 20000 54775 21000 55246 22000 55737 23000 56247 24000 56776
 25000 57322 26000 57886 27000 58467 28000 59064 29000 59677
 30000 60305 31000 60948 32000 61604 33000 62274 34000 62956
 35000 63650 36000 64356 37000 65071 38000 65797 39000 66532
 40000 67275 41000 68025 42000 68783 43000 69546 44000 70315
 45000 71089 46000 71867 47000 72647 48000 73430 49000 74215
 50000 75000 51000 75785 52000 76570 53000 77353 54000 78133
 55000 78911 56000 79685 57000 80454 58000 81217 59000 81975
 60000 82725 61000 83468 62000 84203 63000 84929 64000 85644
 65000 86350 66000 87044 67000 87726 68000 88396 69000 89052
 70000 89695 71000 90323 72000 90936 73000 91533 74000 92114
 75000 92678 76000 93224 77000 93753 78000 94263 79000 94754
 80000 95225 81000 95677 82000 96108 83000 96519 84000 96908
 85000 97275 86000 97621 87000 97944 88000 98244 89000 98522
 90000 98776 91000 99007 92000 99215 93000 99398 94000 99557
 95000 99692 96000 99803 97000 99889 98000 99951 99000 99988
 100000 100000 100000 -100000 99000 -99988 98000 -99951 97000 -99889
 96000 -99803 95000 -99692 94000 -99557 93000 -99398 92000 -99215
 91000 -99007 90000 -98776 89000 -98522 88000 -98244 87000 -97944
 86000 -97621 85000 -97275 84000 -96908 83000 -96519 82000 -96108
 81000 -95677 80000 -95225 79000 -94754 78000 -94263 77000 -93753
 76000 -93224 75000 -92678 74000 -92114 73000 -91533 72000 -90936
 71000 -90323 70000 -89695 69000 -89052 68000 -88396 67000 -87726
 66000 -87044 65000 -86350 64000 -85644 63000 -84929 62000 -84203
 61000 -83468 60000 -82725 59000 -81975 58000 -81217 57000 -80454
 56000 -79685 55000 -78911 54000 -78133 53000 -77353 52000 -76570
 51000 -75785 50000 -75000 49000 -74215 48000 -73430 47000 -72647
 46000 -71867 45000 -71089 44000 -70315 43000 -69546 42000 -68783
 41000 -68025 40000 -67275 39000 -66532 38000 -65797 37000 -65071
 36000 -64356 35000 -63650 34000 -62956 33000 -62274 32000 -61604
 31000 -60948 30000 -60305 29000 -59677 28000 -59064 27000 -58467
 26000 -57886 25000 -57322 24000 -56776 23000 -56247 22000 -55737
 21000 -55246 20000 -54775 19000 -54323 18000 -53892 17000 -53481
 16000 -53092 15000 -52725 14000 -52379 13000 -52056 12000 -51756
 11000 -51478 10000 -51224 9000 -50993 8000 -50785 7000 -50602
 6000 -50443 5000 -50308 4000 -50197 3000 -50111 2000 -50049
 1000 -50012 0 -50000;
(C5Snap 0 0 180);
(C5Snap 100000 0 0);
DF;
DS15 1 10;
9 Wedge;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4046800000000000 c056800000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 462
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle<0) ? -1.0 : 1.0;
double nodes[8];
nodes[0] = 0;
nodes[1] = -sign * Width/2;
nodes[2] = 0;
nodes[3] = sign * Width/2;
nodes[4] = sin(a_radians)*Width;
nodes[5] = sign * Width/2 - sign * cos(a_radians)*Width;
nodes[6] = tan(a_radians/2)*Width;
nodes[7] = sign * -Width/2;
polygon(4, nodes);
);
P 0 -50000 0 50000 70711 -20711 41421 -50000;
DF;
DS45 1 10;
9 $C5PSymbol15_45;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle c046800000000000 c056800000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 462
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle<0) ? -1.0 : 1.0;
double nodes[8];
nodes[0] = 0;
nodes[1] = -sign * Width/2;
nodes[2] = 0;
nodes[3] = sign * Width/2;
nodes[4] = sin(a_radians)*Width;
nodes[5] = sign * Width/2 - sign * cos(a_radians)*Width;
nodes[6] = tan(a_radians/2)*Width;
nodes[7] = sign * -Width/2;
polygon(4, nodes);
);
P 0 50000 0 -50000 70711 20711 41421 50000;
DF;
DS46 1 10;
9 $C5PSymbol15_46;
(C5Param Width 4052c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4046800000000000 c056800000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 462
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle<0) ? -1.0 : 1.0;
double nodes[8];
nodes[0] = 0;
nodes[1] = -sign * Width/2;
nodes[2] = 0;
nodes[3] = sign * Width/2;
nodes[4] = sin(a_radians)*Width;
nodes[5] = sign * Width/2 - sign * cos(a_radians)*Width;
nodes[6] = tan(a_radians/2)*Width;
nodes[7] = sign * -Width/2;
polygon(4, nodes);
);
P 0 -37500 0 37500 53033 -15533 31066 -37500;
DF;
DS47 1 10;
9 $C5PSymbol15_47;
(C5Param Width 4039000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle c039000000000000 c056800000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 462
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle<0) ? -1.0 : 1.0;
double nodes[8];
nodes[0] = 0;
nodes[1] = -sign * Width/2;
nodes[2] = 0;
nodes[3] = sign * Width/2;
nodes[4] = sin(a_radians)*Width;
nodes[5] = sign * Width/2 - sign * cos(a_radians)*Width;
nodes[6] = tan(a_radians/2)*Width;
nodes[7] = sign * -Width/2;
polygon(4, nodes);
);
P 0 12500 0 -12500 10565 10158 5542 12500;
DF;
DS16 1 10;
9 Bend;
(C5Param Angle 4056800000000000 c066800000000000 4066800000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 50000 882 50008 1765 50031 2646 50070 3527 50125
 4407 50195 5285 50280 6162 50381 7036 50498 7909 50629
 8779 50777 9646 50939 10511 51117 11372 51310 12229 51519
 13083 51742 13933 51980 14778 52234 15619 52502 16454 52785
 17285 53083 18110 53395 18930 53722 19744 54063 20552 54419
 21353 54789 22147 55173 22935 55570 23716 55982 24489 56408
 25254 56847 26012 57299 26762 57765 27503 58244 28235 58735
 28959 59240 29674 59758 30380 60288 31076 60830 31762 61384
 32439 61951 33105 62529 33761 63120 34407 63721 35042 64334
 35666 64958 36279 65593 36880 66239 37471 66895 38049 67561
 38616 68238 39170 68924 39712 69620 40242 70326 40760 71041
 41265 71765 41756 72497 42235 73238 42701 73988 43153 74746
 43592 75511 44018 76284 44430 77065 44827 77853 45211 78647
 45581 79448 45937 80256 46278 81070 46605 81890 46917 82715
 47215 83546 47498 84381 47766 85222 48020 86067 48258 86917
 48481 87771 48690 88628 48883 89489 49061 90354 49223 91221
 49371 92091 49502 92964 49619 93838 49720 94715 49805 95593
 49875 96473 49930 97354 49969 98235 49992 99118 50000 100000
 150000 100000 149977 97353 149907 94706 149790 92061 149626 89419
 149416 86780 149160 84145 148857 81515 148507 78891 148112 76273
 147670 73663 147182 71061 146648 68468 146069 65885 145444 63312
 144774 60751 144059 58202 143299 55666 142494 53144 141645 50637
 140752 48145 139815 45669 138834 43210 137810 40768 136743 38345
 135634 35942 134482 33558 133289 31195 132053 28853 130777 26534
 129460 24237 128103 21964 126706 19715 125269 17492 123794 15294
 122279 13122 120727 10978 119137 8861 117510 6773 115847 4713
 114147 2683 112412 684 110641 -1284 108837 -3221 106998 -5126
 105126 -6998 103221 -8837 101284 -10641 99316 -12412 97317 -14147
 95287 -15847 93227 -17510 91139 -19137 89022 -20727 86878 -22279
 84706 -23794 82508 -25269 80285 -26706 78036 -28103 75763 -29460
 73466 -30777 71147 -32053 68805 -33289 66442 -34482 64058 -35634
 61655 -36743 59232 -37810 56790 -38834 54331 -39815 51855 -40752
 49363 -41645 46856 -42494 44334 -43299 41798 -44059 39249 -44774
 36688 -45444 34115 -46069 31532 -46648 28939 -47182 26337 -47670
 23727 -48112 21109 -48507 18485 -48857 15855 -49160 13220 -49416
 10581 -49626 7939 -49790 5294 -49907 2647 -49977 0 -50000;
DF;
DS48 1 10;
9 $C5PSymbol16_48;
(C5Param Angle 4066800000000000 c066800000000000 4066800000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 50000 1765 50031 3527 50125 5285 50280 7036 50498
 8779 50777 10511 51117 12229 51519 13933 51980 15619 52502
 17285 53083 18930 53722 20552 54419 22147 55173 23716 55982
 25254 56847 26762 57765 28235 58735 29674 59758 31076 60830
 32439 61951 33761 63120 35042 64334 36279 65593 37471 66895
 38616 68238 39712 69620 40760 71041 41756 72497 42701 73988
 43592 75511 44430 77065 45211 78647 45937 80256 46605 81890
 47215 83546 47766 85222 48258 86917 48690 88628 49061 90354
 49371 92091 49619 93838 49805 95593 49930 97354 49992 99118
 49992 100882 49930 102646 49805 104407 49619 106162 49371 107909
 49061 109646 48690 111372 48258 113083 47766 114778 47215 116454
 46605 118110 45937 119744 45211 121353 44430 122935 43592 124489
 42701 126012 41756 127503 40760 128959 39712 130380 38616 131762
 37471 133105 36279 134407 35042 135666 33761 136880 32439 138049
 31076 139170 29674 140242 28235 141265 26762 142235 25254 143153
 23716 144018 22147 144827 20552 145581 18930 146278 17285 146917
 15619 147498 13933 148020 12229 148481 10511 148883 8779 149223
 7036 149502 5285 149720 3527 149875 1765 149969 0 150000
 0 250000 5294 249907 10581 249626 15855 249160 21109 248507
 26337 247670 31532 246648 36688 245444 41798 244059 46856 242494
 51855 240752 56790 238834 61655 236743 66442 234482 71147 232053
 75763 229460 80285 226706 84706 223794 89022 220727 93227 217510
 97317 214147 101284 210641 105126 206998 108837 203221 112412 199316
 115847 195287 119137 191139 122279 186878 125269 182508 128103 178036
 130777 173466 133289 168805 135634 164058 137810 159232 139815 154331
 141645 149363 143299 144334 144774 139249 146069 134115 147182 128939
 148112 123727 148857 118485 149416 113220 149790 107939 149977 102647
 149977 97353 149790 92061 149416 86780 148857 81515 148112 76273
 147182 71061 146069 65885 144774 60751 143299 55666 141645 50637
 139815 45669 137810 40768 135634 35942 133289 31195 130777 26534
 128103 21964 125269 17492 122279 13122 119137 8861 115847 4713
 112412 684 108837 -3221 105126 -6998 101284 -10641 97317 -14147
 93227 -17510 89022 -20727 84706 -23794 80285 -26706 75763 -29460
 71147 -32053 66442 -34482 61655 -36743 56790 -38834 51855 -40752
 46856 -42494 41798 -44059 36688 -45444 31532 -46648 26337 -47670
 21109 -48507 15855 -49160 10581 -49626 5294 -49907 0 -50000;
DF;
DS49 1 10;
9 $C5PSymbol16_49;
(C5Param Angle c0471ffcb923a29c c066800000000000 4066800000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 -50000 453 -50002 907 -50008 1360 -50019 1814 -50033
 2267 -50051 2720 -50074 3172 -50101 3625 -50132 4077 -50166
 4529 -50206 4980 -50249 5431 -50296 5882 -50347 6332 -50403
 6781 -50462 7230 -50526 7679 -50593 8127 -50665 8574 -50741
 9020 -50820 9466 -50904 9911 -50992 10355 -51084 10798 -51180
 11240 -51280 11682 -51384 12122 -51492 12562 -51604 13000 -51720
 13437 -51839 13874 -51963 14309 -52091 14743 -52223 15175 -52359
 15607 -52498 16037 -52642 16466 -52789 16893 -52940 17320 -53096
 17744 -53255 18168 -53417 18589 -53584 19010 -53755 19428 -53929
 19845 -54107 20261 -54289 20674 -54475 21086 -54664 21497 -54857
 21905 -55054 22312 -55254 22717 -55459 23120 -55666 23521 -55878
 23920 -56093 24318 -56312 24713 -56534 25106 -56760 25497 -56990
 25886 -57223 26273 -57459 26658 -57699 27040 -57943 27421 -58190
 27799 -58440 28175 -58694 28548 -58951 28919 -59212 29288 -59476
 29654 -59743 30018 -60014 30380 -60288 30739 -60565 31095 -60845
 31449 -61129 31800 -61416 32149 -61706 32495 -61999 32838 -62295
 33179 -62594 33517 -62897 33852 -63202 34184 -63511 34514 -63822
 34840 -64137 35164 -64454 35485 -64775 35803 -65098 36118 -65424
 108354 3727 107409 4706 106455 5675 105492 6637 104521 7589
 103541 8533 102552 9467 101555 10393 100550 11309 99536 12217
 98514 13115 97484 14004 96446 14883 95400 15753 94346 16614
 93285 17465 92216 18306 91139 19137 90055 19959 88963 20771
 87864 21573 86758 22365 85644 23146 84524 23918 83397 24680
 82262 25431 81121 26172 79974 26902 78819 27623 77659 28332
 76491 29031 75318 29720 74138 30397 72953 31064 71761 31721
 70563 32366 69360 33001 68151 33624 66936 34237 65716 34839
 64490 35429 63259 36008 62023 36576 60782 37133 59536 37679
 58284 38213 57029 38736 55768 39248 54503 39748 53233 40236
 51959 40713 50680 41179 49398 41633 48111 42075 46821 42505
 45526 42924 44228 43331 42926 43727 41621 44110 40312 44482
 39000 44841 37685 45189 36367 45525 35045 45849 33721 46160
 32394 46460 31064 46748 29732 47024 28397 47287 27060 47539
 25721 47778 24380 48005 23036 48221 21691 48423 20344 48614
 18995 48792 17645 48959 16293 49112 14940 49254 13586 49383
 12231 49501 10874 49605 9517 49698 8159 49778 6800 49846
 5441 49901 4081 49944 2721 49975 1360 49994 0 50000;
DF;
DS50 1 10;
9 $C5PSymbol16_50;
(C5Param Angle 40471ffcb923a29c c066800000000000 4066800000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 50000 453 50002 907 50008 1360 50019 1814 50033
 2267 50051 2720 50074 3172 50101 3625 50132 4077 50166
 4529 50206 4980 50249 5431 50296 5882 50347 6332 50403
 6781 50462 7230 50526 7679 50593 8127 50665 8574 50741
 9020 50820 9466 50904 9911 50992 10355 51084 10798 51180
 11240 51280 11682 51384 12122 51492 12562 51604 13000 51720
 13437 51839 13874 51963 14309 52091 14743 52223 15175 52359
 15607 52498 16037 52642 16466 52789 16893 52940 17320 53096
 17744 53255 18168 53417 18589 53584 19010 53755 19428 53929
 19845 54107 20261 54289 20674 54475 21086 54664 21497 54857
 21905 55054 22312 55254 22717 55459 23120 55666 23521 55878
 23920 56093 24318 56312 24713 56534 25106 56760 25497 56990
 25886 57223 26273 57459 26658 57699 27040 57943 27421 58190
 27799 58440 28175 58694 28548 58951 28919 59212 29288 59476
 29654 59743 30018 60014 30380 60288 30739 60565 31095 60845
 31449 61129 31800 61416 32149 61706 32495 61999 32838 62295
 33179 62594 33517 62897 33852 63202 34184 63511 34514 63822
 34840 64137 35164 64454 35485 64775 35803 65098 36118 65424
 108354 -3727 107409 -4706 106455 -5675 105492 -6637 104521 -7589
 103541 -8533 102552 -9467 101555 -10393 100550 -11309 99536 -12217
 98514 -13115 97484 -14004 96446 -14883 95400 -15753 94346 -16614
 93285 -17465 92216 -18306 91139 -19137 90055 -19959 88963 -20771
 87864 -21573 86758 -22365 85644 -23146 84524 -23918 83397 -24680
 82262 -25431 81121 -26172 79974 -26902 78819 -27623 77659 -28332
 76491 -29031 75318 -29720 74138 -30397 72953 -31064 71761 -31721
 70563 -32366 69360 -33001 68151 -33624 66936 -34237 65716 -34839
 64490 -35429 63259 -36008 62023 -36576 60782 -37133 59536 -37679
 58284 -38213 57029 -38736 55768 -39248 54503 -39748 53233 -40236
 51959 -40713 50680 -41179 49398 -41633 48111 -42075 46821 -42505
 45526 -42924 44228 -43331 42926 -43727 41621 -44110 40312 -44482
 39000 -44841 37685 -45189 36367 -45525 35045 -45849 33721 -46160
 32394 -46460 31064 -46748 29732 -47024 28397 -47287 27060 -47539
 25721 -47778 24380 -48005 23036 -48221 21691 -48423 20344 -48614
 18995 -48792 17645 -48959 16293 -49112 14940 -49254 13586 -49383
 12231 -49501 10874 -49605 9517 -49698 8159 -49778 6800 -49846
 5441 -49901 4081 -49944 2721 -49975 1360 -49994 0 -50000;
DF;
DS51 1 10;
9 $C5PSymbol16_51;
(C5Param Angle c059e33333333333 c066800000000000 4066800000000000);
(C5Param Radius 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 -50000 2031 -50021 4060 -50082 6088 -50186 8114 -50330
 10136 -50515 12154 -50741 14167 -51009 16174 -51317 18174 -51665
 20167 -52055 22152 -52484 24127 -52954 26093 -53464 28048 -54014
 29991 -54603 31922 -55232 33840 -55900 35743 -56606 37632 -57351
 39506 -58134 41363 -58956 43203 -59814 45026 -60710 46829 -61643
 48614 -62612 50378 -63617 52122 -64658 53844 -65734 55544 -66844
 57221 -67989 58874 -69168 60504 -70380 62108 -71625 63686 -72902
 65239 -74212 66764 -75552 68262 -76923 69732 -78324 71173 -79755
 72585 -81214 73966 -82702 75318 -84218 76638 -85761 77926 -87330
 79183 -88926 80407 -90546 81597 -92191 82754 -93860 83877 -95552
 84965 -97266 86019 -99002 87037 -100759 88018 -102537 88964 -104334
 89873 -106150 90745 -107984 91579 -109835 92376 -111703 93135 -113586
 93855 -115485 94536 -117398 95179 -119324 95782 -121263 96346 -123214
 96870 -125176 97354 -127148 97798 -129129 98201 -131119 98565 -133117
 98887 -135122 99169 -137133 99410 -139149 99609 -141170 99768 -143195
 99886 -145222 99962 -147251 99997 -149281 99991 -151312 99944 -153342
 99856 -155371 99726 -157397 99555 -159421 99343 -161440 99091 -163455
 98797 -165464 98463 -167467 98088 -169463 97672 -171451 97217 -173429
 194433 -196859 195345 -192901 196175 -188926 196925 -184934 197594 -180929
 198181 -176910 198687 -172880 199111 -168841 199452 -164794 199711 -160741
 199888 -156684 199983 -152624 199995 -148563 199924 -144502 199772 -140444
 199536 -136389 199219 -132340 198819 -128299 198338 -124266 197774 -120244
 197129 -116234 196403 -112239 195596 -108258 194708 -104295 193740 -100351
 192691 -96428 191564 -92526 190357 -88648 189072 -84796 187709 -80970
 186269 -77173 184752 -73405 183159 -69670 181490 -65967 179746 -62299
 177928 -58668 176037 -55074 174073 -51519 172037 -48004 169931 -44532
 167754 -41103 165509 -37720 163195 -34382 160813 -31092 158366 -27851
 155853 -24661 153276 -21522 150635 -18436 147933 -15405 145169 -12429
 142346 -9509 139464 -6648 136524 -3846 133529 -1104 130478 1577
 127373 4195 124216 6750 121007 9240 117749 11664 114442 14021
 111088 16311 107688 18533 104244 20685 100756 22766 97228 24776
 93659 26715 90051 28580 86407 30372 82726 32089 79012 33731
 75265 35298 71487 36788 67679 38201 63844 39536 59982 40793
 56096 41972 52186 43072 48255 44091 44304 45031 40335 45891
 36349 46669 32348 47367 28334 47983 24308 48517 20272 48970
 16227 49341 12176 49629 8120 49835 4061 49959 0 50000;
DF;
DS52 1 10;
9 $C5PSymbol16_52;
(C5Param Angle c0562339c0ebedfa c066800000000000 4066800000000000);
(C5Param Radius 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 -50000 1736 -50015 3472 -50060 5207 -50136 6940 -50241
 8672 -50377 10400 -50542 12126 -50738 13847 -50963 15565 -51219
 17278 -51504 18986 -51819 20688 -52163 22383 -52537 24072 -52941
 25754 -53373 27428 -53835 29094 -54326 30751 -54845 32398 -55394
 34036 -55971 35664 -56576 37281 -57209 38886 -57870 40480 -58560
 42062 -59276 43631 -60020 45187 -60792 46729 -61590 48257 -62414
 49771 -63266 51269 -64143 52752 -65046 54220 -65975 55671 -66929
 57105 -67908 58521 -68912 59921 -69941 61302 -70993 62664 -72069
 64008 -73169 65333 -74292 66637 -75438 67922 -76607 69186 -77797
 70430 -79009 71652 -80243 72852 -81498 74031 -82773 75187 -84069
 76320 -85384 77431 -86719 78518 -88073 79581 -89446 80621 -90837
 81636 -92246 82627 -93672 83592 -95115 84533 -96575 85448 -98051
 86337 -99543 87200 -101049 88037 -102571 88847 -104107 89631 -105656
 90387 -107219 91116 -108795 91818 -110384 92492 -111984 93138 -113596
 93756 -115219 94346 -116852 94908 -118495 95440 -120148 95944 -121810
 96419 -123480 96865 -125158 97282 -126844 97669 -128537 98027 -130236
 98356 -131941 98655 -133652 98924 -135367 99163 -137087 99372 -138811
 99551 -140538 99701 -142268 99820 -144001 99909 -145735 99968 -147470
 199936 -144940 199818 -141470 199640 -138001 199401 -134536 199103 -131076
 198744 -127622 198326 -124174 197847 -120734 197309 -117303 196712 -113882
 196055 -110472 195339 -107073 194564 -103688 193731 -100316 192839 -96960
 191889 -93619 190881 -90296 189815 -86990 188692 -83704 187513 -80437
 186277 -77192 184984 -73968 183636 -70768 182233 -67591 180774 -64439
 179261 -61313 177694 -58213 176074 -55142 174400 -52099 172674 -49085
 170895 -46102 169065 -43150 167185 -40231 165253 -37344 163272 -34492
 161242 -31674 159163 -28892 157036 -26146 154862 -23438 152641 -20768
 150374 -18137 148061 -15546 145704 -12995 143303 -10486 140859 -8019
 138373 -5594 135844 -3213 133275 -876 130665 1415 128016 3661
 125329 5861 122604 8014 119841 10119 117043 12176 114209 14184
 111341 16142 108439 18050 105505 19908 102539 21714 99542 23469
 96514 25171 93458 26821 90374 28417 87262 29959 84124 31447
 80961 32881 77773 34259 74561 35582 71328 36848 68073 38059
 64797 39213 61501 40309 58188 41348 54856 42330 51508 43253
 48145 44119 44767 44925 41375 45673 37971 46362 34556 46992
 31130 47562 27695 48073 24251 48524 20800 48915 17343 49247
 13881 49518 10414 49729 6945 49879 3473 49970 0 50000;
DF;
DS53 1 10;
9 $C5PSymbol16_53;
(C5Param Angle 4054000000000000 c066800000000000 4066800000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4050400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 32500 1059 32508 2118 32533 3176 32575 4233 32633
 5289 32708 6344 32799 7398 32907 8449 33031 9499 33172
 10546 33329 11591 33503 12633 33693 13671 33899 14707 34122
 15738 34360 16766 34615 17790 34886 18809 35174 19824 35477
 20833 35796 21838 36130 22837 36481 23831 36847 24819 37228
 25801 37625 26776 38038 27745 38466 28707 38908 29661 39366
 30609 39839 31549 40327 32481 40829 33406 41346 34322 41877
 35229 42423 36128 42982 37018 43556 37899 44144 38771 44745
 39633 45360 40485 45989 41327 46630 42159 47285 42981 47953
 43792 48634 44593 49327 45382 50033 46161 50751 46928 51481
 47683 52224 48427 52977 49158 53743 49878 54520 50585 55308
 51280 56107 51962 56917 52632 57737 53288 58568 53932 59409
 54562 60260 55179 61121 55782 61992 56371 62871 56947 63760
 57508 64658 58056 65565 58589 66480 59107 67403 59611 68334
 60101 69273 60575 70220 61035 71174 61480 72135 61909 73103
 62324 74077 62723 75058 63106 76045 63474 77038 63827 78037
 64164 79041 64484 80050 64789 81064 65079 82083 65352 83106
 65609 84133 65849 85164 66074 86199 66282 87237 66475 88279
 130487 76992 130110 74947 129701 72909 129260 70878 128787 68854
 128283 66837 127747 64829 127179 62829 126581 60839 125951 58858
 125290 56887 124598 54927 123875 52977 123123 51040 122339 49114
 121526 47201 120683 45302 119810 43415 118907 41542 117976 39684
 117015 37841 116025 36013 115007 34201 113961 32404 112886 30625
 111784 28863 110655 27118 109498 25391 108314 23682 107103 21992
 105866 20322 104603 18671 103314 17040 102000 15429 100661 13840
 99297 12271 97908 10724 96496 9199 95059 7696 93600 6217
 92117 4760 90612 3326 89084 1917 87534 531 85963 -830
 84371 -2166 82757 -3477 81124 -4762 79470 -6022 77797 -7256
 76105 -8463 74394 -9644 72665 -10797 70918 -11924 69154 -13022
 67372 -14093 65574 -15136 63759 -16151 61930 -17137 60084 -18094
 58224 -19022 56350 -19921 54462 -20790 52560 -21629 50646 -22439
 48719 -23218 46780 -23967 44829 -24686 42867 -25374 40895 -26031
 38913 -26657 36921 -27252 34921 -27816 32911 -28348 30894 -28848
 28868 -29317 26836 -29754 24797 -30159 22752 -30532 20702 -30873
 18646 -31181 16586 -31458 14522 -31702 12454 -31913 10383 -32093
 8309 -32239 6234 -32353 4157 -32435 2079 -32484 0 -32500;
DF;
DS54 1 10;
9 $C5PSymbol16_54;
(C5Param Angle c039000000000000 c066800000000000 4066800000000000);
(C5Param Radius 4052c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4041800000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 -17500 282 -17501 564 -17503 846 -17506 1128 -17511
 1409 -17517 1691 -17525 1973 -17534 2255 -17544 2536 -17556
 2818 -17569 3099 -17584 3381 -17599 3662 -17617 3944 -17635
 4225 -17655 4506 -17677 4787 -17700 5068 -17724 5348 -17749
 5629 -17776 5909 -17804 6190 -17834 6470 -17865 6750 -17898
 7030 -17931 7310 -17966 7589 -18003 7868 -18041 8148 -18080
 8427 -18121 8705 -18163 8984 -18206 9262 -18251 9540 -18297
 9818 -18344 10096 -18393 10373 -18443 10650 -18495 10927 -18548
 11204 -18602 11480 -18658 11756 -18715 12032 -18773 12308 -18833
 12583 -18894 12858 -18956 13132 -19020 13407 -19085 13681 -19151
 13954 -19219 14228 -19288 14501 -19358 14773 -19430 15045 -19503
 15317 -19578 15589 -19653 15860 -19731 16131 -19809 16401 -19889
 16671 -19970 16941 -20052 17210 -20136 17479 -20221 17747 -20307
 18015 -20395 18282 -20484 18549 -20574 18816 -20666 19082 -20759
 19348 -20853 19613 -20948 19878 -21045 20142 -21143 20406 -21243
 20669 -21343 20932 -21445 21194 -21549 21456 -21653 21717 -21759
 21978 -21866 22238 -21975 22498 -22084 22757 -22195 23016 -22307
 23274 -22421 23531 -22536 23788 -22652 24045 -22769 24301 -22887
 39092 8833 38681 9024 38268 9213 37855 9399 37441 9584
 37026 9766 36610 9947 36193 10125 35775 10302 35356 10476
 34937 10649 34517 10819 34095 10987 33673 11153 33251 11317
 32827 11479 32403 11639 31978 11797 31552 11953 31125 12106
 30698 12258 30269 12407 29840 12555 29411 12700 28981 12843
 28550 12984 28118 13123 27686 13260 27252 13394 26819 13527
 26384 13657 25949 13786 25514 13912 25078 14036 24641 14158
 24203 14277 23766 14395 23327 14510 22888 14624 22448 14735
 22008 14844 21567 14951 21126 15055 20684 15158 20242 15258
 19799 15356 19356 15452 18912 15546 18468 15638 18024 15727
 17579 15814 17133 15899 16687 15982 16241 16063 15794 16142
 15347 16218 14900 16292 14452 16364 14004 16434 13556 16501
 13107 16567 12658 16630 12209 16691 11759 16750 11309 16806
 10859 16860 10408 16913 9957 16962 9507 17010 9055 17056
 8604 17099 8152 17140 7700 17179 7248 17216 6796 17250
 6344 17282 5891 17312 5439 17340 4986 17366 4533 17389
 4080 17410 3627 17429 3174 17446 2721 17460 2267 17472
 1814 17482 1360 17490 907 17496 453 17499 0 17500;
DF;
DS55 1 10;
9 $C5PSymbol16_55;
(C5Param Angle 4056800000000000 c066800000000000 4066800000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 100000 1765 100016 3529 100062 5292 100140 7054 100249
 8813 100389 10570 100560 12323 100762 14073 100995 15818 101259
 17558 101553 19293 101879 21021 102234 22743 102621 24458 103037
 26166 103484 27865 103961 29556 104468 31237 105004 32909 105570
 34570 106166 36221 106790 37860 107444 39488 108127 41103 108838
 42706 109578 44295 110345 45870 111141 47431 111964 48978 112815
 50509 113693 52024 114598 53523 115529 55006 116487 56471 117471
 57919 118480 59348 119515 60759 120575 62152 121660 63525 122769
 64878 123902 66211 125059 67523 126239 68814 127442 70084 128668
 71332 129916 72558 131186 73761 132477 74941 133789 76098 135122
 77231 136475 78340 137848 79425 139241 80485 140652 81520 142081
 82529 143529 83513 144995 84471 146477 85402 147976 86307 149491
 87185 151022 88036 152569 88859 154130 89655 155705 90422 157294
 91162 158897 91873 160512 92556 162140 93210 163779 93834 165430
 94430 167091 94996 168763 95532 170444 96039 172135 96516 173834
 96963 175542 97379 177257 97766 178979 98121 180707 98447 182442
 98741 184182 99005 185927 99238 187677 99440 189430 99611 191187
 99751 192946 99860 194708 99938 196471 99984 198235 100000 200000
 300000 200000 299953 194705 299813 189413 299580 184123 299253 178838
 298833 173560 298319 168290 297713 163030 297015 157782 296223 152547
 295340 147326 294364 142122 293297 136936 292138 131770 290888 126625
 289548 121502 288118 116404 286597 111333 284988 106288 283290 101273
 281503 96289 279629 91337 277668 86419 275620 81536 273486 76690
 271267 71883 268964 67116 266577 62389 264107 57706 261555 53067
 258921 48474 256206 43928 253412 39431 250539 34983 247587 30588
 244559 26244 241454 21955 238274 17722 235020 13545 231693 9426
 228294 5367 224823 1368 221283 -2569 217673 -6442 213996 -10252
 210252 -13996 206442 -17673 202569 -21283 198632 -24823 194633 -28294
 190574 -31693 186455 -35020 182278 -38274 178045 -41454 173756 -44559
 169412 -47587 165017 -50539 160569 -53412 156072 -56206 151526 -58921
 146933 -61555 142294 -64107 137611 -66577 132884 -68964 128117 -71267
 123310 -73486 118464 -75620 113581 -77668 108663 -79629 103711 -81503
 98727 -83290 93712 -84988 88667 -86597 83596 -88118 78498 -89548
 73375 -90888 68230 -92138 63064 -93297 57878 -94364 52674 -95340
 47453 -96223 42218 -97015 36970 -97713 31710 -98319 26440 -98833
 21162 -99253 15877 -99580 10587 -99813 5295 -99953 0 -100000;
DF;
DS56 1 10;
9 $C5PSymbol16_56;
(C5Param Angle 4066800000000000 c066800000000000 4066800000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 571
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = fabs(Angle)*M_PI/180.0;
double sign = (Angle>0) ? -1.0 : 1.0;
int num = 90;
double nodes[360];
double ri = Radius-Width/2;
double ro = Radius+Width/2;
int i;
double a = 0.0;
double astep = a_radians/(num-1);
for(i=0; i<num; i++) {
    nodes[2*i] = ri*sin(a);
    nodes[2*i+1] = sign*(ri*cos(a)-Radius);
    nodes[4*num-2-2*i] = ro*sin(a);
    nodes[4*num-2-2*i+1] = sign*(ro*cos(a)-Radius);
    a += astep;
}
polygon(2*num,nodes);       
);
P 0 100000 3529 100062 7054 100249 10570 100560 14073 100995
 17558 101553 21021 102234 24458 103037 27865 103961 31237 105004
 34570 106166 37860 107444 41103 108838 44295 110345 47431 111964
 50509 113693 53523 115529 56471 117471 59348 119515 62152 121660
 64878 123902 67523 126239 70084 128668 72558 131186 74941 133789
 77231 136475 79425 139241 81520 142081 83513 144995 85402 147976
 87185 151022 88859 154130 90422 157294 91873 160512 93210 163779
 94430 167091 95532 170444 96516 173834 97379 177257 98121 180707
 98741 184182 99238 187677 99611 191187 99860 194708 99984 198235
 99984 201765 99860 205292 99611 208813 99238 212323 98741 215818
 98121 219293 97379 222743 96516 226166 95532 229556 94430 232909
 93210 236221 91873 239488 90422 242706 88859 245870 87185 248978
 85402 252024 83513 255006 81520 257919 79425 260759 77231 263525
 74941 266211 72558 268814 70084 271332 67523 273761 64878 276098
 62152 278340 59348 280485 56471 282529 53523 284471 50509 286307
 47431 288036 44295 289655 41103 291162 37860 292556 34570 293834
 31237 294996 27865 296039 24458 296963 21021 297766 17558 298447
 14073 299005 10570 299440 7054 299751 3529 299938 0 300000
 0 500000 10587 499813 21162 499253 31710 498319 42218 497015
 52674 495340 63064 493297 73375 490888 83596 488118 93712 484988
 103711 481503 113581 477668 123310 473486 132884 468964 142294 464107
 151526 458921 160569 453412 169412 447587 178045 441454 186455 435020
 194633 428294 202569 421283 210252 413996 217673 406442 224823 398632
 231693 390574 238274 382278 244559 373756 250539 365017 256206 356072
 261555 346933 266577 337611 271267 328117 275620 318464 279629 308663
 283290 298727 286597 288667 289548 278498 292138 268230 294364 257878
 296223 247453 297713 236970 298833 226440 299580 215877 299953 205295
 299953 194705 299580 184123 298833 173560 297713 163030 296223 152547
 294364 142122 292138 131770 289548 121502 286597 111333 283290 101273
 279629 91337 275620 81536 271267 71883 266577 62389 261555 53067
 256206 43928 250539 34983 244559 26244 238274 17722 231693 9426
 224823 1368 217673 -6442 210252 -13996 202569 -21283 194633 -28294
 186455 -35020 178045 -41454 169412 -47587 160569 -53412 151526 -58921
 142294 -64107 132884 -68964 123310 -73486 113581 -77668 103711 -81503
 93712 -84988 83596 -88118 73375 -90888 63064 -93297 52674 -95340
 42218 -97015 31710 -98319 21162 -99253 10587 -99813 0 -100000;
DF;
DS21 1 10;
9 Y-junction_sharp;
(C5Param Width_in 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out_1 4052c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out_2 4039000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle_1 4046800000000000 0 4056800000000000);
(C5Param Angle_2 4039000000000000 0 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 12 12 2000000 10000 1210
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_rad_1 = fabs(Angle_1)*M_PI/180.0;
double a_rad_2 = fabs(Angle_2)*M_PI/180.0;
if (Width_out_1 < Width_out_2) {
    double temp = Width_out_1;
    Width_out_1 = Width_out_1 > Width_out_2 ? Width_out_1 : Width_out_2;
    Width_out_2 = temp;

    temp = Angle_1;
    Angle_1 = Angle_2;
    Angle_2 = temp;
}


TM m_1;
unityTM(&m_1);
translateTM(&m_1, 0, Width_in/2 - Width_out_1/2);
symbol("Wedge", &m_1);
parameter("Width", Width_out_1);
parameter("Angle", Angle_1);
parameter("Layer", Layer);

double offset = Width_out_1 * tan(a_rad_1/2) - Width_out_2 * tan(a_rad_2/2);
TM m_2;
unityTM(&m_2);
translateTM(&m_2, offset, -Width_in/2 + Width_out_2/2);
symbol("Wedge", &m_2);
parameter("Width", Width_out_2);
parameter("Angle", -Angle_2);
parameter("Layer", Layer);

rectangle(0, -Width_in/2, offset, -Width_in/2 + Width_out_2);

snapnode(0, 0, 180);
snapnode(
    sin(a_rad_1)*Width_out_1/2,
    Width_in/2 - cos(a_rad_1)*Width_out_1/2,
    Angle_1
);
snapnode(
    sin(a_rad_2)*Width_out_2/2 + offset,
    -Width_in/2 + cos(a_rad_2)*Width_out_2/2,
    -Angle_2
);
);
C 46 T 0 12500;
(C5Param Width 4052c00000000000 0 0);
(C5Param Angle 4046800000000000 0 0);
(C5Param Layer 0 0 0);
C 47 T 25524 -37500;
(C5Param Width 4039000000000000 0 0);
(C5Param Angle c039000000000000 0 0);
(C5Param Layer 0 0 0);
B 25524 25000 12762 -37500;
(C5Snap 0 0 180);
(C5Snap 26517 23483 45);
(C5Snap 30806 -38671 -25);
DF;
DS22 1 10;
9 Y-junction_smooth;
(C5Param Width_in 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out_1 4050400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_out_2 4041800000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle_1 4054000000000000 0 4056800000000000);
(C5Param Angle_2 4039000000000000 0 4056800000000000);
(C5Param Radius_1 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius_2 4052c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 13 13 2000000 10000 1014
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_rad_1 = fabs(Angle_1)*M_PI/180.0;
double a_rad_2 = fabs(Angle_2)*M_PI/180.0;

Radius_1 = Radius_1 < Width_out_1/2 ? Width_out_1/2 : Radius_1;
Radius_2 = Radius_2 < Width_out_2/2 ? Width_out_2/2 : Radius_2;

TM m1;
unityTM(&m1);
translateTM(&m1, 0, (Width_in - Width_out_1)/2);
symbol("Bend", &m1);
parameter("Width", Width_out_1);
parameter("Radius", Radius_1);
parameter("Angle", Angle_1);
parameter("Layer", Layer);

TM m2;
unityTM(&m2);
translateTM(&m2, 0, -(Width_in - Width_out_2)/2);
symbol("Bend", &m2);
parameter("Width", Width_out_2);
parameter("Radius", Radius_2);
parameter("Angle", -Angle_2);
parameter("Layer", Layer);

snapnode(0,0,180);
snapnode(
    Radius_1*sin(a_rad_1),
    Radius_1*(1-cos(a_rad_1)) + (Width_in - Width_out_1)/2,
    Angle_1);
snapnode(
    Radius_2*sin(a_rad_2),
    Radius_2*(cos(a_rad_2)-1) - (Width_in - Width_out_2)/2,
    -Angle_2);
);
C 53 T 0 17500;
(C5Param Width 4050400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Angle 4054000000000000 0 0);
(C5Param Layer 0 0 0);
C 54 T 0 -32500;
(C5Param Width 4041800000000000 0 0);
(C5Param Radius 4052c00000000000 0 0);
(C5Param Angle c039000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 98481 100135 80);
(C5Snap 31696 -39527 -25);
DF;
DS23 10000 1;
9 Serpentine_L;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length 40a7700000000000 3ff0000000000000 40f86a0000000000);
(C5Param Length_path 40d3880000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 40a7700000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 26 26 2000000 10000 1832
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

char buff[100];
int N = 0;
if (Length_path < Length) {
    printf("Path is shorter than the length of the section, so a straight channel is built");
}
else {
    N = (int)ceil((Length - Length_path + Radius * (M_PI-2))/(-M_PI*Radius - Height));
    Height = -(Length - Length_path + Radius * (M_PI-2))/N + (4-M_PI)*Radius;
}

double length_straight = (Length - 2*Radius*(N + 1))/2;

TM m_straight;
unityTM(&m_straight);
symbol("Straight", &m_straight);
parameter("Width", Width);
parameter("Length", length_straight);
parameter("Layer", Layer);

translateTM(&m_straight, length_straight + 2*Radius*(N+1), 0);
symbol("Straight", &m_straight);
parameter("Width", Width);
parameter("Length", length_straight);
parameter("Layer", Layer);      

TM m_corner;
unityTM(&m_corner);
translateTM(&m_corner, length_straight, 0);
symbol("Corner_smooth", &m_corner);
parameter("Width", Width);                            
parameter("Angle", 90);
parameter("Radius", Radius);
parameter("Layer", Layer);

TM m_corner2;
unityTM(&m_corner2);
if ((N%2) == 0) {
    scaleTM(&m_corner2, 0, 0, -1, -1); // if N is even, the channel comes from the bottom     
}
else {
    scaleTM(&m_corner2, 0, 0, -1, 1);
}
translateTM(&m_corner2, length_straight + 2*Radius*(N+1), 0);
symbol("Corner_smooth", &m_corner2);
parameter("Angle", 90);
parameter("Radius", Radius);
parameter("Layer", Layer);
parameter("Width", Width);

TM m;
unityTM(&m);
translateTM(&m, length_straight + Radius - Width/2, 0);
symbol("Serpentine_N", &m);
parameter("Height", Height);
parameter("N", N);
parameter("Radius", Radius);
parameter("Width", Width);
parameter("Layer", Layer);

snapnode(0, 0, 180);
snapnode(Length, 0, 0);
);
C 35 T 0 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Length 4072c00000000000 0 0);
(C5Param Layer 0 0 0);
C 35 T 27 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Length 4072c00000000000 0 0);
(C5Param Layer 0 0 0);
C 38 T 3 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Angle 4056800000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
C 38 MX T 27 0;
(C5Param Angle 4056800000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Param Width 4069000000000000 0 0);
C 58 T 4 0;
(C5Param Height 40ab8c091840056e 0 0);
(C5Param N 4014000000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Width 4069000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 30 0 0);
DF;
DS24 1000 1;
9 U-bend_smooth;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 407f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 9 9 2000000 10000 533
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0, Radius, Width, Height - Radius);
rectangle(2*Radius, Radius, 2*Radius + Width, Height - Radius);

TM m;
unityTM(&m);
rotateTM(&m, 0, 0, 90);
translateTM(&m, 2*Radius + Width/2, Height - Radius);
symbol("Corner_smooth", &m);
parameter("Width", Width);
parameter("Angle", 180);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(Width/2, Radius, 270);
snapnode(Width/2 + 2*Radius, Radius, 270);
);
B 10 30 5 25;
B 10 30 25 25;
C 39 R 0 30000 T 25 40;
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4066800000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 5 10 270);
(C5Snap 25 10 270);
DF;
DS57 1 10;
9 $C5PSymbol24_57;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 409b8c0a3d70a3d7 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 9 9 2000000 10000 533
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0, Radius, Width, Height - Radius);
rectangle(2*Radius, Radius, 2*Radius + Width, Height - Radius);

TM m;
unityTM(&m);
rotateTM(&m, 0, 0, 90);
translateTM(&m, 2*Radius + Width/2, Height - Radius);
symbol("Corner_smooth", &m);
parameter("Width", Width);
parameter("Angle", 180);
parameter("Radius", Radius);
parameter("Layer", Layer);

snapnode(Width/2, Radius, 270);
snapnode(Width/2 + 2*Radius, Radius, 270);
);
B 200000 1363010 100000 881505;
B 200000 1363010 500000 881505;
C 44 R 0 30000 T 500000 1563010;
(C5Param Width 4069000000000000 0 0);
(C5Param Angle 4066800000000000 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 100000 200000 270);
(C5Snap 500000 200000 270);
DF;
DS25 1000 1;
9 Serpentine_N;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param N 4014000000000000 3ff0000000000000 4059000000000000);
(C5Param Radius 4059000000000000 4014000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 31 31 2000000 10000 1132
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

TM ms[100];
int i = 0;
for (i = 0; i < (int)N; i++) {
    unityTM(&ms[i]);
    if (i % 2 == 1) {
        rotateTM(&ms[i], 2*Radius + Width/2, 0, 180);
    }
    translateTM(&ms[i], (i/2) * 4 * Radius, 0);
    symbol("U-bend_smooth", &ms[i]);
    parameter("Width", Width);
    parameter("Height", Height/2);
    parameter("Radius", Radius);
    parameter("Layer", Layer);
}

for (i = 0; i < (int)N-1; i++) {
    if (i % 2 == 0) {
        rectangle(
            2*Radius + (i/2) * 4 * Radius,
            -Radius,
            2*Radius + Width + (i/2) * 4 * Radius,
            Radius);
    }
    else {
        rectangle(
            4*Radius + (i/2) * 4 * Radius,
            -Radius,
            4*Radius + Width + (i/2) * 4 * Radius,
            Radius);
    }                           
}

snapnode(Width/2, Radius, 270);
if ((int)N % 2 == 1) {
    snapnode(2*Radius + ((int)N/2) * 4 * Radius + Width/2, Radius, 270);
}
else {
    snapnode(((int)N/2) * 4 * Radius + Width/2, -Radius, 90);
}

);
C 24 T 0 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Height 407f400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 24 R -30000 0 T 50 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Height 407f400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 24 T 40 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Height 407f400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 24 R -30000 0 T 90 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Height 407f400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 24 T 80 0;
(C5Param Width 4059000000000000 0 0);
(C5Param Height 407f400000000000 0 0);
(C5Param Radius 4059000000000000 0 0);
(C5Param Layer 0 0 0);
B 10 20 25 0;
B 10 20 45 0;
B 10 20 65 0;
B 10 20 85 0;
(C5Snap 5 10 270);
(C5Snap 105 10 270);
DF;
DS58 10000 1;
9 $C5PSymbol25_58;
(C5Param Width 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 40ab8c091840056e 3ff0000000000000 40f86a0000000000);
(C5Param N 4014000000000000 3ff0000000000000 4059000000000000);
(C5Param Radius 4069000000000000 4014000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 31 31 2000000 10000 1132
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

TM ms[100];
int i = 0;
for (i = 0; i < (int)N; i++) {
    unityTM(&ms[i]);
    if (i % 2 == 1) {
        rotateTM(&ms[i], 2*Radius + Width/2, 0, 180);
    }
    translateTM(&ms[i], (i/2) * 4 * Radius, 0);
    symbol("U-bend_smooth", &ms[i]);
    parameter("Width", Width);
    parameter("Height", Height/2);
    parameter("Radius", Radius);
    parameter("Layer", Layer);
}

for (i = 0; i < (int)N-1; i++) {
    if (i % 2 == 0) {
        rectangle(
            2*Radius + (i/2) * 4 * Radius,
            -Radius,
            2*Radius + Width + (i/2) * 4 * Radius,
            Radius);
    }
    else {
        rectangle(
            4*Radius + (i/2) * 4 * Radius,
            -Radius,
            4*Radius + Width + (i/2) * 4 * Radius,
            Radius);
    }                           
}

snapnode(Width/2, Radius, 270);
if ((int)N % 2 == 1) {
    snapnode(2*Radius + ((int)N/2) * 4 * Radius + Width/2, Radius, 270);
}
else {
    snapnode(((int)N/2) * 4 * Radius + Width/2, -Radius, 90);
}

);
C 57 T 0 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Height 409b8c0a3d70a3d7 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
C 57 R -30000 0 T 10 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Height 409b8c0a3d70a3d7 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
C 57 T 8 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Height 409b8c0a3d70a3d7 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
C 57 R -30000 0 T 18 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Height 409b8c0a3d70a3d7 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
C 57 T 16 0;
(C5Param Width 4069000000000000 0 0);
(C5Param Height 409b8c0a3d70a3d7 0 0);
(C5Param Radius 4069000000000000 0 0);
(C5Param Layer 0 0 0);
B 2 4 5 0;
B 2 4 9 0;
B 2 4 13 0;
B 2 4 17 0;
(C5Snap 1 2 270);
(C5Snap 21 2 270);
DF;
DS26 1 10;
9 Split_N1_N2;
(C5Param Length 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param N1 4008000000000000 3ff0000000000000 4059000000000000);
(C5Param N2 4014000000000000 3ff0000000000000 4059000000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 9 9 2000000 10000 328
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

rectangle(0, -Width/2, Length, Width/2);

int i = 0;
for (i = 0; i < N1; i++) {
    snapnode(0, (2*i+1)/(2*N1)*Width - Width/2, 180);
}
for (i = 0; i < N2; i++) {
    snapnode(Length, (2*i+1)/(2*N2)*Width - Width/2, 0);
}
);
B 1000000 100000 500000 0;
(C5Snap 0 -33333 180);
(C5Snap 0 0 180);
(C5Snap 0 33333 180);
(C5Snap 1000000 -40000 0);
(C5Snap 1000000 -20000 0);
(C5Snap 1000000 0 0);
(C5Snap 1000000 20000 0);
(C5Snap 1000000 40000 0);
DF;
DS27 1 10;
9 Shift_smooth;
(C5Param Length 409f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 409f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Radius 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 16 16 2000000 10000 1804
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double right_hand(double angle, double length, double height, double radius) {
    return (height - 2*radius*(1-cos(angle)))/(length - 2*radius*sin(angle));
}

double find_angle(double length, double height, double radius, double precision) {
    double low = 0;
    double high = M_PI/2.01;
    double mid = (low+high)/2;
    while ((mid-low) > precision && (high-mid) > precision) {
        if (tan(mid) < right_hand(mid, length, height, radius)) {
            low = mid;
        }
        else {
            high = mid;
        }
        mid = (low+high)/2;
    }
    return mid;
}

double a_radians = find_angle(Length, Height, Radius, 0.0000001);
double a_degrees = a_radians/(2*M_PI)*360;

TM m_bend_1;
unityTM(&m_bend_1);
symbol("Corner_smooth", &m_bend_1);
parameter("Radius", Radius);
parameter("Width", Width);
parameter("Angle", -a_degrees);
parameter("Layer", Layer);

double length_rectangle = sqrt(pow(Length-2*Radius*sin(a_radians),2) + pow(Height-2*Radius*(1 - cos(a_radians)),2));
TM m_rectangle;
unityTM(&m_rectangle);
rotateTM(&m_rectangle, 0, 0, -a_degrees);
translateTM(&m_rectangle, Radius*sin(a_radians),Radius*cos(a_radians)-Radius);
symbol("Straight", &m_rectangle);
parameter("Length", length_rectangle);
parameter("Width", Width);
parameter("Layer", Layer);

TM m_bend_2;
unityTM(&m_bend_2);
rotateTM(&m_bend_2, 0, 0, -a_degrees);
translateTM(&m_bend_2, Length-Radius*sin(a_radians), -Height-(Radius*cos(a_radians)-Radius));
symbol("Corner_smooth", &m_bend_2);
parameter("Radius", Radius);
parameter("Width", Width);
parameter("Angle", a_degrees);
parameter("Layer", Layer);

snapnode(0, 0, 180);
snapnode(Length, -Height, 0);
);
C 40 T 0 0;
(C5Param Radius 4059000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle c0471ffcd96ece55 0 0);
(C5Param Layer 0 0 0);
C 36 R 20745 -21671 T 72236 -30849;
(C5Param Length 40a4f6902b1c2c6f 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 41 R 20745 -21671 T 1927764 -1969151;
(C5Param Radius 4059000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 40471ffcd96ece55 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 2000000 -2000000 0);
DF;
DS28 1 10;
9 Herringbone;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_herringbone 402e000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4046800000000000 3ff0000000000000 4055400000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 657
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians = M_PI * Angle / 180;
double arr[12];
arr[0] = 0;
arr[1] = -Width/6;
arr[2] = (2*Width)/(3*tan(a_radians));
arr[3] = Width/2;
arr[4] = (2*Width)/(3*tan(a_radians)) + Width_herringbone/sin(a_radians);
arr[5] = Width/2;
arr[6] = Width_herringbone*M_SQRT2*cos(a_radians - M_PI_4);
arr[7] = -Width/6 + Width_herringbone*M_SQRT2*sin(a_radians - M_PI_4);
arr[8] = Width*tan(a_radians)/3 + Width_herringbone/cos(a_radians);
arr[9] = -Width/2;
arr[10] = Width*tan(a_radians)/3;
arr[11] = -Width/2;

polygon(6, arr);                   
);
P 0 -16667 66667 50000 87880 50000 21213 -16667 54547 -50000
 33333 -50000;
DF;
DS29 1 10;
9 Herringbones;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_herringbone 402e000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 402e000000000000 3ff0000000000000 40f86a0000000000);
(C5Param N_groups 4010000000000000 3ff0000000000000 4059000000000000);
(C5Param N_per_group 4014000000000000 3ff0000000000000 4059000000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 102 102 2000000 10000 899
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double angle = 45;
double a_radians = M_PI * angle / 180;
double d = (Width_herringbone+Spacing)/cos(a_radians);
int i = 0;
int j = 0;
TM m;
for (i = 0; i < N_groups; i++) {
    for (j = 0; j < N_per_group; j++) {
        unityTM(&m);
        if ((i%2) == 1) {
            scaleTM(&m, 0, 0, 1, -1);
        }
        translateTM(&m, (i*N_per_group + j)*d + i*Width/(3*tan(a_radians)), 0);
        symbol("Herringbone", &m);
        parameter("Angle", angle);
        parameter("Width", Width);
        parameter("Width_herringbone", Width_herringbone);
        parameter("Layer", Layer);
    }
}

snapnode(0, 0, 180);
snapnode(((i-1)*N_per_group + j - 1)*d + (i-1)*Width/(3*tan(a_radians)) +
    (2*Width)/(3*tan(a_radians)) +
    Width_herringbone/sin(a_radians),
    0, 0);
);
C 28 T 0 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 42426 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 84853 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 127279 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 169706 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 245465 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 287892 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 330318 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 372745 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 415171 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 490931 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 533357 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 575784 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 618210 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 T 660636 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 736396 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 778823 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 821249 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 863675 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
C 28 MY T 906102 0;
(C5Param Angle 4046800000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Width_herringbone 402e000000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 993982 0 0);
DF;
DS30 1 10;
9 Spiral_part;
(C5Param Radius 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4069000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 1050000 0 1050470 36888 1049643 73810 1047517 110718 1044092 147568
 1039371 184314 1033355 220910 1026049 257311 1017460 293471 1007597 329344
 996467 364886 984083 400053 970457 434799 955603 469081 939537 502856
 922277 536080 903841 568712 884250 600709 863525 632031 841691 662638
 818770 692490 794791 721548 769779 749776 743765 777136 716777 803593
 688848 829113 660010 853661 630297 877205 599743 899714 568386 921158
 536261 941509 503407 960738 469864 978821 435672 995731 400870 1011446
 365502 1025944 329610 1039204 293237 1051207 256427 1061937 219225 1071376
 181676 1079512 143826 1086330 105721 1091821 67408 1095974 28933 1098781
 -9655 1100237 -48310 1100337 -86984 1099077 -125630 1096458 -164198 1092478
 -202641 1087141 -240912 1080450 -278963 1072412 -316746 1063032 -354213 1052320
 -391319 1040287 -428016 1026944 -464258 1012306 -500000 996388 -535195 979208
 -569800 960783 -603770 941135 -637063 920285 -669635 898257 -701445 875075
 -732452 850766 -762617 825357 -791899 798879 -820261 771361 -847667 742835
 -874079 713336 -899465 682897 -923790 651554 -947022 619344 -969130 586306
 -990085 552478 -1009858 517902 -1028423 482617 -1045754 446667 -1061827 410094
 -1076621 372943 -1090114 335258 -1102287 297086 -1113122 258471 -1122604 219462
 -1130718 180105 -1137451 140450 -1142792 100543 -1146733 60434 -1149264 20173
 -1150381 -20192 -1150080 -60610 -1148357 -101032 -1145213 -141408 -1140649 -181687
 -1134666 -221820 -1127271 -261757 -1118469 -301447 -1108269 -340842 -1096681 -379891
 -1083715 -418547 -1069387 -456761 -1053710 -494483 -1036701 -531668 -1018380 -568267
 -998765 -604235 -977880 -639525 -955747 -674094 -932391 -707895 -907839 -740887
 -882119 -773028 -855261 -804274 -827295 -834587 -798255 -863927 -768173 -892256
 -737085 -919537 -705029 -945734 -672040 -970812 -638160 -994740 -603427 -1017484
 -567883 -1039014 -531571 -1059302 -494533 -1078320 -456816 -1096043 -418463 -1112445
 -379521 -1127505 -340037 -1141200 -300059 -1153512 -259635 -1164422 -218816 -1173915
 -177649 -1181976 -136186 -1188592 -94477 -1193753 -52574 -1197450 -10528 -1199674
 31610 -1200422 73787 -1199688 115952 -1197472 158051 -1193773 200034 -1188592
 241848 -1181935 283440 -1173805 324760 -1164211 365755 -1153162 406374 -1140668
 446567 -1126743 486282 -1111400 525470 -1094657 564081 -1076532 602067 -1057043
 639379 -1036214 675970 -1014067 711794 -990627 746804 -965920 780956 -939976
 814207 -912824 846513 -884495 877833 -855021 908126 -824439 937352 -792782
 965475 -760089 992457 -726398 1018262 -691749 1042857 -656183 1066209 -619742
 1088287 -582469 1109061 -544410 1128503 -505610 1146587 -466115 1163288 -425973
 1178583 -385233 1192450 -343944 1204869 -302155 1215824 -259919 1225297 -217285
 1233274 -174306 1239742 -131036 1244692 -87525 1248113 -43829 1250000 0
 1151117 0 1149292 -40359 1146053 -80589 1141407 -120642 1135364 -160468
 1127933 -200019 1119126 -239247 1108957 -278102 1097440 -316540 1084593 -354511
 1070435 -391972 1054984 -428876 1038264 -465179 1020296 -500837 1001106 -535808
 980719 -570050 959164 -603521 936469 -636183 912664 -667996 887781 -698923
 861852 -728927 834913 -757973 806998 -786027 778143 -813057 748386 -839031
 717766 -863919 686321 -887692 654094 -910324 621124 -931789 587454 -952062
 553127 -971121 518187 -988944 482678 -1005513 446645 -1020810 410133 -1034817
 373189 -1047520 335860 -1058907 298191 -1068965 260230 -1077685 222025 -1085059
 183623 -1091081 145073 -1095745 106421 -1099050 67717 -1100992 29007 -1101573
 -9660 -1100796 -48237 -1098662 -86676 -1095179 -124930 -1090352 -162952 -1084191
 -200696 -1076706 -238116 -1067909 -275165 -1057814 -311800 -1046434 -347976 -1033788
 -383648 -1019894 -418774 -1004770 -453312 -988439 -487221 -970923 -520459 -952246
 -552987 -932433 -584766 -911511 -615759 -889509 -645928 -866456 -675239 -842382
 -703657 -817319 -731149 -791301 -757682 -764360 -783226 -736534 -807752 -707857
 -831230 -678367 -853635 -648102 -874941 -617101 -895124 -585404 -914161 -553051
 -932031 -520084 -948715 -486544 -964194 -452476 -978452 -417920 -991473 -382922
 -1003245 -347525 -1013755 -311774 -1022994 -275715 -1030951 -239391 -1037621 -202848
 -1042997 -166133 -1047076 -129290 -1049855 -92366 -1051334 -55406 -1051514 -18457
 -1050397 18437 -1047987 55230 -1044290 91877 -1039314 128332 -1033066 164551
 -1025559 200490 -1016802 236105 -1006811 271353 -995600 306191 -983185 340577
 -969585 374469 -954819 407826 -938907 440609 -921871 472778 -903736 504295
 -884525 535122 -864265 565223 -842984 594561 -820709 623103 -797470 650815
 -773299 677665 -748226 703620 -722286 728652 -695511 752731 -667937 775829
 -639599 797920 -610535 818979 -580781 838982 -550377 857907 -519360 875733
 -487771 892439 -455650 908009 -423037 922425 -389975 935672 -356505 947735
 -322668 958604 -288509 968266 -254069 976714 -219392 983938 -184522 989933
 -149501 994694 -114373 998218 -79183 1000503 -43973 1001549 -8788 1001358
 26331 999933 61338 997277 96191 993398 130848 988303 165266 982000
 199403 974501 233217 965817 266668 955961 299715 944948 332318 932796
 364437 919520 396035 905140 427073 889677 457514 873151 487321 855586
 516461 837006 544897 817436 572597 796902 599528 775432 625658 753055
 650956 729800 675395 705699 698944 680782 721578 655082 743270 628634
 763996 601471 783732 573629 802456 545143 820148 516050 836787 486388
 852356 456195 866838 425509 880217 394369 892480 362814 903614 330885
 913607 298623 922451 266067 930136 233258 936657 200238 942007 167048
 946183 133730 949182 100325 951004 66873 951648 33418 951117 0;
(C5Snap 1000000 0 -90);
(C5Snap 1200000 0 450);
DF;
DS59 1 10;
9 $C5PSymbol30_59;
(C5Param Radius 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 1050000 0 1051586 36928 1051872 73966 1050850 111070 1048518 148194
 1044871 185290 1039910 222312 1033635 259213 1026049 295948 1017155 332468
 1006959 368728 995468 404681 982692 440281 968642 475482 953328 510237
 936767 544502 918972 578232 899962 611382 879755 643909 858371 675769
 835833 706920 812163 737320 787388 766927 761533 795702 734627 823605
 706698 850598 677779 876643 647900 901704 617096 925745 585400 948734
 552851 970635 519483 991419 485337 1011053 450452 1029510 414867 1046762
 378626 1062782 341771 1077545 304345 1091028 266393 1103209 227961 1114067
 189094 1123585 149839 1131744 110244 1138530 70357 1143928 30228 1147926
 -10096 1150514 -50565 1151684 -91128 1151427 -131735 1149740 -172335 1146619
 -212878 1142061 -253313 1136068 -293589 1128641 -333656 1119784 -373461 1109503
 -412955 1097804 -452087 1084698 -490807 1070196 -529065 1054309 -566811 1037053
 -603997 1018445 -640573 998501 -676492 977243 -711707 954692 -746170 930870
 -779837 905804 -812661 879519 -844600 852045 -875610 823410 -905648 793647
 -934674 762787 -962648 730867 -989530 697921 -1015284 663987 -1039873 629104
 -1063262 593312 -1085417 556652 -1106307 519166 -1125900 480899 -1144168 441895
 -1161083 402200 -1176618 361862 -1190750 320928 -1203456 279447 -1214715 237469
 -1224508 195045 -1232816 152225 -1239625 109062 -1244920 65609 -1248690 21918
 -1250925 -21957 -1251615 -65961 -1250755 -110041 -1248341 -154142 -1244369 -198208
 -1238840 -242185 -1231754 -286018 -1223115 -329651 -1212929 -373029 -1201202 -416098
 -1187944 -458802 -1173166 -501087 -1156881 -542899 -1139104 -584185 -1119852 -624890
 -1099144 -664962 -1077000 -704350 -1053444 -743000 -1028500 -780864 -1002194 -817890
 -974554 -854031 -945610 -889237 -915393 -923462 -883938 -956659 -851278 -988785
 -817450 -1019794 -782493 -1049646 -746446 -1078297 -709351 -1105710 -671250 -1131845
 -632187 -1156666 -592207 -1180137 -551357 -1202224 -509686 -1222896 -467242 -1242121
 -424076 -1259872 -380238 -1276120 -335782 -1290841 -290760 -1304011 -245227 -1315608
 -199238 -1325614 -152848 -1334010 -106114 -1340780 -59092 -1345910 -11842 -1349389
 35580 -1351208 83115 -1351357 130705 -1349832 178289 -1346629 225809 -1341746
 273206 -1335184 320419 -1326946 367391 -1317036 414061 -1305461 460370 -1292231
 506260 -1277356 551672 -1260850 596548 -1242727 640830 -1223005 684462 -1201704
 727387 -1178845 769549 -1154451 810894 -1128548 851367 -1101162 890915 -1072325
 929486 -1042066 967029 -1010419 1003494 -977418 1038833 -943101 1072997 -907506
 1105940 -870673 1137617 -832644 1167986 -793463 1197004 -753175 1224631 -711825
 1250828 -669464 1275558 -626139 1298785 -581902 1320477 -536805 1340601 -490902
 1359127 -444246 1376027 -396894 1391276 -348902 1404849 -300328 1416724 -251231
 1426880 -201670 1435301 -151705 1441970 -101398 1446874 -50808 1450000 0
 1352235 0 1349168 -47377 1344446 -94540 1338077 -141429 1330077 -187988
 1320460 -234160 1309244 -279890 1296447 -325121 1282091 -369799 1266200 -413872
 1248797 -457285 1229909 -499987 1209566 -541928 1187796 -583059 1164632 -623330
 1140107 -662695 1114257 -701108 1087117 -738525 1058726 -774902 1029123 -810198
 998350 -844372 966447 -877386 933460 -909203 899432 -939788 864409 -969107
 828438 -997127 791568 -1023818 753846 -1049152 715323 -1073102 676049 -1095643
 636075 -1116752 595455 -1136408 554239 -1154590 512483 -1171282 470238 -1186469
 427560 -1200136 384503 -1212271 341122 -1222866 297471 -1231912 253607 -1239403
 209584 -1245336 165457 -1249709 121282 -1252522 77114 -1253776 33007 -1253476
 -10984 -1251628 -54804 -1248239 -98400 -1243319 -141719 -1236880 -184707 -1228934
 -227312 -1219498 -269484 -1208589 -311170 -1196224 -352321 -1182425 -392887 -1167215
 -432821 -1150616 -472075 -1132655 -510602 -1113359 -548358 -1092757 -585298 -1070878
 -621380 -1047756 -656561 -1023423 -690801 -997913 -724061 -971264 -756303 -943511
 -787491 -914695 -817590 -884853 -846567 -854028 -874389 -822262 -901026 -789596
 -926451 -756076 -950634 -721746 -973552 -686651 -995179 -650839 -1015495 -614356
 -1034479 -577251 -1052111 -539571 -1068376 -501366 -1083258 -462686 -1096744 -423579
 -1108822 -384097 -1119483 -344290 -1128718 -304209 -1136522 -263905 -1142891 -223428
 -1147821 -182830 -1151312 -142161 -1153366 -101473 -1153985 -60816 -1153174 -20241
 -1150940 20202 -1147291 60463 -1142236 100494 -1135788 140244 -1127959 179666
 -1118766 218712 -1108225 257334 -1096353 295486 -1083172 333123 -1068703 370200
 -1052968 406672 -1035992 442497 -1017802 477633 -998425 512038 -977888 545673
 -956224 578498 -933463 610477 -909637 641572 -884782 671749 -858931 700973
 -832121 729212 -804389 756435 -775774 782611 -746314 807713 -716050 831714
 -685023 854587 -653274 876310 -620846 896859 -587782 916214 -554127 934355
 -519923 951265 -485216 966928 -450052 981330 -414476 994457 -378534 1006299
 -342273 1016845 -305738 1026089 -268977 1034024 -232037 1040646 -194963 1045951
 -157804 1049939 -120606 1052610 -83414 1053967 -46277 1054013 -9239 1052753
 27654 1050195 64356 1046347 100822 1041219 137007 1034825 172868 1027175
 208362 1018287 243445 1008175 278076 996858 312213 984355 345816 970686
 378846 955875 411262 939943 443029 922917 474108 904821 504464 885683
 534062 865532 562869 844397 590852 822309 617980 799299 644222 775400
 669550 750646 693936 725072 717353 698713 739778 671605 761186 643786
 781554 615294 800863 586167 819092 556444 836224 526166 852243 495372
 867132 464104 880880 432402 893473 400308 904901 367864 915155 335112
 924228 302094 932113 268854 938807 235432 944305 201873 948608 168219
 951714 134512 953627 100794 954347 67109 953881 33497 952235 0;
(C5Snap 1000000 0 -90);
(C5Snap 1400000 0 450);
DF;
DS60 1 10;
9 $C5PSymbol30_60;
(C5Param Radius 4095e00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 1450000 0 1451340 50965 1450887 102025 1448635 153115 1444581 204172
 1438727 255133 1431072 305934 1421621 356512 1410381 406803 1397360 456743
 1382568 506269 1366020 555319 1347729 603831 1327714 651741 1305993 698989
 1282590 745515 1257528 791257 1230833 836158 1202534 880158 1172660 923200
 1141245 965228 1108323 1006187 1073929 1046022 1038103 1084681 1000885 1122112
 962317 1158265 922442 1193092 881307 1226544 838959 1258577 795446 1289146
 750821 1318209 705133 1345726 658439 1371658 610791 1395968 562248 1418621
 512866 1439584 462704 1458826 411823 1476318 360283 1492033 308147 1505948
 255478 1518038 202339 1528284 148796 1536668 94913 1543173 40757 1547788
 -13607 1550499 -68110 1551299 -122686 1550181 -177268 1547140 -231787 1542176
 -286175 1535288 -340365 1526481 -394289 1515758 -447879 1503129 -501067 1488602
 -553787 1472192 -605971 1453913 -657553 1433783 -708468 1411820 -758651 1388048
 -808036 1362491 -856561 1335175 -904162 1306129 -950778 1275385 -996349 1242976
 -1040815 1208938 -1084117 1173308 -1126199 1136126 -1167005 1097433 -1206481 1057275
 -1244573 1015696 -1281231 972744 -1316406 928469 -1350049 882921 -1382115 836155
 -1412560 788224 -1441340 739186 -1468417 689097 -1493751 638017 -1517306 586007
 -1539048 533128 -1558946 479445 -1576969 425021 -1593090 369921 -1607284 314214
 -1619528 257965 -1629801 201244 -1638086 144119 -1644366 86660 -1648629 28938
 -1650863 -28977 -1651061 -87013 -1649216 -145098 -1645326 -203161 -1639389 -261129
 -1631408 -318930 -1621388 -376492 -1609334 -433743 -1595256 -490612 -1579167 -547025
 -1561082 -602913 -1541016 -658205 -1518991 -712830 -1495027 -766719 -1469150 -819802
 -1441386 -872013 -1411766 -923283 -1380320 -973548 -1347084 -1022741 -1312093 -1070799
 -1275386 -1117659 -1237005 -1163260 -1196992 -1207543 -1155393 -1250448 -1112256 -1291919
 -1067629 -1331901 -1021565 -1370340 -974117 -1407184 -925339 -1442384 -875289 -1475892
 -824026 -1507661 -771610 -1537648 -718104 -1565812 -663570 -1592111 -608074 -1616510
 -551682 -1638972 -494461 -1659465 -436481 -1677958 -377812 -1694423 -318524 -1708835
 -258689 -1721171 -198381 -1731409 -137672 -1739533 -76638 -1745525 -15352 -1749374
 46110 -1751069 107671 -1750603 169256 -1747970 230789 -1743168 292194 -1736199
 353392 -1727064 414309 -1715771 474869 -1702326 534994 -1686742 594609 -1669033
 653640 -1649215 712011 -1627307 769649 -1603332 826480 -1577313 882432 -1549278
 937433 -1519257 991412 -1487282 1044301 -1453388 1096030 -1417611 1146533 -1379992
 1195744 -1340573 1243599 -1299398 1290036 -1256513 1334992 -1211968 1378409 -1165814
 1420229 -1118104 1460397 -1068893 1498858 -1018238 1535561 -966200 1570455 -912838
 1603493 -858216 1634630 -802398 1663822 -745451 1691028 -687443 1716210 -628442
 1739332 -568520 1760360 -507748 1779262 -446200 1796010 -383951 1810579 -321074
 1822944 -257648 1833085 -193749 1840985 -129456 1846627 -64846 1850000 0
 1752235 0 1748922 -61415 1743460 -122598 1735861 -183473 1726141 -243966
 1714315 -304004 1700405 -363512 1684433 -422419 1666424 -480654 1646405 -538146
 1624406 -594825 1600461 -650625 1574602 -705478 1546868 -759318 1517297 -812082
 1485931 -863708 1452813 -914133 1417988 -963300 1381505 -1011150 1343413 -1057628
 1303762 -1102680 1262607 -1146253 1220001 -1188299 1176002 -1228767 1130667 -1267614
 1084057 -1304794 1036231 -1340267 987253 -1373993 937186 -1405934 886095 -1436056
 834045 -1464327 781105 -1490715 727341 -1515195 672822 -1537740 617618 -1558328
 561799 -1576938 505436 -1593552 448600 -1608156 391361 -1620737 333794 -1631283
 275968 -1639789 217958 -1646249 159834 -1650660 101669 -1653022 43536 -1653338
 -14494 -1651612 -72349 -1647854 -129959 -1642072 -187252 -1634280 -244158 -1624492
 -300609 -1612726 -356535 -1599001 -411869 -1583341 -466544 -1565770 -520493 -1546315
 -573653 -1525004 -625959 -1501870 -677349 -1476946 -727762 -1450268 -777138 -1421873
 -825419 -1391802 -872549 -1360096 -918471 -1326800 -963133 -1291958 -1006482 -1255618
 -1048469 -1217829 -1089046 -1178642 -1128166 -1138109 -1165784 -1096285 -1201859 -1053225
 -1236349 -1008985 -1269218 -963623 -1300428 -917199 -1329945 -869773 -1357738 -821407
 -1383777 -772163 -1408035 -722105 -1430486 -671297 -1451109 -619803 -1469882 -567691
 -1486788 -515025 -1501810 -461873 -1514937 -408302 -1526156 -354379 -1535459 -300172
 -1542841 -245750 -1548297 -191180 -1551827 -136530 -1553431 -81868 -1553113 -27261
 -1550878 27222 -1546736 81515 -1540697 135550 -1532773 189263 -1522980 242586
 -1511335 295456 -1497858 347808 -1482572 399579 -1465500 450706 -1446668 501128
 -1426106 550784 -1403843 599615 -1379912 647563 -1354348 694572 -1327187 740585
 -1298467 785549 -1268228 829411 -1236513 872120 -1203365 913626 -1168830 953882
 -1132953 992841 -1095784 1030458 -1057373 1066692 -1017770 1101502 -977028 1134848
 -935202 1166693 -892346 1197004 -848516 1225745 -803770 1252887 -758166 1278401
 -711762 1302260 -664620 1324440 -616798 1344917 -568360 1363672 -519366 1380687
 -469878 1395945 -419961 1409434 -369677 1421141 -319088 1431058 -268260 1439178
 -217256 1445496 -166139 1450010 -114973 1452720 -63822 1453628 -12749 1452737
 38183 1450056 88911 1445592 139373 1439357 189508 1431364 239253 1421628
 288549 1410167 337335 1396999 385554 1382148 433147 1365636 480056 1347488
 526226 1327734 571602 1306401 616130 1283522 659758 1259129 702434 1233258
 744108 1205945 784732 1177228 824259 1147149 862643 1115747 899840 1083067
 935808 1049153 970506 1014051 1003895 977808 1035937 940472 1066598 902094
 1095844 862725 1123642 822416 1149964 781220 1174781 739191 1198066 696385
 1219797 652856 1239952 608661 1258509 563857 1275452 518501 1290764 472652
 1304433 426368 1316445 379708 1326792 332731 1335467 285496 1342463 238062
 1347778 190490 1351411 142838 1353362 95167 1353635 47534 1352235 0;
(C5Snap 1400000 0 -90);
(C5Snap 1800000 0 450);
DF;
DS61 1 10;
9 $C5PSymbol30_61;
(C5Param Radius 409c200000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 1850000 0 1851094 65003 1849901 130083 1846419 195159 1840645 260150
 1832582 324976 1822233 389557 1809607 453810 1794713 517657 1777565 581017
 1758178 643810 1736571 705957 1712765 767380 1686786 828000 1658659 887741
 1628414 946527 1596085 1004282 1561705 1060933 1525314 1116406 1486950 1170631
 1446658 1223537 1404482 1275054 1360470 1325118 1314673 1373661 1267143 1420620
 1217935 1465933 1167105 1509541 1114714 1551384 1060822 1591408 1005492 1629559
 948791 1665784 890784 1700034 831540 1732263 771131 1762426 709628 1790480
 647105 1816386 583637 1840107 519301 1861608 454173 1880858 388334 1897828
 321863 1912491 254840 1924823 187348 1934805 119469 1942419 51286 1947649
 -17117 1950484 -85655 1950914 -154245 1948934 -222801 1944540 -291238 1937733
 -359472 1928515 -427417 1916893 -494988 1902875 -562102 1886473 -628673 1867702
 -694618 1846581 -759855 1823128 -824300 1797370 -887872 1769332 -950490 1739043
 -1012075 1706537 -1072548 1671849 -1131832 1635016 -1189850 1596079 -1246529 1555083
 -1301793 1512072 -1355573 1467096 -1407798 1420207 -1458400 1371457 -1507313 1320903
 -1554472 1268604 -1599815 1214621 -1643282 1159016 -1684815 1101855 -1724358 1043206
 -1761858 983137 -1797264 921719 -1830527 859027 -1861601 795135 -1890444 730118
 -1917014 664056 -1941273 597027 -1963187 529113 -1982724 460396 -1999853 390958
 -2014548 320886 -2026786 250262 -2036547 179175 -2043812 107711 -2048567 35958
 -2050801 -35997 -2050506 -108064 -2047677 -180154 -2042311 -252179 -2034410 -324049
 -2023977 -395675 -2011021 -466967 -1995552 -537836 -1977584 -608194 -1957133 -677953
 -1934220 -747025 -1908867 -815323 -1881101 -882760 -1850950 -949252 -1818448 -1014715
 -1783629 -1079064 -1746532 -1142217 -1707196 -1204095 -1665668 -1264618 -1621992 -1323707
 -1576219 -1381287 -1528400 -1437284 -1478591 -1491624 -1426849 -1544236 -1373234 -1595053
 -1317809 -1644007 -1260637 -1691033 -1201787 -1736070 -1141327 -1779058 -1079329 -1819938
 -1015866 -1858656 -951014 -1895160 -884850 -1929399 -817454 -1961326 -748905 -1990898
 -679288 -2018072 -608684 -2042809 -537181 -2065075 -464864 -2084836 -391821 -2102063
 -318141 -2116728 -243914 -2128809 -169231 -2138286 -94183 -2145140 -18862 -2149359
 56639 -2150930 132227 -2149848 207808 -2146108 283290 -2139708 358578 -2130652
 433579 -2118944 508200 -2104595 582346 -2087616 655927 -2068023 728849 -2045835
 801020 -2021074 872351 -1993765 942751 -1963937 1012130 -1931621 1080402 -1896853
 1147479 -1859670 1213275 -1820114 1277708 -1778228 1340693 -1734060 1402151 -1687660
 1462002 -1639080 1520169 -1588377 1576577 -1535608 1631151 -1480836 1683822 -1424122
 1734519 -1365535 1783177 -1305141 1829730 -1243014 1874117 -1179225 1916278 -1113850
 1956158 -1046968 1993702 -978658 2028858 -909001 2061580 -838081 2091820 -765983
 2119537 -692794 2144692 -618603 2167248 -543499 2187172 -467573 2204434 -390918
 2219008 -313626 2230870 -235793 2239999 -157514 2246381 -78884 2250000 0
 2152235 0 2148676 -75453 2142475 -150656 2133646 -225517 2122204 -299945
 2108170 -373847 2091567 -447135 2072419 -519718 2050756 -591509 2026610 -662420
 2000016 -732366 1971012 -801263 1939639 -869027 1905940 -935578 1869962 -1000835
 1831754 -1064720 1791369 -1127159 1748860 -1188076 1704285 -1247399 1657703 -1305059
 1609175 -1360988 1558766 -1415121 1506542 -1467394 1452572 -1517747 1396925 -1566121
 1339675 -1612462 1280894 -1656716 1220660 -1698833 1159049 -1738765 1096141 -1776469
 1032015 -1811901 966755 -1845023 900442 -1875800 833162 -1904198 764999 -1930187
 696039 -1953740 626369 -1974833 556077 -1993446 485252 -2009561 413980 -2023164
 342353 -2034242 270458 -2042788 198386 -2048797 126225 -2052267 54065 -2053199
 -18004 -2051597 -89894 -2047469 -161517 -2040825 -232785 -2031680 -303610 -2020049
 -373906 -2005953 -443587 -1989414 -512568 -1970458 -580767 -1949115 -648099 -1925415
 -714484 -1899392 -779842 -1871085 -844095 -1840533 -907165 -1807779 -968978 -1772868
 -1029459 -1735849 -1088536 -1696770 -1146141 -1655686 -1202205 -1612652 -1256661 -1567724
 -1309448 -1520963 -1360502 -1472431 -1409765 -1422190 -1457179 -1370309 -1502691 -1316853
 -1546248 -1261893 -1587801 -1205500 -1627303 -1147746 -1664710 -1088707 -1699980 -1028458
 -1733075 -967075 -1763958 -904639 -1792596 -841227 -1818959 -776921 -1843020 -711802
 -1864753 -645953 -1884138 -579455 -1901155 -512394 -1915790 -444853 -1928028 -376917
 -1937861 -308671 -1945282 -240198 -1950288 -171586 -1952877 -102919 -1953051 -34281
 -1950817 34242 -1946182 102566 -1939158 170607 -1929758 238282 -1918000 305507
 -1903904 372201 -1887492 438283 -1868791 503672 -1847827 568288 -1824634 632055
 -1799244 694895 -1771693 756733 -1742022 817494 -1710271 877106 -1676485 935497
 -1640709 992600 -1602994 1048345 -1563389 1102667 -1521949 1155503 -1478728 1206790
 -1433785 1256469 -1387179 1304482 -1338972 1350773 -1289226 1395291 -1238007 1437982
 -1185381 1478800 -1131418 1517698 -1076186 1554632 -1019758 1589561 -962205 1622448
 -903602 1653256 -844023 1681951 -783545 1708504 -722243 1732887 -660197 1755075
 -597484 1775045 -534184 1792779 -470376 1808258 -406140 1821471 -341557 1832405
 -276707 1841054 -211672 1847410 -146532 1851473 -81367 1853243 -16259 1852722
 48713 1849917 113467 1844838 177925 1837495 242008 1827904 305637 1816081
 368735 1802047 431225 1785824 493032 1767438 554080 1746917 614295 1724290
 673606 1699592 731942 1672858 789232 1644126 845408 1613437 900404 1580832
 954154 1546357 1006596 1510060 1057666 1471989 1107306 1432196 1155458 1390735
 1202066 1347661 1247076 1303030 1290436 1256903 1332097 1209340 1372011 1160403
 1410134 1110156 1446422 1058664 1480836 1005995 1513337 952216 1543890 897397
 1572462 841608 1599024 784920 1623546 727406 1646003 669139 1666374 610193
 1684638 550643 1700777 490563 1714778 430029 1726628 369118 1736318 307906
 1743842 246468 1749195 184883 1752377 123225 1753389 61572 1752235 0;
(C5Snap 1800000 0 -90);
(C5Snap 2200000 0 450);
DF;
DS62 1 10;
9 $C5PSymbol30_62;
(C5Param Radius 40a1300000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 2250000 0 2250847 79041 2248916 158141 2244203 237203 2236709 316128
 2226437 394820 2213395 473179 2197593 551109 2179046 628512 2157770 705291
 2133787 781351 2107122 856595 2077802 930929 2045857 1004260 2011324 1076494
 1974238 1147540 1934641 1217307 1892577 1285708 1848093 1352655 1801240 1418062
 1752071 1481845 1700641 1543922 1647012 1604213 1591243 1662640 1533401 1719127
 1473553 1773601 1411769 1825989 1348121 1876225 1282685 1924240 1215538 1969971
 1146761 2013358 1076434 2054342 1004642 2092868 931471 2128883 857009 2162339
 781345 2193188 704570 2221388 626779 2246898 548063 2269683 468521 2289708
 388247 2306944 307340 2321363 225900 2332943 144024 2341664 61815 2347510
 -20627 2350468 -103200 2350529 -185803 2347687 -268334 2341940 -350690 2333290
 -432769 2321743 -514469 2307306 -595688 2289992 -676325 2269818 -756279 2246802
 -835450 2220969 -913738 2192344 -991046 2160957 -1067275 2126843 -1142330 2090039
 -1216115 2050584 -1288536 2008523 -1359502 1963902 -1428922 1916773 -1496708 1867189
 -1562772 1815206 -1627029 1760885 -1689397 1704288 -1749795 1645480 -1808145 1584532
 -1864371 1521513 -1918399 1456498 -1970158 1389563 -2019580 1320789 -2066601 1250256
 -2111156 1178049 -2153187 1104253 -2192637 1028958 -2229452 952252 -2263581 874230
 -2294979 794983 -2323601 714610 -2349406 633206 -2372357 550870 -2392422 467703
 -2409568 383806 -2423771 299281 -2435008 214232 -2443257 128762 -2448506 42978
 -2450740 -43017 -2449952 -129115 -2446138 -215211 -2439296 -301198 -2429430 -386970
 -2416546 -472419 -2400655 -557441 -2381771 -641929 -2359911 -725777 -2335098 -808881
 -2307357 -891137 -2276717 -972441 -2243211 -1052691 -2206874 -1131786 -2167746 -1209627
 -2125872 -1286114 -2081297 -1361151 -2034072 -1434643 -1984251 -1506495 -1931891 -1576616
 -1877051 -1644916 -1819795 -1711307 -1760190 -1775705 -1698305 -1838025 -1634213 -1898187
 -1567988 -1956113 -1499709 -2011727 -1429457 -2064957 -1357314 -2115732 -1283368 -2163985
 -1207705 -2209651 -1130417 -2252671 -1051596 -2292986 -971337 -2330541 -889737 -2365286
 -806893 -2397172 -722907 -2426154 -637880 -2452192 -551915 -2475249 -465118 -2495290
 -377593 -2512285 -289447 -2526209 -200789 -2537039 -111728 -2544755 -22372 -2549343
 67168 -2550792 156782 -2549094 246360 -2544246 335790 -2536248 424962 -2525105
 513766 -2510825 602090 -2493420 689824 -2472907 776860 -2449304 863088 -2422637
 948401 -2392933 1032691 -2360222 1115852 -2324541 1197780 -2285929 1278372 -2244427
 1357525 -2200082 1435138 -2152945 1511115 -2103068 1585357 -2050509 1657769 -1995328
 1728260 -1937588 1796739 -1877356 1863118 -1814704 1927311 -1749703 1989235 -1682430
 2048809 -1612965 2105956 -1541390 2160601 -1467789 2212673 -1392250 2262102 -1314863
 2308823 -1235720 2352774 -1154917 2393895 -1072550 2432131 -988719 2467429 -903524
 2499742 -817069 2529024 -729458 2555234 -640797 2578333 -551196 2598289 -460761
 2615071 -369605 2628654 -277838 2639014 -185572 2646134 -92922 2650000 0
 2552235 0 2548429 -89491 2541490 -178714 2531430 -267561 2518268 -355923
 2502026 -443690 2482728 -530757 2460405 -617016 2435088 -702363 2406815 -786694
 2375625 -869907 2341563 -951901 2304675 -1032576 2265012 -1111837 2222627 -1189587
 2177578 -1265733 2129925 -1340184 2079732 -1412851 2027064 -1483648 1971992 -1552490
 1914588 -1619296 1854925 -1683988 1793084 -1746489 1729142 -1806726 1663183 -1864629
 1595293 -1920130 1525558 -1973165 1454067 -2023673 1380912 -2071597 1306187 -2116881
 1229985 -2159475 1152405 -2199331 1073544 -2236405 993502 -2270655 912379 -2302045
 830278 -2330542 747302 -2356114 663555 -2378736 579142 -2398386 494167 -2415044
 408737 -2428695 322959 -2439328 236938 -2446935 150781 -2451513 64595 -2453060
 -21514 -2451582 -107440 -2447084 -193076 -2439578 -278318 -2429080 -363062 -2415606
 -447203 -2399180 -530639 -2379826 -613268 -2357575 -694990 -2332459 -775705 -2304514
 -855316 -2273780 -933726 -2240300 -1010841 -2204121 -1086569 -2165291 -1160817 -2123864
 -1233498 -2079895 -1304524 -2033444 -1373811 -1984573 -1441277 -1933346 -1506841 -1879830
 -1570426 -1824097 -1631958 -1766219 -1691364 -1706272 -1748574 -1644332 -1803523 -1580481
 -1856147 -1514801 -1906385 -1447377 -1954179 -1378294 -1999476 -1307641 -2042223 -1235508
 -2082373 -1161988 -2119881 -1087173 -2154706 -1011158 -2186810 -934039 -2216158 -855914
 -2242719 -776880 -2266465 -697038 -2287374 -616487 -2305423 -535328 -2320597 -453662
 -2332882 -371591 -2342268 -289217 -2348749 -206643 -2352322 -123970 -2352990 -41301
 -2350755 41262 -2345628 123617 -2337618 205664 -2326743 287300 -2313020 368427
 -2296473 448946 -2277126 528757 -2255009 607764 -2230155 685871 -2202599 762983
 -2172382 839007 -2139544 913851 -2104132 987424 -2066194 1059640 -2025783 1130410
 -1982952 1199650 -1937759 1267279 -1890265 1333215 -1840533 1397380 -1788627 1459698
 -1734618 1520097 -1678574 1578505 -1620571 1634854 -1560682 1689079 -1498985 1741116
 -1435561 1790906 -1370490 1838391 -1303857 1883518 -1235746 1926235 -1166245 1966494
 -1095442 2004251 -1023427 2039463 -950291 2072092 -876127 2102102 -801029 2129463
 -725090 2154145 -648407 2176123 -571075 2195376 -493192 2211884 -414854 2225633
 -336159 2236611 -257205 2244810 -178090 2250226 -98912 2252858 -19769 2252707
 59242 2249779 138023 2244083 216477 2235633 294509 2224443 372022 2210534
 448922 2193927 525115 2174649 600510 2152728 675013 2128198 748535 2101092
 820987 2071451 892282 2039316 962334 2004731 1031058 1967744 1098374 1928406
 1164200 1886770 1228459 1842891 1291073 1796829 1351970 1748645 1411076 1698403
 1468324 1646168 1523646 1592010 1576977 1535998 1628256 1478207 1677424 1418711
 1724423 1357586 1769201 1294913 1811707 1230770 1851893 1165241 1889714 1098409
 1925128 1030360 1958095 961179 1988582 890956 2016554 819777 2041983 747734
 2064843 674917 2085110 601418 2102764 527328 2117790 452741 2130173 377749
 2139906 302446 2146979 226927 2151391 151283 2153142 75610 2152235 0;
(C5Snap 2200000 0 -90);
(C5Snap 2600000 0 450);
DF;
DS63 1 10;
9 $C5PSymbol30_63;
(C5Param Radius 40a4500000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4076800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 2650000 0 2650601 93079 2647931 186199 2641987 279247 2632772 372106
 2620292 464663 2604556 556801 2585579 648407 2563378 739367 2537975 829566
 2509397 918892 2477673 1007233 2442838 1094479 2404929 1180519 2363989 1265246
 2320061 1348552 2273197 1430333 2223448 1510484 2170873 1588904 2115530 1665493
 2057483 1740153 1996801 1812789 1933553 1883308 1867813 1951619 1799659 2017634
 1729171 2081268 1656432 2142438 1581528 2201065 1504548 2257071 1425584 2310384
 1344731 2360932 1262084 2408650 1177743 2453473 1091811 2495341 1004389 2534198
 915584 2569990 825503 2602669 734256 2632188 641953 2658508 548707 2681588
 454631 2701396 359841 2717903 264451 2731081 168580 2740910 72345 2747372
 -24137 2750453 -120746 2750144 -217362 2746440 -313867 2739340 -410141 2728848
 -506065 2714970 -601520 2697718 -696387 2677109 -790548 2653162 -883885 2625902
 -976281 2595357 -1067622 2561559 -1157792 2524544 -1246679 2484355 -1334170 2441034
 -1420154 2394630 -1504524 2345197 -1587172 2292789 -1667994 2237467 -1746887 2179295
 -1823750 2118341 -1898485 2054674 -1970996 1988369 -2041190 1919504 -2108978 1848160
 -2174270 1774421 -2236982 1698375 -2297034 1620111 -2354346 1539723 -2408843 1457307
 -2460454 1372961 -2509110 1286787 -2554747 1198888 -2597302 1109370 -2636719 1018341
 -2672945 925911 -2705928 832192 -2735624 737298 -2761991 641345 -2784990 544448
 -2804589 446726 -2820757 348300 -2833468 249288 -2842703 149814 -2848444 49998
 -2850678 -50037 -2849398 -150166 -2844599 -250268 -2836281 -350217 -2824450 -449890
 -2809115 -549164 -2790289 -647915 -2767989 -746021 -2742239 -843359 -2713064 -939809
 -2680495 -1035248 -2644568 -1129558 -2605321 -1222621 -2562797 -1314320 -2517044 -1404539
 -2468114 -1493165 -2416063 -1580085 -2360948 -1665190 -2302835 -1748372 -2241790 -1829524
 -2177883 -1908544 -2111190 -1985331 -2041789 -2059786 -1969761 -2131814 -1895191 -2201321
 -1818167 -2268220 -1738781 -2332421 -1657127 -2393843 -1573302 -2452406 -1487407 -2508031
 -1399545 -2560647 -1309821 -2610183 -1218343 -2656573 -1125221 -2699757 -1030568 -2739674
 -934499 -2776271 -837130 -2809498 -738580 -2839309 -638967 -2865661 -538414 -2888517
 -437044 -2907843 -334980 -2923609 -232348 -2935792 -129273 -2944370 -25882 -2949328
 77697 -2950653 181338 -2948339 284912 -2942383 388291 -2932787 491347 -2919558
 593952 -2902705 695980 -2882245 797302 -2858197 897793 -2830585 997328 -2799439
 1095781 -2764792 1193031 -2726680 1288954 -2685146 1383431 -2640236 1476342 -2592001
 1567571 -2540495 1657002 -2485777 1744522 -2427909 1830020 -2366958 1913387 -2302995
 1994518 -2236095 2073309 -2166336 2149659 -2093799 2223470 -2018570 2294647 -1940739
 2363099 -1860396 2428736 -1777638 2491473 -1692564 2551229 -1605275 2607926 -1515875
 2661488 -1424472 2711846 -1331176 2758931 -1236099 2802682 -1139357 2843039 -1041065
 2879947 -941343 2913356 -840312 2943219 -738096 2969495 -634818 2992144 -530604
 3011135 -425583 3026438 -319882 3038029 -213630 3045888 -106959 3050000 0
 2952235 0 2948183 -103528 2940504 -206773 2929214 -309606 2914332 -411901
 2895881 -513534 2873890 -614379 2848390 -714315 2819420 -813218 2787020 -910969
 2751235 -1007448 2712114 -1102539 2669711 -1196126 2624084 -1288096 2575292 -1378339
 2523402 -1466745 2468481 -1553209 2410604 -1637626 2349844 -1719896 2286282 -1799921
 2220000 -1877605 2151085 -1952855 2079625 -2025584 2005712 -2095705 1929441 -2163136
 1850911 -2227797 1770221 -2289614 1687474 -2348513 1602775 -2404428 1516233 -2457294
 1427955 -2507049 1338055 -2553639 1246646 -2597010 1153841 -2637113 1059759 -2673904
 964518 -2707344 868235 -2737395 771033 -2764027 673032 -2787211 574354 -2806924
 475122 -2823148 375459 -2835868 275489 -2845073 175336 -2850758 75124 -2852922
 -25024 -2851566 -124985 -2846699 -224635 -2838331 -323851 -2826479 -422513 -2811163
 -520500 -2792407 -617691 -2770239 -713967 -2744692 -809213 -2715804 -903311 -2683614
 -996147 -2648169 -1087610 -2609515 -1177588 -2567708 -1265972 -2522802 -1352657 -2474859
 -1437537 -2423941 -1520512 -2370118 -1601481 -2313459 -1680349 -2254039 -1757020 -2191937
 -1831404 -2127231 -1903414 -2060008 -1972963 -1990353 -2039970 -1918356 -2104356 -1844110
 -2166046 -1767710 -2224969 -1689254 -2281055 -1608841 -2334241 -1526575 -2384466 -1442559
 -2431671 -1356900 -2475804 -1269706 -2516816 -1181088 -2554660 -1091157 -2589295 -1000025
 -2620684 -907808 -2648793 -814621 -2673592 -720580 -2695057 -625802 -2713166 -530407
 -2727902 -434511 -2739253 -338236 -2747209 -241699 -2751768 -145021 -2752928 -48321
 -2750694 48282 -2745073 144668 -2736079 240720 -2723728 336319 -2708041 431348
 -2689041 525690 -2666759 619231 -2641228 711857 -2612482 803454 -2580565 893911
 -2545519 983118 -2507394 1070968 -2466242 1157355 -2422118 1242173 -2375081 1325322
 -2325195 1406701 -2272525 1486213 -2217141 1563762 -2159116 1639257 -2098526 1712607
 -2035450 1783726 -1969970 1852529 -1902170 1918936 -1832137 1982868 -1759963 2044250
 -1685740 2103012 -1609562 2159085 -1531527 2212405 -1451734 2262909 -1370284 2310541
 -1287281 2355246 -1202830 2396974 -1117037 2435679 -1030011 2471318 -941860 2503851
 -852696 2533245 -762630 2559468 -671775 2582493 -580244 2602296 -488151 2618860
 -395611 2632168 -302738 2642210 -209649 2648979 -116457 2652473 -23279 2652691
 69771 2649640 162578 2643329 255029 2633771 347009 2620983 438406 2604987
 529109 2585807 619005 2563474 707987 2538018 795946 2509479 882774 2477894
 968367 2443310 1052621 2405774 1135435 2365336 1216709 2322052 1296344 2275980
 1374246 2227182 1450322 2175723 1524480 2121670 1596633 2065094 1666695 2006070
 1734582 1944675 1800216 1880989 1863518 1815093 1924415 1747074 1982836 1677019
 2038713 1605017 2091981 1531161 2142579 1455546 2190449 1378266 2235537 1299422
 2277793 1219112 2317167 1137439 2353618 1054505 2387106 970415 2417593 885275
 2445048 799191 2469442 712272 2490750 624626 2508951 536363 2524029 447592
 2535969 358425 2544763 268971 2550406 179341 2552896 89648 2552235 0;
(C5Snap 2600000 0 -90);
(C5Snap 3000000 0 450);
DF;
DS64 1 10;
9 $C5PSymbol30_64;
(C5Param Radius 40a7700000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4066800000000000 3ff0000000000000 4076800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 3 3 2000000 10000 709
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double nodes[720];
double d = 0;
int i = 0;
for (i = 0; i < 180; i++) {
    d = Radius + Width/2 + i*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos(i*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin(i*2*M_PI*Angle/(179*360));
}

for (i = 180; i < 360; i++) {
    d = Radius - Width/2 + (360-i)*Spacing*Angle/(179*360);
    nodes[2*i+0] = d*cos((359-i)*2*M_PI*Angle/(179*360));
    nodes[2*i+1] = d*sin((359-i)*2*M_PI*Angle/(179*360));
}

polygon(360, nodes);
snapnode(Radius, 0, -90);
d = Radius + Spacing*Angle/360;
snapnode(d*cos(2*M_PI*Angle/360), d*sin(2*M_PI*Angle/360), Angle+90);  
);
P 3050000 0 3050647 53547 3050354 107116 3049121 160692 3046945 214257
 3043829 267796 3039772 321291 3034774 374726 3028836 428085 3021960 481350
 3014147 534506 3005399 587536 2995718 640424 2985105 693153 2973565 745706
 2961098 798067 2947710 850221 2933403 902151 2918180 953840 2902047 1005272
 2885007 1056432 2867064 1107304 2848225 1157871 2828493 1208117 2807875 1258028
 2786376 1307587 2764001 1356778 2740759 1405587 2716654 1453998 2691693 1501995
 2665885 1549564 2639236 1596690 2611753 1643358 2583445 1689552 2554320 1735259
 2524386 1780464 2493652 1825152 2462127 1869310 2429819 1912923 2396739 1955978
 2362896 1998461 2328299 2040358 2292960 2081656 2256888 2122342 2220094 2162403
 2182589 2201826 2144383 2240599 2105489 2278708 2065917 2316142 2025680 2352888
 1984789 2388936 1943257 2424273 1901095 2458887 1858317 2492768 1814935 2525905
 1770962 2558287 1726411 2589903 1681296 2620742 1635630 2650796 1589427 2680054
 1542701 2708507 1495465 2736144 1447734 2762958 1399523 2788938 1350845 2814078
 1301716 2838367 1252150 2861798 1202163 2884364 1151769 2906056 1100984 2926868
 1049823 2946792 998302 2965821 946437 2983950 894242 3001171 841734 3017479
 788929 3032868 735844 3047332 682493 3060867 628894 3073468 575063 3085130
 521016 3095849 466770 3105621 412341 3114442 357747 3122309 303003 3129219
 248127 3135169 193136 3140156 138046 3144178 82874 3147233 27637 3149320
 -27647 3150437 -82962 3150584 -138291 3149759 -193616 3147962 -248921 3145193
 -304188 3141452 -359400 3136740 -414541 3131057 -469593 3124405 -524539 3116784
 -579362 3108197 -634046 3098645 -688572 3088131 -742925 3076657 -797086 3064226
 -851041 3050842 -904771 3036507 -958260 3021226 -1011491 3005002 -1064447 2987840
 -1117113 2969745 -1169471 2950721 -1221506 2930774 -1273200 2909909 -1324539 2888132
 -1375505 2865449 -1426082 2841866 -1476256 2817390 -1526009 2792029 -1575327 2765788
 -1624194 2738677 -1672594 2710701 -1720512 2681870 -1767933 2652192 -1814842 2621675
 -1861225 2590329 -1907066 2558161 -1952351 2525182 -1997066 2491402 -2041197 2456829
 -2084728 2421475 -2127648 2385349 -2169941 2348462 -2211594 2310825 -2252595 2272450
 -2292930 2233347 -2332586 2193527 -2371550 2153004 -2409810 2111788 -2447354 2069893
 -2484169 2027329 -2520243 1984112 -2555566 1940252 -2590125 1895763 -2623910 1850658
 -2656909 1804952 -2689111 1758657 -2720507 1711787 -2751086 1664358 -2780838 1616381
 -2809752 1567874 -2837821 1518848 -2865033 1469321 -2891382 1419306 -2916856 1368819
 -2941450 1317874 -2965153 1266488 -2987958 1214675 -3009857 1162453 -3030844 1109835
 -3050910 1056839 -3070050 1003480 -3088256 949775 -3105522 895740 -3121843 841391
 -3137212 786745 -3151625 731819 -3165075 676629 -3177559 621193 -3189072 565526
 -3199609 509647 -3209167 453572 -3217742 397318 -3225330 340904 -3231929 284345
 -3237536 227659 -3242149 170865 -3245765 113978 -3248382 57018 -3250000 0
 -3151117 0 -3149515 55282 -3146943 110508 -3143403 165661 -3138897 220723
 -3133427 275679 -3126995 330510 -3119604 385201 -3111257 439734 -3101957 494093
 -3091708 548260 -3080514 602221 -3068378 655957 -3055305 709453 -3041300 762692
 -3026367 815659 -3010513 868336 -2993742 920708 -2976061 972759 -2957475 1024473
 -2937991 1075834 -2917615 1126827 -2896355 1177437 -2874217 1227647 -2851210 1277444
 -2827340 1326811 -2802617 1375733 -2777047 1424197 -2750640 1472188 -2723403 1519690
 -2695348 1566690 -2666481 1613173 -2636814 1659126 -2606355 1704535 -2575115 1749386
 -2543104 1793665 -2510332 1837360 -2476810 1880458 -2442549 1922945 -2407560 1964809
 -2371853 2006037 -2335442 2046618 -2298337 2086538 -2260551 2125787 -2222095 2164352
 -2182982 2202223 -2143224 2239388 -2102835 2275836 -2061827 2311556 -2020213 2346538
 -1978006 2380772 -1935220 2414247 -1891869 2446954 -1847966 2478884 -1803525 2510026
 -1758561 2540372 -1713087 2569914 -1667118 2598642 -1620669 2626549 -1573754 2653626
 -1526387 2679866 -1478585 2705260 -1430362 2729803 -1381733 2753487 -1332713 2776305
 -1283318 2798250 -1233563 2819318 -1183465 2839501 -1133038 2858795 -1082299 2877194
 -1031262 2894692 -979946 2911286 -928364 2926971 -876534 2941742 -824472 2955595
 -772193 2968528 -719714 2980537 -667052 2991618 -614223 3001770 -561243 3010988
 -508128 3019273 -454896 3026620 -401563 3033030 -348144 3038500 -294658 3043030
 -241119 3046619 -187546 3049266 -133953 3050971 -80359 3051735 -26779 3051558
 26770 3050441 80271 3048385 133708 3045390 187065 3041459 240326 3036594
 293473 3030797 346491 3024069 399363 3016415 452073 3007837 504605 2998338
 556943 2987922 609071 2976593 660973 2964355 712633 2951212 764036 2937170
 815165 2922232 866005 2906405 916541 2889694 966757 2872105 1016639 2853644
 1066170 2834317 1115336 2814130 1164122 2793092 1212513 2771208 1260495 2748486
 1308053 2724934 1355173 2700559 1401840 2675370 1448041 2649376 1493761 2622584
 1538987 2595004 1583705 2566644 1627903 2537514 1671565 2507624 1714680 2476984
 1757235 2445602 1799217 2413491 1840613 2380659 1881411 2347118 1921599 2312878
 1961164 2277952 2000097 2242349 2038383 2206081 2076013 2169161 2112975 2131600
 2149259 2093409 2184853 2054602 2219747 2015191 2253932 1975188 2287396 1934606
 2320130 1893458 2352125 1851757 2383371 1809516 2413859 1766750 2443580 1723471
 2472526 1679693 2500689 1635430 2528060 1590696 2554631 1545506 2580395 1499873
 2605345 1453812 2629472 1407337 2652772 1360463 2675236 1313206 2696859 1265579
 2717635 1217597 2737558 1169277 2756622 1120632 2774822 1071678 2792153 1022431
 2808611 972906 2824191 923118 2838889 873083 2852700 822817 2865623 772335
 2877652 721653 2888785 670787 2899020 619752 2908354 568565 2916784 517241
 2924309 465796 2930927 414247 2936636 362608 2941437 310897 2945327 259130
 2948306 207321 2950375 155488 2951533 103646 2951780 51811 2951117 0;
(C5Snap 3000000 0 -90);
(C5Snap -3200000 0 270);
DF;
DS31 10000 1;
9 Spiral;
(C5Param Radius 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Spacing 4079000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param N 4016000000000000 0 4059000000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 38 38 2000000 10000 512
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

TM m;
unityTM(&m);
int i = 0;
for (i = 0; i < N; i++) {
    symbol("Spiral_part", &m);
    parameter("Radius", Radius + i*Spacing);
    parameter("Spacing", Spacing);
    parameter("Width", Width);
    parameter("Angle", (N-i) > 1 ? 360 : 360*(N-i));
    parameter("Layer", Layer);
}

snapnode(Radius, 0, -90);
double d = Radius + Spacing*N;    
snapnode(d*cos(2*M_PI*N), d*sin(2*M_PI*N), N*360+90);
);
C 59 T 0 0;
(C5Param Radius 408f400000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4076800000000000 0 0);
(C5Param Layer 0 0 0);
C 60 T 0 0;
(C5Param Radius 4095e00000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4076800000000000 0 0);
(C5Param Layer 0 0 0);
C 61 T 0 0;
(C5Param Radius 409c200000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4076800000000000 0 0);
(C5Param Layer 0 0 0);
C 62 T 0 0;
(C5Param Radius 40a1300000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4076800000000000 0 0);
(C5Param Layer 0 0 0);
C 63 T 0 0;
(C5Param Radius 40a4500000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4076800000000000 0 0);
(C5Param Layer 0 0 0);
C 64 T 0 0;
(C5Param Radius 40a7700000000000 0 0);
(C5Param Spacing 4079000000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Angle 4066800000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 10 0 -90);
(C5Snap -32 0 2070);
DF;
DS32 1 10;
9 Shift_angled;
(C5Param Length 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 408f400000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle_1 c046800000000000 c066800000000000 4066800000000000);
(C5Param Angle_2 c03e000000000000 c066800000000000 4066800000000000);
(C5Param Radius 4062c00000000000 4014000000000000 40f86a0000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 18 18 2000000 10000 3539
void get_tangent_parallel(double x1, double x2, double y1, double y2, bool above, double* output) {
    double sign = (above) ? 1.0 : -1.0;
    output[2] = atan2(y2-y1, x2-x1);
    output[0] = sign*Radius*sin(fabs(output[2]));
    output[1] = sign*Radius*cos(fabs(output[2]));
}

void get_tangent_diagonal(double x1, double x2, double y1, double y2, bool inverse, double* output) {
    // Based on https://math.stackexchange.com/questions/543496/how-to-find-the-equation-of-a-line-tangent-to-a-circle-that-passes-through-a-g
    double dx = (x2 - x1)/2, dy = (y2 - y1)/2;
    double dxr = -dy, dyr = dx;
    double d = sqrt(pow(dx,2) + pow(dy,2));
    double rho = Radius/d;
    double ad = pow(rho,2);   
    double bd = rho*sqrt(1-pow(rho,2));

    double Tx = (inverse) ? ad*dx - bd*dxr : ad*dx + bd*dxr;
    double Ty = (inverse) ? ad*dy - bd*dyr : ad*dy + bd*dyr;
    output[0] = Tx;
    output[1] = Ty;
    output[2] = atan2(dy-Ty, dx-Tx);
}

// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double a_radians_1 = M_PI * fabs(Angle_1)/180;
double a_radians_2 = M_PI * fabs(Angle_2)/180;

double sign_1 = (Angle_1 > 0) ? 1.0 : -1.0;
double x1 = -sign_1*Radius*sin(fabs(a_radians_1));
double y1 = -Radius*cos(fabs(a_radians_1));

double sign_2 = (Angle_2 > 0) ? 1.0 : -1.0;
double x2 = Length + sign_2*Radius*sin(a_radians_2);
double y2 = -Height + Radius*cos(a_radians_2);

double T[3] = {0,0,0};
get_tangent_diagonal(x1, x2, y1, y2, false, T);
double theta = 180*T[2]/M_PI;

bool diagonal = false;
double T2[3] = {0,0,0};
if (Angle_1 <= -theta && Angle_2 <= -theta) {
    diagonal = true;
    get_tangent_diagonal(x2, x1, y2, y1, false, T2);
}
else if (Angle_1 > -theta && Angle_2 <= -theta) {
    // Both nodes below center of circle
    x1 = Radius*sin(a_radians_1);
    y1 = Radius*cos(a_radians_1);
    get_tangent_parallel(x1, x2, y1, y2, false, T);
    theta = 180*T[2]/M_PI;
}
else if (Angle_1 <= -theta && Angle_2 > -theta) {
    // Both nodes above center of circle
    x2 = Length - Radius*sin(a_radians_2);
    y2 = -Height - Radius*cos(a_radians_2);
    get_tangent_parallel(x1, x2, y1, y2, true, T);
    theta = 180*T[2]/M_PI;
}
else {
    // Inverse diagonal
    diagonal = true;
    x1 = Radius*sin(a_radians_1);
    y1 = Radius*cos(a_radians_1);
    x2 = Length - Radius*sin(a_radians_2);
    y2 = -Height - Radius*cos(a_radians_2);
    get_tangent_diagonal(x1, x2, y1, y2, true, T);
    get_tangent_diagonal(x2, x1, y2, y1, true, T2);
    theta = 180*T[2]/M_PI;
}

double T1x = x1 + T[0];
double T1y = y1 + T[1];
double T2x = (diagonal) ? (x2 + T2[0]) : x2 + T[0];
double T2y = (diagonal) ? (y2 + T2[1]) : y2 + T[1];

snapnode(0,0,180-Angle_1);
snapnode(Length,-Height,-Angle_2);
snapnode(T1x, T1y, theta);
snapnode(T2x, T2y, 90-theta);

TM m;
unityTM(&m);
rotateTM(&m, 0, 0, -Angle_1);
symbol("Corner_smooth", &m);
parameter("Angle", theta + Angle_1);
parameter("Radius", Radius);
parameter("Width", 100);
parameter("Layer", Layer);

unityTM(&m);
rotateTM(&m, 0, 0, 180-Angle_2);
translateTM(&m, Length, -Height);
symbol("Corner_smooth", &m);
parameter("Angle", Angle_2+theta);
parameter("Radius", Radius);
parameter("Width", 100);
parameter("Layer", Layer);

unityTM(&m);
rotateTM(&m, 0, 0, theta);
translateTM(&m, T1x, T1y);
symbol("Straight", &m);
parameter("Width", 100);
parameter("Length", sqrt(pow(T2x-T1x,2) + pow(T2y-T1y,2)));
parameter("Layer", Layer);
);
(C5Snap 0 0 225);
(C5Snap 1000000 -1000000 30);
(C5Snap 234031 -27804 -58.550365283748);
(C5Snap 797035 -948359 148.550365283748);
C 42 R 21213 21213 T 0 0;
(C5Param Angle c059e3392f4fa34a 0 0);
(C5Param Radius 4062c00000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 43 R -25981 -15000 T 1000000 -1000000;
(C5Param Angle c05623392f4fa34a 0 0);
(C5Param Radius 4062c00000000000 0 0);
(C5Param Width 4059000000000000 0 0);
(C5Param Layer 0 0 0);
C 37 R 15652 -25593 T 234031 -27804;
(C5Param Width 4059000000000000 0 0);
(C5Param Length 4090dc490f3d28ee 0 0);
(C5Param Layer 0 0 0);
DF;
DS33 1 10;
9 Trap_half;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_wall 402e000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_orifice 4024000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height_orifice 4034000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4046800000000000 4024000000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 1 1 2000000 10000 842
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

double radius = (Width - Width_orifice)/2;
double nodes[192];
double a = 0.0;
int i;
for (i = 0; i < 91; i++) {
    nodes[2*i] = radius * cos(a);
    nodes[2*i+1] = radius * sin(a);
    a += M_PI/180;
}

double a_rad = M_PI * Angle / 180;
double b = (radius + Width_wall)/sin(a_rad);
double c = (radius + Width_wall)/cos(a_rad);

nodes[182] = -(Height - radius);
nodes[183] = radius;
nodes[184] = -(Height - radius);
nodes[185] = radius + Width_wall;

nodes[186] = c * (b - Width_wall - radius) / b;         
nodes[187] = radius + Width_wall;

nodes[188] = radius + Height_orifice;
nodes[189] = b * (c - Height_orifice - radius) / c;


nodes[190] = radius + Height_orifice;
nodes[191] = 0;
polygon(96, nodes);      
);
P 45000 0 44993 785 44973 1570 44938 2355 44890 3139
 44829 3922 44753 4704 44665 5484 44562 6263 44446 7040
 44316 7814 44173 8586 44017 9356 43847 10123 43663 10886
 43467 11647 43257 12404 43034 13157 42798 13906 42548 14651
 42286 15391 42011 16127 41723 16857 41423 17583 41110 18303
 40784 19018 40446 19727 40095 20430 39733 21126 39358 21816
 38971 22500 38573 23177 38162 23846 37740 24509 37307 25164
 36862 25811 36406 26450 35939 27082 35460 27705 34972 28319
 34472 28925 33962 29523 33442 30111 32911 30690 32370 31260
 31820 31820 31260 32370 30690 32911 30111 33442 29523 33962
 28925 34472 28319 34972 27705 35460 27082 35939 26450 36406
 25811 36862 25164 37307 24509 37740 23846 38162 23177 38573
 22500 38971 21816 39358 21126 39733 20430 40095 19727 40446
 19018 40784 18303 41110 17583 41423 16857 41723 16127 42011
 15391 42286 14651 42548 13906 42798 13157 43034 12404 43257
 11647 43467 10886 43663 10123 43847 9356 44017 8586 44173
 7814 44316 7040 44446 6263 44562 5484 44665 4704 44753
 3922 44829 3139 44890 2355 44938 1570 44973 785 44993
 0 45000 -105000 45000 -105000 60000 24853 60000 65000 19853
 65000 0;
DF;
DS34 100 1;
9 Trap;
(C5Param Width 4059000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_wall 402e000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Width_orifice 4024000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height 4062c00000000000 3ff0000000000000 40f86a0000000000);
(C5Param Height_orifice 4034000000000000 3ff0000000000000 40f86a0000000000);
(C5Param Angle 4046800000000000 4024000000000000 4056800000000000);
(C5Param Layer 0 0 406fe00000000000);
L L0;
(CleFont -2048 0 0 0 400 16777216 0 1634300481 108 0 0 0 0 0 0);
(CleTransform 0 1072693248 0 0 0 0 0 1072693248 0 0 0 0);
(CleScript  0 0 18 18 2000000 10000 818
// Set layer
char currLayer[100];
sprintf(currLayer, "#%i", (int)Layer);
layer(currLayer);

TM m;
unityTM(&m);
translateTM(&m, Height-(Width - Width_orifice)/2, Width_orifice/2);
symbol("Trap_half", &m);
parameter("Width", Width);
parameter("Width_wall", Width_wall);
parameter("Width_orifice", Width_orifice);
parameter("Height", Height);
parameter("Height_orifice", Height_orifice);
parameter("Angle", Angle);
parameter("Layer", Layer);

scaleTM(&m, 0, 0, 1, -1);
symbol("Trap_half", &m);
parameter("Width", Width);
parameter("Width_wall", Width_wall);
parameter("Width_orifice", Width_orifice);
parameter("Height", Height);
parameter("Height_orifice", Height_orifice);
parameter("Angle", Angle);
parameter("Layer", Layer);

snapnode(0, 0, 180);
snapnode(Height + Height_orifice, 0, 0);
);
C 33 T 105 5;
(C5Param Width 4059000000000000 0 0);
(C5Param Width_wall 402e000000000000 0 0);
(C5Param Width_orifice 4024000000000000 0 0);
(C5Param Height 4062c00000000000 0 0);
(C5Param Height_orifice 4034000000000000 0 0);
(C5Param Angle 4046800000000000 0 0);
(C5Param Layer 0 0 0);
C 33 MY T 105 -5;
(C5Param Width 4059000000000000 0 0);
(C5Param Width_wall 402e000000000000 0 0);
(C5Param Width_orifice 4024000000000000 0 0);
(C5Param Height 4062c00000000000 0 0);
(C5Param Height_orifice 4034000000000000 0 0);
(C5Param Angle 4046800000000000 0 0);
(C5Param Layer 0 0 0);
(C5Snap 0 0 180);
(C5Snap 170 0 0);
DF;
(Top level);
DS65 100000 1;
9 MainSymbol;
DF;
C 65;
E