12 lines
498 B
Text
12 lines
498 B
Text
codes:=units.keys;
|
|
println(" Angle Unit ",
|
|
codes.apply(fcn(k){ units[k][0] }).apply("%11s".fmt).concat(" "));
|
|
foreach angle in (T(-2.0,-1, 0, 1, 2, tau, 16, 360.0/tau, 360-1, 400-1, 6400-1, 1_000_000)){
|
|
println();
|
|
foreach from in (codes){
|
|
subKeys:=codes.apply(cvtNm.fp(from)); // ("d-->d","d-->g","d-->m","d-->r")
|
|
r:=subKeys.pump(List,'wrap(k){ cvt[k](angle) });
|
|
println("%10g %-8s %s".fmt(angle,units[from][0],
|
|
r.apply("%12g".fmt).concat(" ")));
|
|
}
|
|
}
|