home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Font_004_Orientation.bas < prev    next >
BASIC Source File  |  2003-11-26  |  258b  |  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.