{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}
module Potato.Flow.Deprecated.TestStates (
folderStart
, folderEnd
, someSEltLabel
, someSCanvas
, defaultCanvasLBox
, pFState_fromSElts
, pfstate_someValidState1
, pfstate_someInvalidState1
, pfstate_someInvalidState2
, pfstate_basic0
, pfstate_basic1
, pfstate_basic2
, pfstate_attachments1
, pfstate_attachments2
, pfstate_zero
) where
import Relude
import Data.Default
import qualified Data.IntMap as IM
import qualified Data.Sequence as Seq
import Potato.Flow
import Potato.Flow.Deprecated.State
folderStart :: SEltLabel
folderStart :: SEltLabel
folderStart = Text -> SElt -> SEltLabel
SEltLabel Text
"folder" SElt
SEltFolderStart
folderEnd :: SEltLabel
folderEnd :: SEltLabel
folderEnd = Text -> SElt -> SEltLabel
SEltLabel Text
"folder (end)" SElt
SEltFolderEnd
someSEltLabel :: SEltLabel
someSEltLabel :: SEltLabel
someSEltLabel = Text -> SElt -> SEltLabel
SEltLabel Text
"some elt" SElt
SEltNone
defaultCanvasLBox :: LBox
defaultCanvasLBox :: LBox
defaultCanvasLBox = XY -> XY -> LBox
LBox (REltId -> REltId -> XY
forall a. a -> a -> V2 a
V2 REltId
0 REltId
0) (REltId -> REltId -> XY
forall a. a -> a -> V2 a
V2 REltId
50 REltId
25)
someSCanvas :: SCanvas
someSCanvas :: SCanvas
someSCanvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
pFState_fromSElts :: [SElt] -> LBox -> PFState
pFState_fromSElts :: [SElt] -> LBox -> PFState
pFState_fromSElts [SElt]
selts LBox
lbox = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
1..[SElt] -> REltId
forall a. [a] -> REltId
forall (t :: * -> *) a. Foldable t => t a -> REltId
length [SElt]
selts]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList ([(REltId, SEltLabel)] -> REltIdMap SEltLabel)
-> [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a b. (a -> b) -> a -> b
$ ((REltId, SElt) -> (REltId, SEltLabel))
-> [(REltId, SElt)] -> [(REltId, SEltLabel)]
forall a b. (a -> b) -> [a] -> [b]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\(REltId
i,SElt
selt) -> (REltId
i, Text -> SElt -> SEltLabel
SEltLabel (REltId -> Text
forall b a. (Show a, IsString b) => a -> b
show REltId
i) SElt
selt)) ([(REltId, SElt)] -> [(REltId, SEltLabel)])
-> [(REltId, SElt)] -> [(REltId, SEltLabel)]
forall a b. (a -> b) -> a -> b
$ [REltId] -> [SElt] -> [(REltId, SElt)]
forall a b. [a] -> [b] -> [(a, b)]
zip [REltId
1..] [SElt]
selts
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
lbox
}
pfstate_someValidState1 :: PFState
pfstate_someValidState1 :: PFState
pfstate_someValidState1 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
5]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [(REltId
0, SEltLabel
folderStart), (REltId
1, SEltLabel
folderEnd), (REltId
2, SEltLabel
someSEltLabel), (REltId
3, SEltLabel
someSEltLabel), (REltId
4, SEltLabel
someSEltLabel), (REltId
5, SEltLabel
someSEltLabel)]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_someInvalidState1 :: PFState
pfstate_someInvalidState1 :: PFState
pfstate_someInvalidState1 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
5]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [(REltId
0, SEltLabel
folderStart), (REltId
1, SEltLabel
folderEnd), (REltId
2, SEltLabel
someSEltLabel), (REltId
3, SEltLabel
someSEltLabel), (REltId
4, SEltLabel
someSEltLabel)]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_someInvalidState2 :: PFState
pfstate_someInvalidState2 :: PFState
pfstate_someInvalidState2 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
5]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [(REltId
0, SEltLabel
folderStart), (REltId
1, SEltLabel
folderStart), (REltId
2, SEltLabel
someSEltLabel), (REltId
3, SEltLabel
someSEltLabel), (REltId
4, SEltLabel
someSEltLabel)]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_basic0 :: PFState
pfstate_basic0 :: PFState
pfstate_basic0 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
2]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"box" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 1 1) (V2 5 5)
}))
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"line" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 7 2
, _sAutoLine_end = V2 20 18
}))
, (REltId
2, Text -> SElt -> SEltLabel
SEltLabel Text
"text" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 10) (V2 15 5)
, _sBox_boxType = SBoxType_NoBoxText
}))
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_basic1 :: PFState
pfstate_basic1 :: PFState
pfstate_basic1 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
5]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"b1" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 0) (V2 5 5)
}))
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"b2" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 10) (V2 5 5)
}))
, (REltId
2, Text -> SElt -> SEltLabel
SEltLabel Text
"b3" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 10) (V2 5 5)
}))
, (REltId
3, Text -> SElt -> SEltLabel
SEltLabel Text
"b4" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 0) (V2 5 5)
}))
, (REltId
4, Text -> SElt -> SEltLabel
SEltLabel Text
"sl1" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
}))
, (REltId
5, Text -> SElt -> SEltLabel
SEltLabel Text
"sl2" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 10 100
}))
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_basic2 :: PFState
pfstate_basic2 :: PFState
pfstate_basic2 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
11]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"fstart1" SElt
SEltFolderStart)
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"fstart2" SElt
SEltFolderStart)
, (REltId
2, Text -> SElt -> SEltLabel
SEltLabel Text
"b1" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 0) (V2 5 5)
}))
, (REltId
3, Text -> SElt -> SEltLabel
SEltLabel Text
"b2" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 10) (V2 5 5)
}))
, (REltId
4, Text -> SElt -> SEltLabel
SEltLabel Text
"b3" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 10) (V2 5 5)
}))
, (REltId
5, Text -> SElt -> SEltLabel
SEltLabel Text
"b4" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 0) (V2 5 5)
}))
, (REltId
6, Text -> SElt -> SEltLabel
SEltLabel Text
"fend2" SElt
SEltFolderEnd)
, (REltId
7, Text -> SElt -> SEltLabel
SEltLabel Text
"fstart3" SElt
SEltFolderStart)
, (REltId
8, Text -> SElt -> SEltLabel
SEltLabel Text
"sl1" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
}))
, (REltId
9, Text -> SElt -> SEltLabel
SEltLabel Text
"sl2" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 10 100
}))
, (REltId
10, Text -> SElt -> SEltLabel
SEltLabel Text
"fend3" SElt
SEltFolderEnd)
, (REltId
11, Text -> SElt -> SEltLabel
SEltLabel Text
"fend1" SElt
SEltFolderEnd)
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_attachments1 :: PFState
pfstate_attachments1 :: PFState
pfstate_attachments1 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
5]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"b1" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 0) (V2 5 5)
}))
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"b2" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 10) (V2 5 5)
}))
, (REltId
2, Text -> SElt -> SEltLabel
SEltLabel Text
"b3" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 10) (V2 5 5)
}))
, (REltId
3, Text -> SElt -> SEltLabel
SEltLabel Text
"b4" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 0) (V2 5 5)
}))
, (REltId
4, Text -> SElt -> SEltLabel
SEltLabel Text
"b1-> <-b3" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 2
, _attachment_location = AL_Left
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
5, Text -> SElt -> SEltLabel
SEltLabel Text
"b2v ^b4" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 2
, _attachment_location = AL_Bot
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 3
, _attachment_location = AL_Top
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_attachments2 :: PFState
pfstate_attachments2 :: PFState
pfstate_attachments2 = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
9]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"b1" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 0) (V2 5 5)
}))
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"b2" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 0) (V2 5 5)
}))
, (REltId
2, Text -> SElt -> SEltLabel
SEltLabel Text
"b3" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 10) (V2 5 5)
}))
, (REltId
3, Text -> SElt -> SEltLabel
SEltLabel Text
"b4" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 10 10) (V2 5 5)
}))
, (REltId
4, Text -> SElt -> SEltLabel
SEltLabel Text
"b1-> <-b4" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 3
, _attachment_location = AL_Left
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
5, Text -> SElt -> SEltLabel
SEltLabel Text
"<-b1 b2->" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Left
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 1
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
6, Text -> SElt -> SEltLabel
SEltLabel Text
"<-b1 b4->" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Left
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 3
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
7, Text -> SElt -> SEltLabel
SEltLabel Text
"b1-> b4->" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 3
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
8, Text -> SElt -> SEltLabel
SEltLabel Text
"b1-> b2->" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 1
, _attachment_location = AL_Right
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
, (REltId
9, Text -> SElt -> SEltLabel
SEltLabel Text
"b1v ^b3" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 0 100
, _sAutoLine_end = V2 0 110
, _sAutoLine_attachStart = Just (Attachment {
_attachment_target = 0
, _attachment_location = AL_Bot
, _attachment_offset_rel = attachment_offset_rel_default
})
, _sAutoLine_attachEnd = Just (Attachment {
_attachment_target = 2
, _attachment_location = AL_Top
, _attachment_offset_rel = attachment_offset_rel_default
})
}))
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}
pfstate_zero :: PFState
pfstate_zero :: PFState
pfstate_zero = PFState {
_pFState_layers :: Seq REltId
_pFState_layers = [REltId] -> Seq REltId
forall a. [a] -> Seq a
Seq.fromList [REltId
0..REltId
1]
, _pFState_directory :: REltIdMap SEltLabel
_pFState_directory = [(REltId, SEltLabel)] -> REltIdMap SEltLabel
forall a. [(REltId, a)] -> IntMap a
IM.fromList [
(REltId
0, Text -> SElt -> SEltLabel
SEltLabel Text
"b1" (SBox -> SElt
SEltBox SBox
forall a. Default a => a
def {
_sBox_box = LBox (V2 0 0) (V2 0 0)
}))
, (REltId
1, Text -> SElt -> SEltLabel
SEltLabel Text
"sl1" (SAutoLine -> SElt
SEltLine SAutoLine
forall a. Default a => a
def {
_sAutoLine_start = V2 10 10
, _sAutoLine_end = V2 10 10
}))
]
, _pFState_canvas :: SCanvas
_pFState_canvas = LBox -> SCanvas
SCanvas LBox
defaultCanvasLBox
}