forked from GitHub/gf-rgl
add one more conjunction
This commit is contained in:
@@ -57,7 +57,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
|
||||
|
||||
lincat
|
||||
VPI = {s : Agr => Str} ;
|
||||
[VPI] = {s : Bool => Ints 3 => Agr => Str} ;
|
||||
[VPI] = {s : Bool => Ints 4 => Agr => Str} ;
|
||||
|
||||
lin
|
||||
BaseVPI x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
|
||||
@@ -72,7 +72,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
|
||||
|
||||
lincat
|
||||
VPS = {s : Agr => Str} ;
|
||||
[VPS] = {s : Bool => Ints 3 => Agr => Str} ;
|
||||
[VPS] = {s : Bool => Ints 4 => Agr => Str} ;
|
||||
|
||||
lin
|
||||
BaseVPS x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
|
||||
|
||||
Reference in New Issue
Block a user