--- a/UnitConverter.st Fri May 31 18:13:36 1996 +0200
+++ b/UnitConverter.st Fri May 31 19:43:09 1996 +0200
@@ -59,6 +59,31 @@
Transcript showCR:
(UnitConverter convert:100 from:#meter2 to:#foot2)
[exEnd]
+ how wide is a US page in inches:
+ [exBegin]
+ Transcript showCR:
+ (UnitConverter convert:1 from:#'letterW' to:#inch)
+ [exEnd]
+ in millimeter:
+ [exBegin]
+ Transcript showCR:
+ (UnitConverter convert:1 from:#'letterW' to:#mm)
+ [exEnd]
+ the height of a US page in inches:
+ [exBegin]
+ Transcript showCR:
+ (UnitConverter convert:1 from:#'letterH' to:#inch)
+ [exEnd]
+ in millimeter:
+ [exBegin]
+ Transcript showCR:
+ (UnitConverter convert:1 from:#'letterH' to:#mm)
+ [exEnd]
+ the same for european A4 standard page:
+ [exBegin]
+ Transcript showCR:
+ (UnitConverter convert:1 from:#'a4H' to:#mm)
+ [exEnd]
"
!
@@ -112,14 +137,84 @@
"/ inch to millimeter
self addConversion:(25.4/1000) from:#inch to:#meter.
+ "/ nautic
+ self addConversion:1852 from:#'nautical-mile' to:#meter.
+
+ "/ printing
+
"/ inch to (roughly) a typesetter point
self addConversion:(1/72) from:#point to:#inch.
"/ point to twips; 20 twips (as in Rich-Text-Format) make a point
self addConversion:(1/20) from:#twip to:#point.
- "/ nautic
- self addConversion:1852 from:#'nautical-mile' to:#meter.
+ "/ US paper
+ self addConversion:11 from:#'letter-page-height' to:#inch.
+ self addConversion:8.5 from:#'letter-page-width' to:#inch.
+
+ self addConversion:8.5 from:#'letter-landscape-page-height' to:#inch.
+ self addConversion:11 from:#'letter-landscape-page-width' to:#inch.
+
+ "/ European paper
+ self addConversion:840 from:#'a1-page-height' to:#millimeter.
+ self addConversion:592 from:#'a1-page-width' to:#millimeter.
+ self addConversion:592 from:#'a1-landscape-page-height' to:#millimeter.
+ self addConversion:840 from:#'a1-landscape-page-width' to:#millimeter.
+
+ self addConversion:592 from:#'a2-page-height' to:#millimeter.
+ self addConversion:420 from:#'a2-page-width' to:#millimeter.
+ self addConversion:420 from:#'a2-landscape-page-height' to:#millimeter.
+ self addConversion:592 from:#'a2-landscape-page-width' to:#millimeter.
+
+ self addConversion:420 from:#'a3-page-height' to:#millimeter.
+ self addConversion:296 from:#'a3-page-width' to:#millimeter.
+ self addConversion:296 from:#'a3-landscape-page-height' to:#millimeter.
+ self addConversion:420 from:#'a3-landscape-page-width' to:#millimeter.
+
+ self addConversion:296 from:#'a4-page-height' to:#millimeter.
+ self addConversion:210 from:#'a4-page-width' to:#millimeter.
+ self addConversion:210 from:#'a4-landscape-page-height' to:#millimeter.
+ self addConversion:296 from:#'a4-landscape-page-width' to:#millimeter.
+
+ self addConversion:210 from:#'a5-page-height' to:#millimeter.
+ self addConversion:148 from:#'a5-page-width' to:#millimeter.
+ self addConversion:148 from:#'a5-landscape-page-height' to:#millimeter.
+ self addConversion:210 from:#'a5-landscape-page-width' to:#millimeter.
+
+ self addConversion:148 from:#'a6-page-height' to:#millimeter.
+ self addConversion:105 from:#'a6-page-width' to:#millimeter.
+ self addConversion:105 from:#'a6-landscape-page-height' to:#millimeter.
+ self addConversion:148 from:#'a6-landscape-page-width' to:#millimeter.
+
+ Aliases at:#letterW put:#'letter-page-width'.
+ Aliases at:#letterH put:#'letter-page-height'.
+ Aliases at:#a1W put:#'a1-page-width'.
+ Aliases at:#a1H put:#'a1-page-height'.
+ Aliases at:#a2W put:#'a2-page-width'.
+ Aliases at:#a2H put:#'a2-page-height'.
+ Aliases at:#a3W put:#'a3-page-width'.
+ Aliases at:#a3H put:#'a3-page-height'.
+ Aliases at:#a4W put:#'a4-page-width'.
+ Aliases at:#a4H put:#'a4-page-height'.
+ Aliases at:#a5W put:#'a5-page-width'.
+ Aliases at:#a5H put:#'a5-page-height'.
+ Aliases at:#a6W put:#'a6-page-width'.
+ Aliases at:#a6H put:#'a6-page-height'.
+
+ Aliases at:#letterlW put:#'letter-landscape-page-width'.
+ Aliases at:#letterlH put:#'letter-landscape-page-height'.
+ Aliases at:#a1lW put:#'a1-landscape-page-width'.
+ Aliases at:#a1lH put:#'a1-landscape-page-height'.
+ Aliases at:#a2lW put:#'a2-landscape-page-width'.
+ Aliases at:#a2lH put:#'a2-landscape-page-height'.
+ Aliases at:#a3lW put:#'a3-landscape-page-width'.
+ Aliases at:#a3lH put:#'a3-landscape-page-height'.
+ Aliases at:#a4lW put:#'a4-landscape-page-width'.
+ Aliases at:#a4lH put:#'a4-landscape-page-height'.
+ Aliases at:#a5lW put:#'a5-landscape-page-width'.
+ Aliases at:#a5lH put:#'a5-landscape-page-height'.
+ Aliases at:#a6lW put:#'a6-landscape-page-width'.
+ Aliases at:#a6lH put:#'a6-landscape-page-height'.
"/ ---------------- area -------------------
@@ -181,7 +276,7 @@
UnitConverter initialize
"
- "Modified: 31.5.1996 / 18:05:22 / cg"
+ "Modified: 31.5.1996 / 19:34:38 / cg"
! !
!UnitConverter class methodsFor:'conversions'!
@@ -402,6 +497,6 @@
!UnitConverter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.2 1996-05-31 16:13:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.3 1996-05-31 17:43:09 cg Exp $'
! !
UnitConverter initialize!