Function SWImage(Pfad$,SPfad$)
   Local img = LoadImage(Pfad$) : MaskImage img,255,0,255
   Local width = ImageWidth(img)
   Local height = ImageHeight(img)
   Local buffer = ImageBuffer(img)
   Local img2 = CreateImage(width,height) : MaskImage img2,255,0,255
   Local buffer2 = ImageBuffer(img2)
   LockBuffer buffer
   LockBuffer buffer2
   For xx = 1 To width
      For yy = 1 To height
         pix = ReadPixelFast(xx,yy,buffer)
         ColR = (pix And $FF0000) / $10000
         ColG = (pix And $FF00  ) / $100
         ColB = (pix And $FF    ) / $1
         ColSW = (ColR+ColG+ColB) / 3
         pix = 1*$1000000+ColSW*$10000+ColSW*$100+ColSW
         WritePixelFast(pix,xx,yy,buffer2)
      Next
   Next
   UnlockBuffer buffer2
   UnlockBuffer buffer
   SaveImage img2,SPfad$
   End Function