supleed2/ELEC60015-HLP-CW
1
0
Fork 0
mirror of https://github.com/supleed2/ELEC60015-HLP-CW.git synced 2024-09-19 20:26:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

added rotation of ports hardcoded

Browse source
This commit is contained in:
Giorgos Vyronos 2022-02-28 16:21:55 +00:00
parent 2a01daf292
commit 9e302a7996
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -113,6 +113,17 @@ let genPortPos (currentSymbol:Symbol) : Map<string,XYPos> =
|> List.map (fun (str:String,pos) -> ((str:String), ri_to_universal(pos)))
|> Map.ofList
//Map to return new coordinates of Position of ports and symbol
let rotatePortMap (map:Map<String,PortOrientationOffset>) (symbol:Symbol) =
map |> Map.map(fun key port ->
match port.Side with
| 0 -> {Side=1; Offset= {X= port.Offset.Y; Y=port.Offset.X}}
| 1 -> {Side=2; Offset= {X= 0.0; Y= port.Offset.X}}
| 2 -> {Side=3; Offset= {X= port.Offset.Y; Y= port.Offset.X}}
| 3 -> {Side=0; Offset= {X= float(symbol.Compo.W); Y= port.Offset.X}}
| _ -> {Side=0; Offset= {X= port.Offset.X; Y=port.Offset.Y}}
)
///Insert titles compatible with greater than 1 buswidth
let title t (n) =
@ -963,8 +974,8 @@ let update (msg : Msg) (model : Model): Model*Cmd<'a> =
let newSymbols =
// if ctrl is pressed make yellow initially, then try to change STransform for every time ctrl+R is pressed
List.fold (fun prevSymbols sId ->
Map.add sId {model.Symbols[sId] with STransform = stransform_fsm(model.Symbols[sId].STransform)} prevSymbols) resetSymbols compList
printf "Rotated %A" model.Symbols[compList[0]].Pos
Map.add sId {model.Symbols[sId] with STransform = stransform_fsm(model.Symbols[sId].STransform); APortOffsetsMap = rotatePortMap model.Symbols[sId].APortOffsetsMap model.Symbols[sId]} prevSymbols) resetSymbols compList
printf "Rotated %A" Map.toList (model.Symbols[compList[0]].APortOffsetsMap)
{ model with Symbols = newSymbols }, Cmd.none
| ErrorSymbols (errorCompList,selectCompList,isDragAndDrop) ->