For a project of mine, I need to plot so-called "anchor lines" (these probably have a better name that I'm simply not aware of), which consist of a single line and smaller lines drawn on one side at a 45 degree angle. Here's my code snippet from a past project in the same vein with an illustration:
LineCounter[n_] :=
IntegerPart[(n*300)]/Divisors[IntegerPart[n*300]]
[[Ceiling[Length[Divisors[IntegerPart[n*300]]]/2]]]
GroundLines[length_, centerx_, centery_] :=
Table[
Line[{{centerx - length/2 + i - length/LineCounter[length]*Cos[Pi/4],
centery - length/LineCounter[length]*Sin[Pi/4]},
{centerx - length/2 + i,
centery}}],
{i, 0, length, length/LineCounter[length]}]
AnchorLine[length_, centerx_, centery_, angle_] :=
Rotate[{Line[{{centerx - length/2, centery}, {centerx + length/2, centery}}],
Thickness[0.0001],
GroundLines[length, centerx, centery]},
angle]
Graphics[{
AnchorLine[3, 0, 0, Pi/3]
}]
This can most likely use some (a lot) of improvement and I will gladly accept any input. What I need is a way to make a similar arc with an arbitrary angle. I've mulled it over for about an hour and I don't see an approach other than bruteforcing my way interatively through angles (more or less the same approach that led to the mess above). This will probably take me at least twice the amount of code and a couple hours to fine-tune for universal use, as I'll probably use it later on, so I need help with a way to simplify this and create a curve version.
Edit:
Example, as requested. x and y are coordinates of the starting point, ang1 is angle of the arc, ang2 is angle between the limiting radii and X axis, ang3 is the alignment angle for the small lines (should be the same for all lines, but, you know, Paint...)