Листинг 3. Прорисовка символов.

Sub alfabet(x,y,alfa)
Dim i,j,num,k,n,strnumbers,h,lenword,cods
Dim size(76) 		//массив размеров символов
col=»11»		//цвет прорисовки символа
numbers=»»
n=len(alfa)		//количество символов в строке
//перебор всех символов слова и создание строки 
с их десятичными кодами
For k=1 to n
 num=Mid(alfa,k,1)
 Select Case(num)
 Case «А»
  //строка кодов
  numbers=numbers+»|1» 
...
 End Select
next
//размеры символа: ширина, смещение ниже строки, высота 
size(1)=»406»
...
//получение массива кодов символов переданной строки
cods=Split(numbers,»|»)
//прорисовка символов в массиве экрана
For k=1 to n
 codalfa=cods(k)
 h=CInt(Mid(size(codalfa),1,1))
 Select Case(codalfa)
//прорисовка символа по пикселам (x, y - координаты левого 
нижнего угла, находящегося на строке)
 Case 1
	display(x+2,y+6)=col
	display(x+1,y+5)=col
	display(x+3,y+5)=col
	display(x,y+4)=col
	display(x+4,y+4)=col
	display(x,y+3)=col
	display(x+1,y+2)=col
	display(x+2,y+2)=col
	display(x+3,y+2)=col
	display(x+4,y+3)=col
	display(x,y+2)=col
	display(x+4,y+2)=col
	display(x,y+1)=col
	display(x+4,y+1)=col
	display(x,y)=col
	display(x+4,y)=col
...
 End Select
 x=x+h+2
next
End Sub

назад