7 lines
627 B
Text
7 lines
627 B
Text
box(x)={["North","North by east","North-northeast","Northeast by north","Northeast",
|
|
"Northeast by east","East-northeast","East by north","East","East by south","East-southeast",
|
|
"Southeast by east","Southeast","Southeast by south","South-southeast","South by east","South",
|
|
"South by west","South-southwest","Southwest by south","Southwest","Southwest by west","West-southwest",
|
|
"West by south","West","West by north","West-northwest","Northwest by west","Northwest",
|
|
"Northwest by north","North-northwest","North by west"][round(x*4/45)%32+1]};
|
|
for(i=0,32,print(i%32+1" "box(x=i*11.25+if(i%3==1,5.62,if(i%3==2,-5.62)))" "x))
|