// Radialskala

Units(1[mm]);

OffX = Parameter("Ursprung X", 0, LINEAR);
OffY = Parameter("Ursprung Y", 0, LINEAR);
//LFarbe = Parameter("Farbe der Strahlen",0xff,COLOR);
AnzahlPolarstrahlen = Parameter("Anzahl Polarstrahlen", 12, TEXT);
HilfsJN = Parameter("Hilfsstrahlen einblenden?", 1, CHECKBOX);
AnzahlHilfsstrahlen = Parameter("Anzahl Hilfsstrahlen pro Segment", 1, TEXT);
LOff = Parameter("Linienoffset zu Zentrum", 2, LINEAR);
HauptLL = Parameter("Hauptlinienlänge", 3, LINEAR);
HilfsLL = Parameter("Hilfslinienlänge", 2, LINEAR);

HauptI = 360/AnzahlPolarstrahlen;
HilfsI = 360/AnzahlPolarstrahlen/(AnzahlHilfsstrahlen+1);

HauptL = Polyline(Point(LOff+OffX,OffY), Point(LOff+HauptLL+OffX,OffY));
HilfsL = Polyline(Point(LOff+OffX,OffY), Point(LOff+HilfsLL+OffX,OffY));
HauptLP_n = SetProperties(HauptL, "PenColor" = 0xff, "PenWidth" = 0.25*0.3937); // Strichstärke in mm 
HilfsLP_n = SetProperties(HilfsL, "PenColor" = 0xff, "PenWidth" = 0.16*0.3937);
HauptLP_n1 = RotateZ(HauptLP_n, HauptI, OffX, OffY, AnzahlPolarstrahlen);
HilfsLP_n1 = RotateZ(HilfsLP_n, HilfsI, OffX, OffY, AnzahlPolarstrahlen*(AnzahlHilfsstrahlen+1));
Beides = Group(HilfsLP_n1,HauptLP_n1);
Output(IF(HilfsJN,Beides,HauptLP_n1));

Zentrum = Parameter("Durchmesser Zentrum",1,LINEAR);
//ZFarbe = Parameter("Farbe Zentrum",0x238e23,COLOR);
Z1=Circle(Zentrum/2);
Z2=Move(Z1,OffX,OffY);
Z3 = SetProperties(Z2, "PenColor"  = 0x238e23, "PenWidth" = 0);
Z4 = SetProperties(Z3, "BrushStyle" = "Vollflächig");
Output(Z4);