Sorry your browser is not supported!

`This is an example of how to use the comamnds of the ImageEnhance - plugin (c)2004 by Stefan Mahr 
`Use and change this as you wish
` - TOPIC - 
`Image creation, locking and accessingthe pixels directly
`Hitimer and all peek and Poke commands needs the plugin from IanM - matrix1Utility: You can find it here:
`Otherwise use the normal timer command instead


  t1 = Hitimer(1000000)
  `t1 = timer()
  If make image(1, 100, 50) :` create a new image
    If Lock image(1) > -1 :` If the locked is successful
      Text 10, 10, "depth: " + Str$(image depth(1))
      Text 10, 30, "pitch " + Str$(image pitch(1))
      Text 10, 50, "internal w/h " + Str$(image internal width(1)) + " / " + Str$(image internal height(1))
      Text 10, 70, "w/h " + Str$(image width(1)) + " / " + Str$(image height(1))
      Text 10, 90, "pointer: "+ Str$(image pointer(1)) :`pointer to the first pixel
      Text 10, 110, "is locked: "+ Str$(is image locked(1)) :`pointer to the first pixel
      `set image pixels per direct memory write at line 10
      For y = 0 To image internal width(1)-1 Step 4
        Poke dword image pointer(1)  + 10 * image pitch(1) + y * 4, Rgb(255, 255, 255)
      Next blah
      
      `write image points per command - the corners of the image
      Ink Rgb(255, 255, 255), 0
      image point 1, 0, 0 : `set the first pixel
      image point 1, image internal width(1)-1, 0 : `set the lower right corner of the image 
      image point 1, image internal width(1)-1, image internal height(1)-1 : `set the lower right corner of the image 
      image point 1, 0, image internal height(1)-1 :` set the last pixe in row 11!! (the first row = 0
      
      `write to the image using pointer
      imgptr = image pointer(1)
      imgptr = imgptr + 4
      *imgptr = Rgb(255, 000, 000)
      Text 10, 130, "color at pixel 1: " + Str$(Rgbr(*imgptr)) + ", " + Str$(Rgbg(*imgptr)) + ", " + Str$(Rgbb(*imgptr))
      
      `an other way to read a pixel color
      Text 10, 150, "color at point 10, 10: " + Str$(Rgbr(Get image Point(1, 10, 10))) + ", " + Str$(Rgbg(Get image Point(1, 10, 10))) + ", " + Str$(Rgbb(Get image Point(1, 10, 10)))
      Unlock image 1 
    Endif
  Endif
  T2 = Hitimer(1000000)
  `t2 = timer()
  Ink Rgb(255, 255, 255), 0
  Text 10, 190, "time in 1/1'000'000 sec"
  Text 10, 210, "time used: "+ Str$(t2-t1) 
  Text 10, 230, "click right mousebutton to quit"
  
  Paste image 1, 250, 30
  Do
    `Repeat until right mouseclick
    If Mouseclick() = 2 Then Exit
    Sync
  Loop
  End

`This is an example of how to use the comamnds of the ImageEnhance - plugin (c)2004 by Stefan Mahr 
`Use and change this as you wish
` - TOPIC - 
`Draw to image and render text to the image
`Hitimer needs the plugin from IanM - matrix1Utility: You can find it here:
`Otherwise use the normal timer command instead

Sync on
If make image(16, 500, 500)
  T3 = Hitimer(1000000)
  `t3 = timer()
  If Lock image(16) <> -1
    `generally speaking there are two ways to draw standard fugures to an image:
    `dotted                          the last parameter defindes the step to the next dot
    Image line 16, 50, 50, 100, 100, 5
    `or solid
    Image line 16, 110, 110, 130, 200
    ` frams are drawn with fore And background color
    Ink Rgb(255, 255, 28), Rgb(255, 55, 128)
    Image frame 16, 150, 150, 200, 200, 5
    Image frame 16, 210, 200, 260, 270
    
    `draw filled objects
    `a box is a filled frame...
    `also here: dotted
    Image box 16, 350, 150, 400, 200, 5
    `and solid
    Image box 16, 410, 200, 460, 270
    `and the same for the other objects
    Ink Rgb(128, 128, 255), Rgb(255, 255, 128)
    Image circle 16, 350, 350, 100
    Image circle 16, 410, 360, 60, 10
    
    Image ellipse 16, 110, 350, 100, 80
    Image ellipse 16, 90, 350, 60, 30, 27

    Image ellipse fill 16, 210, 70, 70, 30, 8
    Image ellipse fill 16, 110, 65, 20, 10
    
    Image circle fill 16, 350, 360, 40, 3
    Image circle fill 16, 350, 50, 40
    
    `image text
    Ink Rgb(255, 00,0), Rgb(255, 255, 000)
    Set text size 20
    Set text to bolditalic
    Set text font "Times New Roman"
    
    T7 = Hitimer(1000000)
    `t7 = timer()
    `the text is drawn using the standard settings
    Image text 16, 1, 1, "First text"
    `                         option underlined
    Set text to italic
    Image text 16, 301, 91, "underlined text", 1
    Set text to bold
    Image text 16, 211, 111, "StrikeOut text", 2
    
    T8 = Hitimer(1000000)
    `t8 = timer()
    
    Unlock image 16
  Else
    Print "Can not Lock image 16"
  Endif
Else
  Print  "Can not create image 16"
Endif
T4 = Hitimer(1000000)
`t4 = timer()

`show image
Paste image 16, 10, 10

`show some stats
Ink Rgb(255, 255, 255), 0  
Text 790, 290, "time in 1/1'000'000 sec"
Text 790, 310, "time draw graphic : "+ Str$(t4-t3) 
Text 790, 350, "time text rendering : "+ Str$(t8-t7)
Text 790, 370, "Press right mousekey " 
  
Do
  `Repeat until right mouseclick
   If Mouseclick() = 2 Then Exit
   Sync
Loop