Zebra Crossing

BlitzMax Forums/BlitzMax Programming/Zebra Crossing

dw817

(Posted 2016) [#1]

Strict
Rem

SIMPLE COLOR IMAGE To B&W And BACK AGAIN BY DW817 (11-23-16)

COMPARE WITH:
<a href="http://www.blitzbasic.com/codearcs/codearcs.php?code=1282" target="_blank">http://www.blitzbasic.com/codearcs/codearcs.php?code=1282</a>

EndRem

SetGraphicsDriver GLMax2DDriver(),0 ' no graphic problems
Graphics 800,600
SetBlend alphablend
Local pic:TPixmap=LoadPixmap(LoadBank("http::picview.info/download/20150305/abstract-girl-woman-colorful-face-800x600.jpg"))
Local img1:TImage=LoadImage(pic),img2:TImage=LoadImage(ConvertPixmap(pic,pf_i8))

Local i,j#
For i=0 To 3
  For j=0 To 1 Step .01
    Cls
    If i=0
      SetAlpha j
      DrawImage img1,0,0
    ElseIf i=1
      SetAlpha 1
      DrawImage img1,0,0
      SetAlpha j
      DrawImage img2,0,0
    ElseIf i=2
      SetAlpha 1
      DrawImage img2,0,0
      SetAlpha j
      DrawImage img1,0,0
    ElseIf i=3
      SetAlpha 1-j
      DrawImage img1,0,0
    EndIf
    Flip -1
  Next
  WaitKey
Next

BTW, does anyone know if it's possible to plot directly into a pixmap the same way you can plot directly on the screen using commands such as DrawText(), DrawImage(), DrawPixMap(), DrawOval(), DrawRect() and to support SetScale(), SetAlpha(), and SetRotation() ?

Derron

(Posted 2016) [#2]

As written in the other thread: check out Col's render-to-texture thread.

Should make possible whant you want to achieve.

bye
Ron

xlsior

(Posted 2016) [#3]

If you have bah.freeimage you can convert to greyscale very rapidly:

SuperStrict

Framework BaH.FreeImage
Import brl.glmax2d

' Load the image
Local img:TFreeImage = LoadFreeImage("d:\monkey4.jpg")
Local img2:TFreeImage

' did the image load?
If img Then
	DebugLog("Loaded ok.")
Else
	DebugLog("Couldn't load...")
	End
End If

img2=img.converttogreyscale()


Graphics 800,600,0

' get the Pixmap via the getPixmap() method.
Local image:TImage = LoadImage(img2.getPixmap())
While Not KeyDown(key_escape)
	Cls
	DrawImage image, 400 - ImageWidth(image)/2, 300 - ImageHeight(image)/2
	Flip
Wend

End

dw817

(Posted 2016) [#4]

Thanks for the prompt reply, Derron, and Xlsior.

The code I wrote HERE:

http://www.blitzbasic.com/Community/posts.php?topic=107224

almost works perfectly. I just need BLACK $000000 to show as transparent. Any ideas on fixing the existing code from 107224 to do this ?