summaryrefslogtreecommitdiff
path: root/lc
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-02-22 11:20:30 +0100
committerPéter Diviánszky <divipp@gmail.com>2016-02-22 11:23:19 +0100
commit5e184db3c1319caebdcd8fbab25596cd7f82a480 (patch)
tree69ec2802efd596009ca99eb004f8e4271bf8e98c /lc
parentaa362273e73353aae70eda996ee69e266d9b004a (diff)
rename zeroComp --> zero; oneComp --> one
Diffstat (limited to 'lc')
-rw-r--r--lc/Builtins.lc44
1 files changed, 22 insertions, 22 deletions
diff --git a/lc/Builtins.lc b/lc/Builtins.lc
index 41cbbeb0..23035684 100644
--- a/lc/Builtins.lc
+++ b/lc/Builtins.lc
@@ -101,39 +101,39 @@ instance Signed Int
101instance Signed Float 101instance Signed Float
102 102
103class Component a where 103class Component a where
104 zeroComp :: a 104 zero :: a
105 oneComp :: a 105 one :: a
106 106
107instance Component Int where 107instance Component Int where
108 zeroComp = 0 :: Int 108 zero = 0 :: Int
109 oneComp = 1 :: Int 109 one = 1 :: Int
110instance Component Word where 110instance Component Word where
111 zeroComp = 0 :: Word 111 zero = 0 :: Word
112 oneComp = 1 :: Word 112 one = 1 :: Word
113instance Component Float where 113instance Component Float where
114 zeroComp = 0.0 114 zero = 0.0
115 oneComp = 1.0 115 one = 1.0
116instance Component (VecS Float 2) where 116instance Component (VecS Float 2) where
117 zeroComp = V2 0.0 0.0 117 zero = V2 0.0 0.0
118 oneComp = V2 1.0 1.0 118 one = V2 1.0 1.0
119instance Component (VecS Float 3) where 119instance Component (VecS Float 3) where
120 zeroComp = V3 0.0 0.0 0.0 120 zero = V3 0.0 0.0 0.0
121 oneComp = V3 1.0 1.0 1.0 121 one = V3 1.0 1.0 1.0
122instance Component (VecS Float 4) where 122instance Component (VecS Float 4) where
123 zeroComp = V4 0.0 0.0 0.0 0.0 123 zero = V4 0.0 0.0 0.0 0.0
124 oneComp = V4 1.0 1.0 1.0 1.0 124 one = V4 1.0 1.0 1.0 1.0
125instance Component Bool where 125instance Component Bool where
126 zeroComp = False 126 zero = False
127 oneComp = True 127 one = True
128instance Component (VecS Bool 2) where 128instance Component (VecS Bool 2) where
129 zeroComp = V2 False False 129 zero = V2 False False
130 oneComp = V2 True True 130 one = V2 True True
131instance Component (VecS Bool 3) where 131instance Component (VecS Bool 3) where
132 zeroComp = V3 False False False 132 zero = V3 False False False
133 oneComp = V3 True True True 133 one = V3 True True True
134instance Component (VecS Bool 4) where 134instance Component (VecS Bool 4) where
135 zeroComp = V4 False False False False 135 zero = V4 False False False False
136 oneComp = V4 True True True True 136 one = V4 True True True True
137 137
138class Integral a 138class Integral a
139 139