Refactor text rendering

2021-06-23 01:35:38 +02:00
parent 39218ed3b5
commit 899c1c5f6e
13 changed files with 48 additions and 56 deletions
@@ -16,7 +16,7 @@ makeLaserScope
    -> Float    -- ^ Fraction of red/green
    -> Particle
 makeLaserScope p ep relFrac = Particle
-    {_ptDraw = const $ onLayer PtLayer $ pictures
+    {_ptDraw = const $ setLayer 1 $ onLayer PtLayer $ pictures
        [lineAlphaThick 0.5 0.5
        ,lineAlphaThick 0.2 1.5
        ,lineAlphaThick 0.1 2