Class new title: FontSet
	subclassof: Object
	fields: 'fonts names height ascent descent'
	declare: ''

 t1 
	[t1 > (fonts length - 1) or t1 < 0  [user notify: 'fontset offset < 0 or > 15 illegal']
	fonts  (t1 + 1) Is: Font  [fonts  (t1 + 1)]
	fonts  1 Is: Font  [fonts  1]
	user notify: 'No valid fonts in this FontSet']

 t1 _ t2 
	[t1 > (fonts length - 1) or t1 < 0  [user notify: 'fontset offset < 0 or > 15 illegal']
	names  t1 + 1 _ t2 name asUppercase.
	fonts  t1 + 1 _ t2.
	[ascent < t2 ascent  [ascent _ t2 ascent]].
	[descent < t2 descent  [descent _ t2 descent]].
	height _ ascent + descent]

ascent [ascent]

baseline [ascent]

descent [descent]

family: t1 | t2 t3  
	[t2 _ Stream default.
	for t3 from: names  t1 do
		[t3 isletter  [t2 next_ t3]
		t2 contents]]

height [height]

init 
	[fonts _ Vector new: 16.
	names _ Vector new: 16.
	descent _ 0.
	ascent _ descent.
	height _ ascent]

names [names]