PureBasic Forums - English

Code: Select all

;-TOP

; ***************************************************************************************

; Comment   : 2D-ScaleGrayCallback
; Author    : mk-soft
; File      : 
; Version   : v1.02.1
; Date      : 11.07.2025

; ***************************************************************************************


EnableExplicit

UseJPEGImageDecoder()
UsePNGImageDecoder()

; Fenster
Enumeration
  #Main
EndEnumeration

; Gadgets
Enumeration
  #ScrollArea
  #Canvas
EndEnumeration

Global exit

Procedure ScaleGrayCallback(x, y, SourceColor.l, TargetColor.l)
  Protected light
  light = ((Red(TargetColor) * 30 + Green(TargetColor) * 59 + Blue(TargetColor) * 11) / 100)
  ProcedureReturn RGBA(light, light, light, 255)
EndProcedure

; ----

; Filters to pure black and white image

Global lightMinCB
Global lightRangeCB

Procedure ScaleGrayFilterCallback(x, y, SourceColor.l, TargetColor.l)
  Protected light
  light = ((Red(TargetColor) * 30 + Green(TargetColor) * 59 + Blue(TargetColor) * 11) / 100)
  If light > lightMinCB
    ; White
    light = 255
  Else
    ; Calulate Black
    light = light * 255 / lightRangeCB
    ; Pure Black
    ;light = 0
  EndIf
  ProcedureReturn RGBA(light, light, light, 255)
EndProcedure

; ----

Procedure Draw(image)
  
  Protected x, y, dx, dy, time, limit
  
  dx = GadgetWidth(#Canvas)
  dy = GadgetHeight(#Canvas)
  
  time = ElapsedMilliseconds()
  If StartDrawing(CanvasOutput(#Canvas))
    
    DrawImage(ImageID(image), 0, 0, dx, dy)
    
    DrawingMode(#PB_2DDrawing_CustomFilter)
    ;CustomFilterCallback(@ScaleGrayCallback())
    
    ; Set lightMax
    limit = 35 ; Procent
    lightMinCB = limit * 255 / 100 ; (0..255)
    lightRangeCB = 255 - lightMinCB
    CustomFilterCallback(@ScaleGrayFilterCallback())
    
    Box(0, 0, dx, dy)
    
    StopDrawing()
    
  EndIf
  time = ElapsedMilliseconds() - time
  MessageRequester("Time", "" + time + "ms")
EndProcedure

Procedure Main()
  
  Protected Event, file.s, image
  
  If OpenWindow(#Main, #PB_Any, #PB_Any, 1024, 768, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    file = OpenFileRequester("Picture", "", "", 0)
    If file
      image = LoadImage(#PB_Any, file)
    Else
      End
    EndIf
    
    ScrollAreaGadget(#ScrollArea, 0, 0, WindowWidth(#Main), WindowHeight(#main), 3840, 2160)
    CanvasGadget(#Canvas, 0, 0, 3840, 2160)
    CloseGadgetList()
      
    Draw(image)
    
    Repeat
      Event = WaitWindowEvent()
      
      Select Event
          
        Case #PB_Event_CloseWindow
          exit = #True
          
      EndSelect
      
    Until exit
    
  EndIf
    
EndProcedure : Main()