forked from GitHub/gf-rgl
16 lines
451 B
Plaintext
16 lines
451 B
Plaintext
--concrete UntensedScand of Untensed = CatScand ** open ResScand in {
|
|
--
|
|
-- flags optimize=all_subs ;
|
|
--
|
|
-- lin
|
|
-- PosCl cl = {s = cl.s ! Pres ! Simul ! Pos ! ODir} ;
|
|
-- NegCl cl = {s = cl.s ! Pres ! Simul ! Neg ! ODir} ;
|
|
--
|
|
-- PosQCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
|
|
-- NegQCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
|
|
--
|
|
-- PosRCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
|
|
-- NegRCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
|
|
--
|
|
--}
|