Бегущая строчка, пример #1

// Al_Rado // "Бегучка" // Один из алгоритмов синусоидальной бегущей строки
start_timer(0)
xfont=8 // ширина шрифта
yfont=8 // высота шрифта
x=get_pixi_xsize(0)/2 - 1 // координата X для вывода бегущей строки
y=-get_pixi_ysize(0)/2 // координата Y, для вывода текста в "теневом" экране
xx=x 
z=0 
i=0
text="Привет! Вот вам и HELLO WORLD! Pixilang - пиксельно-ориентированный язык программирования!"
xtext=get_string_size (text) // ширина текста в символах
frames=(xtext*xfont) // ширина текста в пикселях
stroka=new_pixi(1,yfont,frames) // создаю многокадровый контейнер, где количество кадров равно количеству точек в ширину
 
start:
print(text,x,y,SNEG) // печатаю просто текст
n=y while n<yfont { // перевожу "вертикальную полоску" шириной в пиксель
	stroka[i+z] = get_dot (xx,n)
	i+1
	n+1
	}
clear(ORANGE)	
i=0
 
p=0 while p<frames { // вывожу все "вертикальные полоски"
	fpixi(stroka,x+p,(cos((get_timer(0)-8*p)/4)/8+64)/6+40,0,0,p) // вывод "вертикальной полоски" текста
	p+1
	}
x=x-1
z=z+yfont
frame (30)
goto start