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