megamanmalte/visual-queens - Change 2QSPJPRMJRQ65WIGWYYRGTSWCDFRWLSUPPKEJPAH25QG4MY6476AC

Tweaking and applying new graphics

Created by megamanmalte on December 17, 2020

2QSPJPRMJRQ65WIGWYYRGTSWCDFRWLSUPPKEJPAH25QG4MY6476AC

Dependencies

In channels

main

Change contents

Insertion in frontend/src/Queens.elm at line 44 [4.108667]
[3.1926]
[4.108948]
```
type QueenVariant = Auto | Fixed
```

Replacement in frontend/src/Queens.elm at line 131 [4.108667]

B:BD[5.7088] → [2.813:919]

                            , fixedQueens = Set.filter (\(x,y) -> x < size && y < size) model.fixedQueens

[5.7088]

[5.7195]

                            , fixedQueens = Set.empty
                            , solutionQueens = Set.empty

Replacement in frontend/src/Queens.elm at line 137 [4.108667]

B:BD[6.1600] → [2.920:979]

∅:D[2.979] → [6.1660:1752]

B:BD[6.1660] → [6.1660:1752]

                    , if Set.size newModel.fixedQueens > 0
                        then requestSolution newModel
                        else Cmd.none

[6.1600]

[6.1752]

                    , requestSolution newModel

Replacement in frontend/src/Queens.elm at line 265 [4.108667]

B:BD[7.7507] → [7.7507:7935]

                [ Svg.rect
                    [ Attr.x <| String.fromInt (i * w)
                    , Attr.y <| String.fromInt (j * w)
                    , Attr.width <| String.fromInt w
                    , Attr.height <| String.fromInt w
                    , Attr.fill <| if modBy 2 (i+j) == 1 then "lightblue" else "white"
                    , Events.onClick (AddQueen i j)
                    ]
                    []

[7.7507]

[7.7935]

                [ if modBy 2 (i+j) == 1
                    then
                        loadTile "static/base.svg" w i j
                    else
                        loadTile "static/base-alternative.svg" w i j

Replacement in frontend/src/Queens.elm at line 272 [4.108667]

B:BD[7.8030] → [7.8030:8351]

B:BD[7.8351] → [2.1487:1555]

∅:D[2.1555] → [7.8421:8731]

B:BD[7.8421] → [7.8421:8731]

                        Svg.foreignObject
                            [ Attr.width <| String.fromInt w
                            , Attr.height <| String.fromInt w
                            , Attr.x <| String.fromInt (i * w)
                            , Attr.y <| String.fromInt (j * w)
                            ]
                            (
                                [ img
                                    [ HAttr.width w
                                    , HAttr.height w
                                    , src "static/attacked.svg"
                                    ]
                                    []
                                ]
                            )

[7.8030]

[7.8731]

                        loadTile "static/attacked.svg" w i j

Deletion in frontend/src/Queens.elm at line 278 [4.108667]

∅:D[8.45619] → [9.18391:18392]

B:BD[10.4827] → [9.18391:18392]

B:BD[9.18392] → [5.8093:8394]

B:BD[5.8394] → [2.1556:1600]

∅:D[2.1600] → [5.8440:9047]

B:BD[5.8440] → [5.8440:9047]

∅:D[5.9047] → [9.18800:18845]

B:BD[9.18800] → [9.18800:18845]

B:BD[9.18845] → [5.9048:9062]


        queen color (i, j) = Svg.g
            []
            [ Svg.foreignObject
                [ Attr.width <| String.fromInt w
                , Attr.height <| String.fromInt w
                , Attr.x <| String.fromInt (i * w)
                , Attr.y <| String.fromInt (j * w)
                ]
                (
                    [ img
                        [ HAttr.width w
                        , HAttr.height w
                        , src "static/queen.svg"
                        ]
                        []
                    ]
                )
                , Svg.rect
                    [ Attr.x <| String.fromInt (i * w)
                    , Attr.y <| String.fromInt (j * w)
                    , Attr.width <| String.fromInt w
                    , Attr.height <| String.fromInt w
                    , Attr.fillOpacity "0.0"
                    , Attr.stroke color
                    , Events.onClick (RemoveQueen i j)
                    ]
                    []
            ]

Replacement in frontend/src/Queens.elm at line 322 [4.108667]

∅:D[2.2108] → [5.9147:9303]

B:BD[5.9147] → [5.9147:9303]

                ++ (List.map (queen "red") <| Set.toList model.fixedQueens)
                ++ (List.map (queen "none") <| Set.toList model.solutionQueens)

[2.2108]

                ++ (List.map (loadQueen Fixed w) <| Set.toList model.fixedQueens)
                ++ (List.map (loadQueen Auto w) <| Set.toList model.solutionQueens)
loadTile : String -> Int -> Int -> Int -> Svg.Svg Msg
loadTile path size i j =
    Svg.foreignObject
        [ Attr.width <| String.fromInt size
        , Attr.height <| String.fromInt size
        , Attr.x <| String.fromInt (i * size)
        , Attr.y <| String.fromInt (j * size)
        , Events.onClick <| AddQueen i j
        ]
        (
            [ loadSVG path size ]
        )
loadSVG : String -> Int -> Html Msg
loadSVG path size =
    img
        [ HAttr.width size
        , HAttr.height size
        , src path
        ] []
loadQueen : QueenVariant -> Int -> (Int, Int) -> Svg.Svg Msg
loadQueen variant size (i, j) = Svg.g
    []
    [ Svg.foreignObject
        [ Attr.width <| String.fromInt size
        , Attr.height <| String.fromInt size
        , Attr.x <| String.fromInt (i * size)
        , Attr.y <| String.fromInt (j * size)
        ]
        (
            [ img
                [ HAttr.width size
                , HAttr.height size
                , src <| variantPath variant
                ]
                []
            ]
        )
        , Svg.rect
            [ Attr.x <| String.fromInt (i * size)
            , Attr.y <| String.fromInt (j * size)
            , Attr.width <| String.fromInt size
            , Attr.height <| String.fromInt size
            , Attr.fillOpacity "0.0"
            , Events.onClick (RemoveQueen i j)
            ]
            []
    ]
variantPath : QueenVariant -> String
variantPath variant = case variant of
    Fixed -> "static/fixed-queen.svg"
    Auto -> "static/queen.svg"