rhi/yummy.cricket
1
0
Fork 0
Code Issues Releases Activity

put minor swatches behind major so the shadows work

Browse source
This commit is contained in:
Rhiannon Morris 2024-12-10 02:52:11 +01:00
parent 303fd65bab
commit 3eddfe6e6a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
rainbow-quox/make-palette/make-palette.hs
View file

@ -76,8 +76,8 @@ makeOnly layer display index =
makeMinor :: Text -> Maybe Text -> Text -> Maybe Text -> Int -> Element makeMinor :: Text -> Maybe Text -> Text -> Maybe Text -> Int -> Element
makeMinor layer1 display1 layer2 _display2 index = makeMinor layer1 display1 layer2 _display2 index =
itemGroup layer1 index itemGroup layer1 index
[makeRect layer1 RMaj, [makeRect layer2 RMin,
makeRect layer2 RMin, makeRect layer1 RMaj,
makeTextBg layer1, makeTextBg layer1,
makeName (fromMaybe layer1 display1) Two, makeName (fromMaybe layer1 display1) Two,
makeHex layer1 SFirst, makeHex layer1 SFirst,
@ -86,8 +86,8 @@ makeMinor layer1 display1 layer2 _display2 index =
makeUse :: Text -> Maybe Text -> Text -> Int -> Element makeUse :: Text -> Maybe Text -> Text -> Int -> Element
makeUse layer1 display1 layer2 index = makeUse layer1 display1 layer2 index =
itemGroup layer1 index itemGroup layer1 index
[makeRect layer1 RMaj, [use_ [makeAttribute "href" $ "#s-" <> layer2],
use_ [makeAttribute "href" $ "#s-" <> layer2], makeRect layer1 RMaj,
makeTextBg layer1, makeTextBg layer1,
makeName (fromMaybe layer1 display1) Two, makeName (fromMaybe layer1 display1) Two,
makeHex layer1 SFirst, makeHex layer1 SFirst,