tayacan / circlewriter Goto Github PK

The lines are 2px wide, so sight now, the bounding box actually cuts off a little bit.

It would be fine to leave 2-5px of space on each side of the drawing - that's more than is strictly speaking necessary to fix the issue, but would probably look nice.

Broken commands:

• arc 100 (Point 0 0) 0 (pi * 1.5) goes the wrong way
• arc 100 (Point 0 0) (pi/2) 0 goes the wrong way
• anything where the angles are the same, like pi and -pi

Interpret the structure from #12, possibly via the data types currently defined in Circles.hs, into an svg file.

Right now, SVG elements are represented by strings, which is terrible.

We want:

• A type SvgElement, which contains the name of the tag, and its attributes
• A type SvgAttribute for representing... you guessed it.
• A rendering function, which can take an SvgElement or a [SvgElement]

We don't need SvgElements to be recursive for now - all we want is a flat list of our objects.

As part of this refactoring, we should also make our Drawables independant of positions. Instead, draw :: a -> SVG should be changed to drawAt :: Point -> a -> SVG. This will make it easier to reuse elements.

Should be possible to draw a triangle with white fill (so not just three lines forming a triangle).

Type must specify both size and orientation. Triangle should be equilateral.

Parse Circ, according to the grammar, using the structure from #12.

Create an ADT for representing Circ drawings. Should have good support for applying transforms to shapes.