Define: i-j-k-l quarter the deucey, spin/fan chain the star.

Includes definitions of 1/4 the deucey and 3/4 the deucey.

resources/net/cscott/sdr/calls/lists/c3a.calls

@@ -145,6 +145,11 @@ def: open up and(c)
   call: _transfer([c], _start trans trail and peel, \
                        _finish trans trail and peel)
 
+def: quarter the deucey
+  call: _quarter the deucey(1,1,1,1)
+def: three quarter the deucey
+  call: _quarter the deucey(3,3,3,3)
+
 def: release(c)
   option: CONCEPT
   spoken: release <c=anything>

resources/net/cscott/sdr/calls/lists/c4.calls

@@ -107,6 +107,18 @@ def: piecewise(concept, call)
     part: _subtract num(num parts([call]), 1)
       call: piecewise([concept], finish([call]))
 
+def: _quarter the deucey(i,j,k,l)
+  // xxx leads to grammar conflicts :(
+  //spoken: <i=number> <j=number> <k=number> <l=number> quarter the deucey
+  call: cast(_divide num([i], 4))
+  call: _center 4(cast(_divide num([j], 4)), 1/2(circulate))
+  // this is "_chain reaction part 3" except no trade on outside
+  call: _blend last(_center 4(_turn the star(_divide num([k], 4))), \
+                    _center 6(_unsmash the star))
+  // this is "finish chain reaction" but parameterized
+  call: _blend last(_center 2(nothing, _center 4(cast(_divide num([l], 4)))),\
+                    _like a coordinate)
+
 def: straight(call)
   option: CONCEPT
   spoken: straight <call=anything>
@@ -797,8 +809,14 @@ Cross Pair the Line
 Continue to Cross Invert <====
 Stroll & Cycle
 Turn & Weave (box & column)
-4.6
-Spin Chain the Star
+*/
+
+// 4.6
+
+def: spin chain the star
+  call: _quarter the deucey(2,3,2,3)
+
+/*
 Straight Away
 Chip Off
 Turn & Weave (1/4 tag)
@@ -819,7 +837,12 @@ Clean Sweep
 Divi Up
 Roll 'Em
 Veer & Turn
-Fan Chain the Star
+*/
+
+def: fan chain the star
+  call: finish(spin chain the star)
+
+/*
 Set Back
 Cross Straight Away
 Deuces Wild