1 USING: kernel math prettyprint units units.si inverse ;
6 : inches ( n -- dimensioned ) 254/100 * cm ;
8 : thous ( n -- dimensioned ) 1/1000 * inches ;
10 : feet ( n -- dimensioned ) 12 * inches ;
12 : yards ( n -- dimensioned ) 3 * feet ;
14 : miles ( n -- dimensioned ) 1760 * yards ;
16 : furlongs ( n -- dimensioned ) 1/8 * miles ;
18 : chains ( n -- dimensioned ) 1/10 * furlongs ;
20 : leagues ( n -- dimensioned ) 3 * miles ;
22 : links ( n -- dimensioned ) 1/100 * chains ;
24 : rods ( n -- dimensioned ) 5+1/2 * yards ;
26 : barleycorns ( n -- dimensioned ) 1/3 * inches ;
28 : poppyseeds ( n -- dimensioned ) 1/4 * barleycorns ;
30 : lines ( n -- dimensioned ) 1/4 * barleycorns ;
32 : digits ( n -- dimensioned ) 3/4 * inches ;
34 : hands ( n -- dimensioned ) 4 * inches ;
36 : palms ( n -- dimensioned ) 3 * inches ;
38 : shaftments ( n -- dimensioned ) 6 * inches ;
40 : nails ( n -- dimensioned ) 1/16 * yards ;
42 : spans ( n -- dimensioned ) 3 * palms ;
44 : fingers ( n -- dimensioned ) 1/8 * yards ; ! FIXME: or 7/8 * inches?
46 : cubits ( n -- dimensioned ) 18 * inches ;
48 : ells ( n -- dimensioned ) 1+1/4 * yards ;
54 : ramsdens-chains ( n -- dimensioned ) 100 * feet ;
56 : nautical-miles ( n -- dimensioned ) 1852 * m ;
58 : fathoms ( n -- dimensioned ) 6 * feet ;
60 : shackles ( n -- dimensioned ) 15 * fathoms ;
62 : cables ( n -- dimensioned ) 608 * feet ;
66 DEFER: imperial-fluid-ounces
68 : minims ( n -- dimensioned ) 1/480 * imperial-fluid-ounces ;
70 : apothecary-fluid-scruples ( n -- dimensioned ) 20 * minims ;
72 : apothecary-fluid-drachms ( n -- dimensioned ) 3 * apothecary-fluid-scruples ;
74 : apothecary-fluid-ounces ( n -- dimensioned ) 8 * apothecary-fluid-drachms ;
76 : apothecary-pints ( n -- dimensioned ) 20 * apothecary-fluid-ounces ;
78 : apothecary-gallons ( n -- dimensioned ) 8 * apothecary-pints ;
82 : pounds ( n -- dimensioned ) 22/10 / kg ;
84 : drachm ( n -- dimensioned ) 1/256 * pounds ;
86 : grains ( n -- dimensioned ) 1/7000 * pounds ;
88 : ounces ( n -- dimensioned ) 1/16 * pounds ;
90 : nailweights ( n -- dimensioned ) 7 * pounds ;
92 : stones ( n -- dimensioned ) 14 * pounds ;
94 : tods ( n -- dimensioned ) 2 * stones ;
96 : hundredweights ( n -- dimensioned ) 112 * pounds ;
98 : quarters ( n -- dimensioned ) 1/4 * hundredweights ;
100 : tons ( n -- dimensioned ) 20 * hundredweights ;
104 : gallons ( n -- dimensioned ) 379/100 * L ;
106 : quarts ( n -- dimensioned ) 1/4 * gallons ;
108 : pints ( n -- dimensioned ) 1/2 * quarts ;
110 : cups ( n -- dimensioned ) 1/2 * pints ;
112 : us-fluid-ounces ( n -- dimensioned ) 1/16 * pints ;
114 : drams ( n -- dimensioned ) 1/8 * us-fluid-ounces ;
116 : teaspoons ( n -- dimensioned ) 1/6 * us-fluid-ounces ;
118 : tablespoons ( n -- dimensioned ) 1/2 * us-fluid-ounces ;
120 : ponies ( n -- dimensioned ) 3/4 * us-fluid-ounces ;
122 : jiggers ( n -- dimensioned ) 1+1/2 * us-fluid-ounces ;
124 : us-gill ( n -- dimensioned ) 4 * us-fluid-ounces ;
126 : knots ( n -- dimensioned ) 1852/3600 * m/s ;
128 : deg-F ( n -- dimensioned ) 32 - 5/9 * deg-C ;
130 : imperial-gallons ( n -- dimensioned ) 454609/100000 * L ;
132 : imperial-quarts ( n -- dimensioned ) 1/4 * imperial-gallons ;
134 : imperial-pints ( n -- dimensioned ) 1/2 * imperial-quarts ;
136 : imperial-fluid-ounces ( n -- dimensioned ) 1/160 * imperial-gallons ;
138 : imperial-gill ( n -- dimensioned ) 5 * imperial-fluid-ounces ;
141 : dry-gallons ( n -- dimensioned ) 440488377086/100000000000 * L ;
143 : dry-quarts ( n -- dimensioned ) 1/4 * dry-gallons ;
145 : dry-pints ( n -- dimensioned ) 1/2 * dry-quarts ;
147 : pecks ( n -- dimensioned ) 8 * dry-quarts ;
149 : bushels ( n -- dimensioned ) 4 * pecks ;
151 : pins ( n -- dimensioned ) 4+1/2 * imperial-gallons ;
153 : firkins ( n -- dimensioned ) 2 * pins ;
155 : kilderkins ( n -- dimensioned ) 2 * firkins ;
157 : beer-barrels ( n -- dimensioned ) 2 * kilderkins ;
159 : beer-hogsheads ( n -- dimensioned ) 1+1/2 * beer-barrels ;
161 : beer-butts ( n -- dimensioned ) 2 * beer-hogsheads ;
163 ALIAS: beer-pipes beer-butts
165 : beer-tuns ( n -- dimensioned ) 2 * beer-pipes ;
167 : wine-gallons ( n -- dimensioned ) 18/15 * imperial-gallons ;
169 : rundlets ( n -- dimensioned ) 18 * wine-gallons ;
171 : wine-barrels ( n -- dimensioned ) 1+3/4 * rundlets ;
173 : tierces ( n -- dimensioned ) 1+1/3 * wine-barrels ;
175 : wine-hogsheads ( n -- dimensioned ) 2 * wine-barrels ;
177 : wine-punchians ( n -- dimensioned ) 2 * tierces ;
179 ALIAS: wine-tertians wine-punchians
181 : wine-butts ( n -- dimensioned ) 2 * wine-hogsheads ;
183 ALIAS: wine-pipes wine-butts
185 : wine-tun ( n -- dimensioned ) 2 * wine-butts ;