$d= 0.5 - $u;
$D= $d + 0.5;
- $R= ([ D, U, 0 ],
- [ d, 1, u ],
- [ 0, D, U ],
- [ u, d, 1 ],
- [ U, 0, D ],
- [ 1, u, d ])[$s];
+ $R= ([ $D, $U, 0 ],
+ [ $d, 1, $u ],
+ [ 0, $D, $U ],
+ [ $u, $d, 1 ],
+ [ $U, 0, $D ],
+ [ 1, $u, $d ])[$s];
$R->[1] *= 0.9;
return @$R;
}
sub ang_cmaps () {
my ($ang);
for ($ang=0; $ang<(1<<$datum_numbits{Angle}); $ang++) {
- ($ang+0.0) / 1<<$datum_numbits{Angle};
+ #($ang+0.0) / 1<<$datum_numbits{Angle};
}
}