Vertical Printing

SQR doesn't directly support rotating text or other elements, but some of its output formats do. Here are a couple examples using PostScript.

! Copyright 2004 Ray Ontko & Co. All rights reserved.

begin-program
print 'horizontal' (5,5)
print-direct printer=ps '270 rotate' ! Rotate 270 degrees
print-direct printer=ps '-792 -205 translate'


print 'vertical' (3,3)
print-direct printer=ps '90 rotate' ! Rotate back to 0
print-direct printer=ps '205 -792 translate'

print 'Horizontal again' (6,5)
print-direct printer=ps '/Courier findfont [12 0 0 -12 0 0] makefont setfont'
print 'Mirror Writing' (7,5)
end-program