home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Font_004_Orientation.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  258 b   |  10 lines
  1. Image( 0 ).Resample( 400,400 )
  2. Image( 0 ).Color = _ColorWhite
  3.  
  4. Font.Size = 25  
  5. While Font.Orientation < 360
  6.     Image(0).DrawText( 200, 200, 0,0, "    Orientation " + Font.Orientation + " "     )
  7.     Font.Orientation = Font.Orientation + 45 
  8. Wend
  9. Redraw()
  10.