Sound.SC3.Server.Status

Request and display status information from the synthesis server.

Documentation

extractStatusField :: Floating n => Int -> [Datum] -> n

Get nth field of status as Floating.

statusFields :: [String]

Names of status fields.

statusFormat :: [Datum] -> [String]

Status pretty printer.

Query Group

type Query_Ctl = (Either String Int, Either Double Int)

Name or index and value or bus mapping.

data Query_Node

Nodes are either groups of synths.

Constructors

Query_Group Int [Query_Node]

Query_Synth Int String (Maybe [Query_Ctl])

Instances

Eq Query_Node

Methods

(==) :: Query_Node -> Query_Node -> Bool

(/=) :: Query_Node -> Query_Node -> Bool

Show Query_Node

Methods

showsPrec :: Int -> Query_Node -> ShowS

show :: Query_Node -> String

showList :: [Query_Node] -> ShowS

query_ctl_pp :: Query_Ctl -> String

query_node_pp :: Query_Node -> String

queryTree_ctl :: (Datum, Datum) -> Query_Ctl

Control (parameter) data may be given as names or indices and as values or bus mappings.

queryTree_ctl (string "freq",float 440) == (Left "freq",Left 440.0)
queryTree_ctl (int32 1,string "c0") == (Right 1,Right 0)

queryTree_synth :: Bool -> Int -> String -> [Datum] -> (Query_Node, [Datum])

If rc is True then Query_Ctl data is expected (ie. flag was set at /g_queryTree). k is the synth-id, and nm the name.

let d = [int32 1,string "freq",float 440]
in queryTree_synth True 1000 "saw" d

queryTree_group :: Bool -> Int -> Int -> [Datum] -> (Query_Node, [Datum])

queryTree_child :: Bool -> [Datum] -> (Query_Node, [Datum])

queryTree :: [Datum] -> Query_Node

Parse result of g_queryTree.

let r = [int32 1,int32 0,int32 2,int32 1,int32 1
        ,int32 100,int32 1
        ,int32 1000,int32 (-1),string "saw"
        ,int32 1,string "freq",float 440.0
        ,int32 2,int32 0]
in queryTree r

queryNode_to_group_seq :: Query_Node -> [Int]

Extact sequence of group-ids from Query_Node.

queryTree_rt :: Query_Node -> Tree Query_Node

Transform Query_Node to Tree.

putStrLn (T.drawTree (fmap query_node_pp (queryTree_rt (queryTree r))))
> 0
> |
> +- 1
> |  |
> |  `- 100
> |     |
> |     `- (1000,"saw","freq:440.0")
> |
> `- 2