justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Correct text scaling

Browse Source
This commit is contained in:
justin
2021-03-07 23:34:37 +01:00
parent 80a38eca58
commit f92075263f
7 changed files with 36 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/Data.hs
+2 -2
View File
@@ -57,7 +57,7 @@ flat4 (x,y,z,w) = [x,y,z,w]
data RenderType
= RenderPoly [(Point3,Point4)]
| RenderText [(Point3,Point4,Point2)]
| RenderText [(Point3,Point4,Point3)]
| RenderCirc (Point3,Point4,Float)
| RenderArc (Point3,Point4,Point4)
| RenderLine [(Point3,Point4)]
@@ -71,7 +71,7 @@ data Picture
| ThickArc Int Float Float Float Float
| Line Int [Point2]
| Pictures [Picture]
| OverPic (Point3 -> Point3) (Float -> Float) Float (Point4 -> Point4) Picture
| OverPic (Point3 -> Point3) (Point2 -> Point2) Float (Point4 -> Point4) Picture
| OnLayer Int Picture