A1: 'TeXcalc
B1: 'Typographic design calculator for TeX
G1: 'Enter units below
I1: "Conversion factors to pts
L1: 'x-height
M1: 'quad width
N1: =@SQRT(1.2)
H2: =@INT(@FIND(G3,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
I2: "xx
J2: 0
N2: 1
A3: 'Faces:
B3: "Typeface:
C3: 'cmr10
D3: =@FIND(@LEFT(C3,4),"x/cmr10/cmbx10/cmsl10/cmti10/cmtt10/cmmi10",1)
E3: =@IF(D3=0,"Huh?","")
F3: "Units:
G3: 'pt
H3: =@IF(H2=1,"Huh?","")
I3: "pt
J3: 1
N3: =N2*1.2
A4: ^cmr
B4: "Design Size:
C4: =@VALUE(@RIGHT(C3,2))
D4: 'pt
E4: =C4/10
F4: ="       (1"+@LEFT(G3,2)+" = "
G4: =@INDEX("i1",1,H2)
H4: 'pt)
I4: "pc
J4: 12
K4: "cmr10:
L4: 4.31
M4: 10
N4: =N3*1.2
A5: ^cmbx
B5: "Scaling:
C5: '\magstep
D5: 0
E5: =@IF(@ISNUM(D5),D5,-1)
F5: '       (    =
G5: =G4*D6
H5: 'truept)
I5: "in
J5: 72.27
N5: =N4*1.2
A6: ^cmsl
B6: "Scale Factor:
C6: =@INDEX("n1",0,E5+1)*1000
D6: =@INDEX("n1",0,E5+1)
F6: '       (
G6: 'at current scaling)
I6: "bp
J6: =J5/72
N6: =N5*1.2
A7: ^cmti
B7: "x-Height:
C7: =@INDEX("L1",0,D3)*D6*E4
D7: 'truept
I7: "cm
J7: =J5/2.54
N7: =N6*1.2
A8: ^cmtt
B8: "Quad Width:
C8: =@INDEX("L1",1,D3)*D6*E4
D8: 'truept
H8: 'Valid Units
I8: "mm
J8: =J7/10
N8: =N7*1.2
A9: ^cmmi
F9: ^Dimension
G9: 'Unit
H9: "pt
I9: "dd
J9: =1238/1157
N9: =N8*1.2
A10: '(10/12/17 pt)
H10: "pc
I10: "cc
J10: =J9*12
K10: "cmbx10:
L10: 4.44
M10: 11.5
N10: =N9*1.2
B11: "\hsize=
C11: 6.5
D11: 'in
E11: =@INT(@FIND(D11,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F11: =@INDEX("i1",1,E11)/G4*C11*D6
G11: ="true"+@LEFT(G3,2)
H11: "in
I11: "sp
J11: =1/65536
N11: =N10*1.2
B12: "\vsize=
C12: 9.5
D12: 'in
E12: =@INT(@FIND(D12,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F12: =@INDEX("i1",1,E12)/G4*C12*D6
G12: ="true"+@LEFT(G3,2)
H12: "bp
I12: "em
J12: =C8
N12: =N11*1.2
A13: \-
B13: \-
C13: \-
D13: \-
E13: \-
F13: \-
G13: \-
H13: "cm
I13: "ex
J13: =C7
N13: =N12*1.2
A14: ' Enter your dimension:
C14: 1
D14: 'in
E14: =@INT(@FIND(D14,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F14: =@INDEX("i1",1,E14)/G4*C14*D6
G14: ="true"+@LEFT(G3,2)
H14: "mm
I14: "mu
J14: =J12/18
N14: =N13*1.2
A15: \-
B15: \-
C15: \-
D15: \-
E15: \-
F15: \-
G15: \-
H15: "dd
N15: =N14*1.2
B16: "\parskip=
C16: 0
D16: 'pt
E16: =@INT(@FIND(D16,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F16: =@INDEX("i1",1,E16)/G4*C16*D6
G16: ="true"+@LEFT(G3,2)
H16: "cc
N16: =N15*1.2
B17: "\parindent=
C17: 20
D17: 'pt
E17: =@INT(@FIND(D17,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F17: =@INDEX("i1",1,E17)/G4*C17*D6
G17: ="true"+@LEFT(G3,2)
H17: "sp
K17: "cmsl10:
L17: 4.31
M17: 10
N17: =N16*1.2
B18: "\baselineskip=
C18: 12
D18: 'pt
E18: =@INT(@FIND(D18,"xx/pt/pc/in/bp/cm/mm/dd/cc/sp/em/ex/mu",1)/3+1)
F18: =@INDEX("i1",1,E18)/G4*C18*D6
G18: ="true"+@LEFT(G3,2)
H18: "em
N18: =N17*1.2
H19: "ex
N19: =N18*1.2
A20: 'Fractions:
B20: 1
C20: ^over
D20: 64
E20: ^=
F20: =B20/D20
G20: 'decimal
H20: "mu
N20: =N19*1.2
H21: "ex
K24: "cmti10:
L24: 4.31
M24: 10.22
K31: "cmtt10:
L31: 4.31
M31: 10.5
K38: "cmmi10:
L38: 4.31
M38: 10