Christian/Johnny
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Some further style optimization

Browse Source
This commit is contained in:
Christian
2022-05-04 14:38:50 +02:00
parent 7873eab9c7
commit f1d8677377
2 changed files with 138 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/PC/View.elm
View File

@ -37,7 +37,9 @@ viewRam : PC_Model -> Html PC_Msg
viewRam model =
div [ class "section", class "ram" ]
[ h1 [ class "header" ] [ text "RAM" ]
, div [ class "arrow", class "down", class "top"] [ div [] [] , div [] [] ]
, div [ class "arrow-line", class "top" ]
[ div [ class "arrow", class "down"] [ div [] [] , div [] [] ]
]
, div [ class "scroller" ]
[ Html.table [ class "" ]
[ Html.thead [ class "head" ]
@ -50,8 +52,10 @@ viewRam model =
, lazy viewRamContent model
]
]
, drawArrow Bottom Down UA_Ram2DataBus "Ram -> DataBus"
, drawArrow Bottom Up UA_DataBus2Ram "DataBus -> Ram"
, div [ class "arrow-line", class "bottom" ]
[ drawArrow Down UA_Ram2DataBus "Ram -> DataBus"
, drawArrow Up UA_DataBus2Ram "DataBus -> Ram"
]
]
@ -129,8 +133,10 @@ viewCu model =
( instrRegInst, instrRegAddr ) = seperateInstructionsEntry model.pc.instructionReg
in
div [ class "section", class "cu" ]
[ drawArrow Top Up UA_CU_InstructionReg2AddressBus "InstR -> AddrB"
, drawArrow Top Up UA_CU_ProgrammCounter2AddressBus "ProgCounter -> AddrB"
[ div [ class "arrow-line", class "top" ]
[ drawArrow Up UA_CU_InstructionReg2AddressBus "InstR -> AddrB"
, drawArrow Up UA_CU_ProgrammCounter2AddressBus "ProgCounter -> AddrB"
]
, h1 [ class "header" ] [ text "Control Unit" ]
, div [ class "action-area" ]
[ -- Programm Counter
@ -175,7 +181,10 @@ viewCu model =
, div [ class "scroller" ]
[ viewCuUCode model
]
, drawArrow Bottom Up UA_DataBus2InstructionReg "DB -> InstR"
, div [ class "arrow-line", class "bottom" ]
[ drawArrow Up UA_DataBus2InstructionReg "DB -> InstR"
, drawArrow Down UA_CU_InstructionReg2DataBus "InstR -> DB"
]
]
@ -284,8 +293,10 @@ viewAlu model =
, button [ onClick <| PM_ManualStep UA_ALU_AccumulatorDivideByDataBus ] [ text "/" ]
]
]
, drawArrow Bottom Up UA_DataBus2Accumulator "DB -> ALU"
, drawArrow Bottom Down UA_ALU_Accumulator2DataBus "ALU -> DB"
, div [ class "arrow-line", class "bottom" ]
[ drawArrow Up UA_DataBus2Accumulator "DB -> ALU"
, drawArrow Down UA_ALU_Accumulator2DataBus "ALU -> DB"
]
]
-- #####################################################################
@ -329,17 +340,16 @@ viewAddressBus model =
-- Helpers
-- #####################################################################
type Arrow_Pos = Top | Bottom
type Arrow_Dir = Up | Down
drawArrow : Arrow_Pos -> Arrow_Dir -> UAction -> String -> Html PC_Msg
drawArrow pos dir act str =
drawArrow : Arrow_Dir -> UAction -> String -> Html PC_Msg
drawArrow dir act str =
div
[ HAttr.classList
[ ("arrow", True)
, ("top", pos == Top)
, ("up", dir == Up)
, ("down", dir == Down)]
, ("up", dir == Up)
, ("down", dir == Down)
]
]
[ div [ class "button" ]
[ Html.a