code:

---

Function.l image_LoadViaDT {image.l,filename.s}
DEFTYPE.BitMapHeader *bmhdp
DEFTYPE.pdtBlitPixelArray DTM
succ.l = False
*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,&*bmhdp)
  If image_Create{image,*bmhdpbmh_Width,*bmhdpbmh_Height}
    If image_Lock{image}
      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
      DoMethodA *DTPic,&DTM
      succ = True
      DisposeDTObject_ (*DTPic)
      image_Unlock{image}
    End If
  End If
End If
Function Return succ
End Function

---

code:

---

XINCLUDE "ciatimer.include.bb2"

*SampleData.b = $BFE101
Samplerate.l  = 16000
TPM.l         = Samplerate * 60 ; Ticks-Per-Minute
BufferSize.l  = 120000
BufferIndex.l = 0

Dim MyBuffer.b(BufferSize)

; setze unsere eigene Funktion in den Interrupt
timer_SetInterruptCode{?ciainterrupt,0}

; timer öffnen
If timer_Open{-1,-1,TPM}

  ; los geht's!
  timer_Start{} 

  ; wir warten bis der Puffer voll ist...
  While BufferIndex<BufferSize: Delay_ 1 : Wend

  ; stop!
  timer_Stop{}

  ; jetzt ist unser Array voll mit sample daten
  ; wir können es auch einfach speichern...
  fid.l = ffa_WriteHeader{"Ram:MySound.wav",@"WAVE",16000,8,1}
  If fid>=0
    ffa_WriteMem{fid,&MyBuffer(0),BufferSize}
    ffa_Close{fid}
  End If
End If
End

