home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Pen_005_Texture.bas < prev    next >
BASIC Source File  |  2003-11-26  |  466b  |  19 lines
  1. Image(0).Resample( 700,600 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. v = CreateImage( 1,1 )    
  5. Image( v ).Open( File.CommonWindowsDirectory + "\\winnt.bmp" )
  6. Image( v ).Resample( 60,30 )
  7.  
  8. Pen.Texture = v
  9.  
  10. Image(0).EllipseFill(    20,20  ,  200,200 )
  11. Image(0).EllipseFill(   300,20  ,  300,200 )
  12.  
  13. Image(0).RectangleFill(  20,300 ,  200,200 )
  14. Image(0).RectangleFill( 300,300 ,  300,40 )
  15. Image(0).RectangleFill( 300,350 ,   40,200 )
  16.  
  17. Image( v ).Delete()
  18. Redraw()
  19.