// Radialskala

Units(1[mm]);

Direkt = Parameter("Hilfsstrahlen", 0, CHECKBOX);
AnzahlPolarstrahlen = Parameter("Anzahl Polarstrahlen", 12, TEXT);
HauptI = Parameter("Hauptintervall", 360/AnzahlPolarstrahlen, ANGULAR);
HilfsI = Parameter("Hilfsintervall", 360/(AnzahlPolarstrahlen/2), ANGULAR);
OffX = Parameter("Ursprung X", 0, LINEAR);
OffY = Parameter("Ursprung Y", 0, LINEAR);
HauptLL = Parameter("Hauptlinienlänge", 5, LINEAR);
HilfsLL = Parameter("Hilfslinienlänge", 3, LINEAR);
LOff = Parameter("Linienoffset zu Zentrum", 2, LINEAR);
LL = Parameter("Linienlänge", 5, LINEAR);
//LFarbe = Parameter("Farbe der Strahlen",0xff,COLOR);

HauptL = Polyline(Point(LOff+OffX,OffY), Point(LOff+LL+OffX,OffY));
//HilfsL = Polyline(Point(0,LOff), Point(0,LOff+HilfsLL));
HauptLP_n = SetProperties(HauptL, "PenColor" = 0xff, "PenWidth" = 0,16);
HauptLP_n1 = RotateZ(HauptLP_n, HauptI, OffX, OffY, AnzahlPolarstrahlen);
Output(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, "Einfarbig"  = ZFarbe);
Output(Z3);