code:

---

CImage img = New("Dh0:test.jpg"); <= von Datei

CImage img = New("Dh0:test.gif",4); <= von Datei, Bild # 4

CImage img = New(*screen,x,y,width,height); <= grabben vom Screen

CImage img = New(width,height,rgb); <= blankes Bild

CImage img = New(Bitmap, Viewport); <= von Bitmap holen

CImage img2 = New(img); <= duplizieren

...

---

code:

---

Function.l image_LoadViaDT{image.l,filename.s,imgnum.l}
DEFTYPE.BitMapHeader *bmhdp
DEFTYPE.BitMap *bmap
DEFTYPE.pdtBlitPixelArray DTM
succ.l = False
If imgnum<0 Then imgnum=0
tag5.tag5ti_Tag = #PDTA_DestMode, #PMODE_V43, #DTA_SourceType,
                   #DTST_FILE, #DTA_GroupID, #GID_PICTURE,
                   #PDTA_Remap, False, #PDTA_WhichPicture,imgnum,#TAG_DONE,0
*DTPic._Object = NewDTObjectA_ (&filename.s,tag5)
If *DTPic
  tag5.tag5ti_Tag = #PDTA_BitMapHeader,&*bmhdp,#TAG_DONE,0
  GetDTAttrsA_ *DTPic,tag5
  If image_Create{image,*bmhdpbmh_Width,*bmhdpbmh_Height}
    If image_Lock{image}

      ; try to get as ARGB immediately, good datatpyes support this, but not all!
      ;If *bmhdpbmh_Depth>8 ; dont even try if depth <=8
        DTMMethodID            = #PDTM_READPIXELARRAY
        DTMpbpa_PixelData      = raw_ptr          ; /* The pixel data to transfer to/from */
        DTMpbpa_PixelFormat    = #PBPAFMT_ARGB     ; /* Format of the pixel data (see "Pixel Formats" below) */
        DTMpbpa_PixelArrayMod  = bpr              ; /* Number of bytes per row */
        DTMpbpa_Left           = 0                 ; /* Left edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Top            = 0                 ; /* Top edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Width          = *bmhdpbmh_Width  ; /* Width of the rectangle to transfer pixels to/from */
        DTMpbpa_Height         = *bmhdpbmh_Height
        If DoMethodA (*DTPic,&DTM) Then succ = True
      ;End If

      ; ok, try to read out the bitmap if ARGB failed...
      If succ=False
        tag5.tag5ti_Tag = #PDTA_ColorRegisters,&colorMap.l,#TAG_DONE,0
        If GetDTAttrsA_ (*DTPic,tag5)
          tag5.tag5ti_Tag = #PDTA_BitMap,&*bmap,#TAG_DONE,0
          If GetDTAttrsA_ (*DTPic,tag5)
            *layerinfo.Layer_Info = NewLayerInfo_
            If *layerinfo
              *layer.Layer = CreateUpfrontHookLayer_ (*layerinfo,*bmap,0,0,
                               *bmhdpbmh_Width-1,*bmhdpbmh_Height-1,
                               0,#LAYERS_NOBACKFILL,0)
              If *layer
                *rp.RastPort = *layerrp
                If *rp
                  image_Unlock{image}
                  succ = image_CutRP{image,*rp,0,0,*bmhdpbmh_Width,*bmhdpbmh_Height,-1,-1,-1,colorMap}
                  If succ Then image_Lock{image}
                End If
                DeleteLayer_ 0,*layer
              End If
              DisposeLayerInfo_ *layerinfo
            End If
          End If
        End If
      End If

      ; Try READPIXELARRAY LUT8, if we couldn't catch the bitmap (outch!)
      If succ=False
        penArray8.l = AllocVec_(*bmhdpbmh_Height * *bmhdpbmh_Width,#MEMF_ANY)
        lut.l       = AllocVec_(256*4,#MEMF_CLEAR)
        If penArray8><0 AND lut><0
          DTMMethodID            = #PDTM_READPIXELARRAY
          DTMpbpa_PixelData      = penArray8         ; /* The pixel data to transfer to/from */
          DTMpbpa_PixelFormat    = #PBPAFMT_LUT8     ; /* Format of the pixel data (see "Pixel Formats" below) */
          DTMpbpa_PixelArrayMod  = *bmhdpbmh_Width  ; /* Number of bytes per row */
          DTMpbpa_Left           = 0                 ; /* Left edge of the rectangle to transfer pixels to/from */
          DTMpbpa_Top            = 0                 ; /* Top edge of the rectangle to transfer pixels to/from */
          DTMpbpa_Width          = *bmhdpbmh_Width  ; /* Width of the rectangle to transfer pixels to/from */
          DTMpbpa_Height         = *bmhdpbmh_Height
          If DoMethodA (*DTPic,&DTM)
            tag5.tag5ti_Tag = #PDTA_ColorRegisters,&colMap.l,#TAG_DONE,0
            If GetDTAttrsA_ (*DTPic,tag5)
              For pen.l=0 To (1 LSL *bmhdpbmh_Depth)-1
                *CReg.ColorRegister = colMap + 3*pen
                Poke.l lut + (pen LSL 2),((*CRegred&$00FF) LSL 16) |
                ((*CReggreen & $00FF) LSL   | (*CRegblue & $FF)
              Next
              For y.l = 0 To *bmhdpbmh_Height -1
                For x.l = 0 To *bmhdpbmh_Width -1
                  pen.l = Peek.b(penArray8+y**bmhdpbmh_Width+x) & $FF
                  Poke.l raw_ptr+y*bpr+(x LSL 2),
                   (Peek.l(lut+(pen LSL 2)) );& $FEFEFEFE) LSR 1
                Next
              Next
              succ.l = True
            End If
          End If
          If penArray8 Then FreeVec_ penArray8 : penArray8 = 0
          If lut       Then FreeVec_ lut       : lut       = 0
        End If
      End If
      image_Unlock{image}
    End If
    If succ=False Then image_Free{image}
  End If
  DisposeDTObject_ (*DTPic)
End If
Function Return succ
End Function

---

code:

---

Import "CImage"                         ; use CImage Class

 CImage img = New()                      ; declare an image object

 img.Load("DH0:Pics/image.png")          ; load from disk
 img.Resize(800,600)                     ; resize to 800x600 pixels
 img.Save("DH0:Pics/image.jpg",'JPEG')   ; save as JPEG

 img.Delete()

 End                                     ; end of program

---

code:

---

Import "CSound"                         ; use the CSound Class

 CSound snd = New()                      ; declare a sound object

 snd.Load("DH0:SFX/Bing.wav")            ; load a sound from disk
 snd.Play()                              ; play the sound
 snd.Resample(44100)                     ; resample the sound to 44100kHz
 snd.Save("DH0:SFX/Bing.aiff",'AIFF');   ; save the sound as AIFF
 
 snd.Delete()

 End                                     ; end of program

---

code:

---

Import "CThread"

CThread thrd = New()
thrd.SetEntryPoint(&myFunction)
thrd.Run()
...
thrd.Break()
thrd.Delete()

End

---

Zitat:

---

Original von cha05e90:
@Der_Wanderer:
Hmm - kann ich explizit den Alpha-Kanal eines PNG "auslesen"? Bzw. einen Alphakanal zufügen/manipulieren?

---

code:

---

image_Load{0,"myimage.png"}

; tue etwas mit dem Bild, z.B.
image_Resize{0,800,600}
; oder mit Filter bearbeiten:
image_Filter{0,#image_filter_gamma,300}

image_Save{0,"myimage.jpg",@"JPEG"}

---

code:

---

; WB App Template (Thilo Koehler 2007)

; control the compiler ...
; 1 : integer optimizer, exe will need 68020+ CPU
; 2 : floating point usage, exe will need 68881+ FPU
; 4 : allow AB3 compiler extentions
optimize 7 ; = 1|2|4 (we want it all!)
 
; do some more strict syntax (e.g. declare variables),
; which is very useful for larger projects
Syntax 2

; we need to include the WBStartup Code
WBStartup

; use the WB screen as screen object 0
WbToScreen 0

; give our WB App a version string
!version {"MyWBApp 1.0 (\__DATE_GER__)"}

WindowFlags.l = #WFLG_CLOSEGADGET|#WFLG_DRAGBAR|#WFLG_DEPTHGADGET|#WFLG_ACTIVATE|#WFLG_SIZEGADGET
Window 0,10,10,320,200,WindowFlags,"MyWBApp",1,0

quitme.l = False
While quitme = False ; message loop, runs until we set quitme=True
  idcmp.l = WaitEvent  ; put the app to sleep until we receive an event
  Select idcmp  ; check what kind of event happend (#IDCMP_...)
    Case #IDCMP_CLOSEWINDOW  ; someone hit the close gadget
      quitme = True

    Case #IDCMP_MOUSEBUTTONS
      ; ... check mouse buttons

    Case #IDCMP_GADGETUP
      ; ... check Gadgets

    Case #IDCMP_MENUPICK
      ; ... check Menu Picks

    ; Case #IDCMP_... ; see Definition Browser for more event types

    Default
      ; we are not interested in this event, so we do nothing

  End Select
Wend

End ; never forget "End", it closes the window for us and frees all resources

---

code:

---

#define TagID(A) ((((int32)A[0])<<24)&0xFF000000) | ((((int32)A[1])<<16)&0x00FF0000) | ((((int32)A[2])<<8)&0x0000FF00) | ((((int32)A[3]))&0x000000FF)

switch(Id) {
  case TagID("TEST"): ...

---

code:

---

file_WriteLong(fid,@"FORM");

oder

chunkId.l = file_ReadLong(fid);
Select chunkId
  Case @"ILBM" : ...
  Case @"CMAP" : ...
End Select

---