Zitat:

---

@DieterG

Wenn du hier ein Basic Code postest, der deiner Meinung nach einfach und kurz ist, dann poste ich dir einen AB3 Code der mindestens genauso einfach oder noch kuerzer ist. Dass AmigaBasic oder Maxon Basic einfacher ist stimmt einfach nicht.

---

@DieterG
Feigling !

Maxon oder AmigaBasic kann ich mit Amiblitz3 ganz schnell ausstechen:

code:

---

XINCLUDE "image.include.bb2"
If image_Load{0,"myimage.png"}
  Window 0,0,0,image_GetWidth{0},image_GetHeight{0},#WFLG_BORDERLESS,"",1,0
  image_Blit{0,0,0}
End If
End

---

code:

---

XINCLUDE "ahi_device.include.bb2"
If ahi_OpenDevice{0} ; select unit
  ahi_LoadSound{0,"mysound.mp3"}
  ahi_PlaySound{0}
End If
End

---

Zitat:

---

Nach Angaben des Justizministeriums könnte der Schüler aus Uelzen im Falle einer Verurteilung seine Strafe nicht in Deutschland absitzen. Nach deutschem Recht seien die Vorwürfe, soweit sie bislang bekannt seien, nicht strafbar, erklärte eine Ministeriumssprecherin. Dem 17-Jährigen droht bei einer Verurteilung eine Haftstrafe von bis zu acht Jahren.

---

code:

---

*******************************************
*        COMMODORE AMIGA OS 6.0           *
*    AMIBLITZ BASIC 3.02 / PED 3.12       *
*       2,124,123,721 BYTES FREE          *
*******************************************
READY.
[]

---

Das hätte doch was.


--
Thilo Köhler, Author von:
HD-Rec, Sweeper, Samplemanager, ArTKanoid, Monkeyscript, Toadies, AsteroidsTR, TuiTED, PosTED, TKPlayer, AudioConverter, ScreenCam, PerlinFX, MapEdit, TK AB3 Includes und viele mehr...
Homepage: http://www.hd-rec.de


[ Dieser Beitrag wurde von Der_Wanderer am 22.06.2007 um 18:59 Uhr geändert. ]

code:

---

Function.l image_LoadViaDT {image.l,filename.s}
DEFTYPE.BitMapHeader *bmhd
DEFTYPE.pdtBlitPixelArray DTM

*DTPic._Object = NewDTObjectA_ (&filename.s,Tags(#PDTA_DestMode, #PMODE_V43,
                 #DTA_SourceType, #DTST_FILE, #DTA_GroupID, #GID_PICTURE,
                 #PDTA_Remap, 0))
If *DTPic
  GetDTAttrsA_ *DTPic,Tags(#PDTA_BitMapHeader,&*bmhd)

  ; image_Create legt eine Bitmap an, deren Data Pointer raw_ptr ist
  If image_Create{image,*bmhdbmh_Width,*bmhdbmh_Height}
    DTMMethodID            = #PDTM_READPIXELARRAY
    DTMpbpa_PixelData      = raw_ptr         ; /* The pixel data to transfer to/from */
    DTMpbpa_PixelFormat    = #RECTFMT_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          = *bmhdbmh_Width   ; /* Width of the rectangle to transfer pixels to/from */
    DTMpbpa_Height         = *bmhdbmh_Height
    DoMethodA *DTPic,&DTM
    DisposeDTObject_ (*DTPic)
    succ.l = True ; we are done!
  End If
End If
Function Return succ
End Function

---

code:

---

#ifndef __REVISION__
#define __REVISION__ 96
#endif
#ifndef __VERSION__
#define __VERSION__ 3
#endif

---