mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 05:49:31 -06:00
20 lines
550 B
Plaintext
20 lines
550 B
Plaintext
--# -path=.:multimodal:alltenses:prelude
|
|
|
|
concrete LightsFin of Lights =
|
|
DialogueFin ** open MultiFin, ParadigmsFin, AuxFin in {
|
|
|
|
lin
|
|
Light = UseN (regN "valo") ;
|
|
Room = UseN (regN "huone") ;
|
|
SwitchOnIn = dirV3 (regV "sytyttää") inessive ;
|
|
SwitchOffIn = dirV3 (regV "sammuttaa") inessive ;
|
|
SwitchOn = dirV2 (regV "sytyttää") ;
|
|
SwitchOff = dirV2 (regV "sammuttaa") ;
|
|
|
|
LivingRoom = defN (regN "olohuone") ;
|
|
Kitchen = defN (regN "keittiö") ;
|
|
|
|
MorningMode = mkMove ["aamuvalaistus"] ;
|
|
|
|
}
|