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

Simplify block drawing

Browse Source
This commit is contained in:
justin
2025-10-24 19:09:23 +01:00
parent ccb809a090
commit ffea3a1694
7 changed files with 16 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Placement/Instance/Block.hs
+3 -2
View File
@@ -1,5 +1,6 @@
module Dodge.Placement.Instance.Block where
import Shape.Data
import Color
import Dodge.Data.GenWorld
import Dodge.Default.Block
@@ -7,7 +8,7 @@ import Dodge.Default.Wall
import Geometry
import LensHelp
decoratedBlock :: BlSh -> Material -> Color -> Float -> [Point2] -> PSType
decoratedBlock :: Shape -> Material -> Color -> Float -> [Point2] -> PSType
decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
where
bl =
@@ -24,4 +25,4 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
& wlHeight .~ h
lowBlock :: Material -> Color -> Float -> [Point2] -> PSType
lowBlock = decoratedBlock BlShMempty
lowBlock = decoratedBlock mempty
src/Dodge/Placement/Instance/Tank.hs
+1 -1
View File
@@ -20,7 +20,7 @@ tankSquareDec ::
tankSquareDec dec = tankShape (reverse . orderPolygon $ square 20) (dec 20 20 31)
tankShape :: [Point2] -> (Color -> Color -> Shape) -> Color -> Color -> Placement
tankShape baseshape facade col col' = sps0 $ decoratedBlock (BlShConst $ facade col col') Metal col 31 baseshape
tankShape baseshape facade col col' = sps0 $ decoratedBlock (facade col col') Metal col 31 baseshape
roundTank :: Color -> Color -> Placement
roundTank = tankShape (polyCirc 4 20) $