[= 	Tutorial Sample - Text Column 1

Command:
	grarls -png 320x200 text_column_1.grs

Purpose:
	Writing rotated column of text.

=]
	
Program()

    Begin

	[= use same coords for all =]
	With { 120, 100 } Do

		[= write a cross to show where the target coordinate is =]
		Cross(10);

		[= write text column  but rotated by 30 degrees ( for no particular reason ) =]
		TextColumn("Text Column", 30);

	EndWith;

    End;


[=		Cross
		-----
	    Routine to draw a simple orthogonal cross.
=]
Shape Cross(Number armlen)
    Begin
	[= horizontal line =]
	Line({-armlen, 0}, {armlen, 0});
	[= vertical line =]
	Line({0, -armlen}, {0, armlen});
    End;