ciainterrupt:
!basica7
If (BufferIndex<BufferSize) {
  tmp=Peek.b(*SampleData);       // Register auslesen
  tmp-=0x80;            // unsigned => signed
  MyBuffer(BufferIndex) = tmp; // speichern
  BufferIndex+1;
End If
!asma7
RTS

---

code:

---

for (dy=0; dy<(dh+bordery); dy++) {
        int sy = (dy*sh) / dh; // calculate source y
        int fy = (dy*sh) - (sy*dh); // calculate the fractional part
        int ify = dh-fy; // calculate the inverse fractional part
        ARGBPixel *DPixel = ((ARGBPixel*)destaddr) + (dy*dppr); // calculate dest address
        for (dx=0; dx<(dw+borderx); dx++) {
          int sx = (dx*sw) / dw; // calculate source x
          ARGBPixel *SPixel = ((ARGBPixel*)sourceaddr) + (sy*sppr + sx); // calculate source address
          int fx = (dx*sw) - (sx*dw); // calculate the fractional part
          int ifx = dw-fx; // calculate the inverse fractional part
          int div = dx*dy;

          int faa = ((fx *  fy) <<   / div;  <= HIER GIBT ES DAS PROBLEM, bei der Division "/"
          int fba = ((ifx *  fy) <<8) / div;
          int fab = ((fx *  ify) <<8) / div;
          int fbb = ((ifx *  ify) <<8) / div;
          int C;
          C  = (int)(SPixel[0].A)            *  faa; // Interpolate alpha
          C += (int)(SPixel[1].A)          * fba;
          C += (int)(SPixel[sppr].A)     * fab;
          C += (int)(SPixel[sppr+1].A) * fbb;                  
          DPixel->A = (UBYTE)(C >>  ;
          C  = (int)(SPixel[0].R)            *  faa; // Interpolate red
          C += (int)(SPixel[1].R)          * fba;
          C += (int)(SPixel[sppr].R)     *  fab;
          C += (int)(SPixel[sppr+1].R) * fbb;                  
          DPixel->R = (UBYTE)(C >>  ;
          C  = (int)(SPixel[0].G)            *  faa; // Interpolate green
          C += (int)(SPixel[1].G)          * fba;
          C += (int)(SPixel[sppr].G)     *  fab;
          C += (int)(SPixel[sppr+1].G) * fbb;                  
          DPixel->G = (UBYTE)(C >>  ;
          C  = (int)(SPixel[0].B)            *  faa; // Interpolate blue
          C += (int)(SPixel[1].B)          * fba;
          C += (int)(SPixel[sppr].B)     * fab;
          C += (int)(SPixel[sppr+1].B) * fbb;                  
          DPixel->B = (UBYTE)(C >>  ;
          DPixel++;
        }
      }

---

code:

---

UBYTE *SampleData   = (UBYTE*)0xBFE101;
UBYTE *SampleStrobe = (UBYTE*)0xBFE301;
...

---

code:

---

UBYTE *SampleData   = 0xBFE101;
UBYTE *SampleStrobe = 0xBFE301;
UBYTE tmp;
UBYTE *buffer;

buffer=(UBYTE*)AllocVec(120000*sizeof(UBYTE),MEMF_FAST);

While (repeat<120000) {
  tmp=*SampleData;       // Register auslesen
  tmp-=0x80;            // unsigned => signed
  buffer[repeat] = tmp; // speichern
  *SampleStrobe = 0;    // Dieses Register zu 0 setzen
  repeat++;
}

---

Zitat:

---

Original von uho:
@Der_Wanderer,
1) Irgendwo bin ich mal einem Link zu Deinem Prog gefolgt.
Da gab's 'n richtiges Progger-Forum, in dem Du Deinen
Worms-Verschnitt (Name vergessen) vorgestellt hast.
Cooles Avatar-Bildchen übrigens.
Leider hab ich den Link nicht notiert...

---

Zitat:

---

2) Die Darstellung der Landschaft bei Deinem Prog finde ich
genial - vor allem, da man keinerlei Rasterung sieht.
Dies trifft besonders auf die Ober- und Unterseiten zu.

Schneidest Du da eine Grafik mit einem Polygonzug aus ?

---

Zitat:

---

Wie bekommt man so schöne Überhänge und erreicht dennoch
das Ziel (also den rechten Bildschirmrand) ?

---

Zitat:

---

Bei meinem Projekt richte ich mich bei der Grafik nach der
max. sinnvollen Größe einzelner Elemente (z.B. Blätter).
Da ich auch Berechnungen mit jedem Element durchführen
möchte, versuche ich also die Landschaft aus z.B. 8x8
Pixel großen Blöcken darzustellen - nicht zuletzt,
um einen direkten Zusammenhang zwischen graphischer
Darstellung und dahinterliegenden Datenfeldern zu
ermöglichen.

---

Zitat:

---

Gut möglich, daß es da noch bessere Ansätze gibt.

---

Zitat:

---

Ich würde ja ein Beispielbild einstellen, aber soweit
ich gehört habe, geht das nicht ohne eigenen Webspace.
Ist aber in diesem Fall vielleicht auch besser so,
denn es sieht Scheiße aus.

---

Zitat:

---

Außerdem ist es auch programmiertechnisch sehr unelegant,
da man Unmengen Ifs braucht, um - in Abhängigkeit von den
Nachbarblöcken - die passende Grafik zu blitten...

---

Zitat:

---

Wie legst Du fest, wie in Abhängigkeit von der Steigung
die Landschaft (Grasnarbe) ändert ?

---

Zitat:

---

Oder zeigst Du einfach ein fertiges Bild an ? Das wäre
aber sehr speicherintensiv und eintönig...

---

Zitat:

---

3) Die grundsätzliche Grammatik zur Erzeugung von Pflanzen
Nur für die Zuordnung der 2D-Pflanze zu den entsprechenden
Feldindizes der Landschaft habe ich noch keine Idee.

---

Zitat:

---

Wie kann man z.B. ein einzelnes Blatt eines rekursiv
erzeugten Baumes einer x/y-Pos. zuordnen ?

---

Zitat:

---

Wie löst man Mehrdeutigkeiten durch ineinanderwachsende
Äste auf bzw. wie verhindert dies ?

---

Zitat:

---

Gibt es eine einfache Möglichkeit, einzelne Äste eines
Baumes abzuschneiden ?
Der eigtl. Wuchs hängt ja nur von der Anzahl der Iterationen
und den globalen Parametern (Winkel..., Grammatik) ab.

---

Zitat:

---

P.S.: Habe letztens ein ca. 15 Jahre altes Zufallstext-Prog von
AmigaBasic nach C umgesetzt. Geschwindigkeitsgewinn:
ca 160000 Prozent - natürlich bei identischer Hardware.
Geil !

---