supleed2/ELEC60015-HLP-CW
1
0
Fork 0
mirror of https://github.com/supleed2/ELEC60015-HLP-CW.git synced 2024-11-10 02:05:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

minor changes in symbol

Browse source
This commit is contained in:
Archontis Pantelopoulos 2022-03-26 17:49:00 +00:00
parent 0df18ef562
commit 84c8da773f
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Renderer/DrawBlock/Symbol.fs
View file

@ -467,6 +467,10 @@ let flipVPortMap (map:Map<string,PortOrientationOffset>) (symbol:Symbol) =
failwithf "Not implemented Yet" failwithf "Not implemented Yet"
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
///////////////////////////// CustomPortMovement HELPERS /////////////////////////////////////
/// Helper function to change the side/ordering of ports on custom components /// Helper function to change the side/ordering of ports on custom components
/// First it inverts the name map to find the key of the port which should change /// First it inverts the name map to find the key of the port which should change
/// If the newside submitted matches the current side then the SideIndex fields of the ports on that side are altered accordingly to bring the port in the beggining of the specific side /// If the newside submitted matches the current side then the SideIndex fields of the ports on that side are altered accordingly to bring the port in the beggining of the specific side
@ -1361,7 +1365,7 @@ let update (msg : Msg) (model : Model): Model*Cmd<'a> =
{ model with Symbols = Map.add sId addsym model.Symbols }, Cmd.none { model with Symbols = Map.add sId addsym model.Symbols }, Cmd.none
| ChangePort (sId, portName, portSide) -> | ChangePort (sId, portName, portSide) ->
//extract info required from Map to store to SI field of Component //extract info required from Map to store in SI field of Component
let extractToSI map = let extractToSI map =
let lst = map |> Map.toList let lst = map |> Map.toList
lst |> List.map (fun x -> lst |> List.map (fun x ->
@ -1377,7 +1381,7 @@ let update (msg : Msg) (model : Model): Model*Cmd<'a> =
| "Bottom" -> Bottom | "Bottom" -> Bottom
| "Left" -> Left | "Left" -> Left
| "Right" -> Right | "Right" -> Right
| _ -> failwithf "Side not implemented" | _ -> failwithf "Undefined Side"
let symbol' = {targetSymbol with APortOffsetsMap = (changePortSide targetSymbol.APortOffsetsMap portName newSide targetSymbol)} //change ports' Side and SideIndex fields let symbol' = {targetSymbol with APortOffsetsMap = (changePortSide targetSymbol.APortOffsetsMap portName newSide targetSymbol)} //change ports' Side and SideIndex fields
let symbol'' = redefineCustomHW symbol' //change Height Width based on new sides (total ports on each side) let symbol'' = redefineCustomHW symbol' //change Height Width based on new sides (total ports on each side)