# HG changeset patch
# User Chris Cannam
# Date 1358181478 0
# Node ID 997e6b3ff7210a4c0e48f1406bd8055501bb54d9
# Parent  c4d74b8e1f13b7ac54cea4ba86b81dbca5f6121b
Another structured type

diff -r c4d74b8e1f13 -r 997e6b3ff721 vamp.yeti
--- a/vamp.yeti	Mon Jan 14 14:24:12 2013 +0000
+++ b/vamp.yeti	Mon Jan 14 16:37:58 2013 +0000
@@ -68,8 +68,7 @@
     minValue = pd#minValue,
     maxValue = pd#maxValue,
     defaultValue = pd#defaultValue,
-    isQuantized = pd#isQuantized,
-    quantizeStep = pd#quantizeStep,
+    get quantize () = if pd#isQuantized then QuantizeStep pd#quantizeStep else Unquantized () fi,
     valueNames = map string pd#valueNames
     };