Zitat:

---

Original von thomas:
Die Palette vom Screen bekommst du, indem du die Screen-Bitmap als Friend bei AllocBitMap angibst. Allerdings erbt die neue Bitmap dann nicht nur die Palette, sondern auch das Pixelformat der Screen-Bitmap.

---

Zitat:

---

Aufräumen mußt du alles in ungekehrter Reihenfolge.

---

Zitat:

---

Natürlich mußt du nach jeder Funktion auch prüfen, ob es geklappt hat und nur das freigeben, was angelegt wurde.

---

code:

---

Function.l image_initrastport{image.l}
SHARED imagedat()
succ.l = False
If rastport_ptr Then image_free_rastport{image}
ARGBbitmap_ptr = AllocBitMap_(img_width,img_height,24,#BMF_MINPLANES|#BMF_SPECIALFMT|#F_ARGB32,0)
If ARGBbitmap_ptr
  rastport_ptr = AllocMem_(SizeOf.RastPort,#MEMF_CLEAR)
  If rastport_ptr
    InitRastPort_ rastport_ptr
    rastport_ptrLayer  = 0
    rastport_ptrBitMap = ARGBbitmap_ptr
    layerinfo_ptr       = NewLayerInfo_
    rastport_ptrLayer  = layerinfo_ptrtop_layer
    cliprect.RectangleMinX = 0
    cliprect.RectangleMinY = 0
    cliprectMaxX = img_width-1
    cliprectMaxY = img_height-1
    *new_region.Region = NewRegion_
    If *new_region
      If OrRectRegion_(*new_region, &cliprect)

!!! GEHT NICHT, WEIL rastport_ptrLayer=NULL !
   ;     *old_region.Region = InstallClipRegion_(rastport_ptrLayer, *new_region)
      End If
    End If
    succ=-1
    raw_ptr.l = image_get_rawptr{image}
    WritePixelArray_ raw_ptr,0,0,img_width*4,rastport_ptr,0,0,img_width,img_height,#RECTFMT_ARGB

  Else
    error {"image_initrastport{}: Unable to init rastport !"}
  End If
Else
  error {"image_initrastport{}: Unable to init ARGB bitmap !"}
End If
Function Return succ
End Function

---

Zitat:

---

>Um es 1:1 umzusetzen, fehlt dir noch der Rahmen.
>Hier findest du die fft.inlcude als BB2 code und als ASCII:
>http://www.hd-rec.de/Archive/fft_test.lha

Da ist ja noch viel mehr.

---

Du brauchst nicht alles, nur die Funktionen die ich dir hier als Beispiel mini-Quellcode gepostet habe, und einige, die von diesen Funktioen aufgerufen wurden.
Da sind halt noch andere Funktionen drin, z.B. für Stereo, für inverse FFT, Hamming window, cos/sin <=> magnitude/phase und ein build-in Demo, was dir ein paar Coeffizienten berechnet.

Also wenn dich das aus der Bahn wirft, sorry, lass es lieber sein mit dem Programmieren. So wie du dich hier anstellst frage ich mich ernsthaft, wie du den Rest hinbekommen hast.

Zitat:

---

Mein zeugs in Amiblitz zu wandeln ist noch komplizerter,
immerhin ist da Sprachausgabe(nicht Translator), Spracherkennung,
Sensoranalysen, Abwehrsteuerung usw. drin.

---

Zitat:

---

oder willst du das Bubblebobble oder Ich dir eine Funktion schreiben, die nur für Deinen Zweck gedacht ist?.

---

Zitat:

---

Nee irgendwas mußt du auch schon machen, sonst brauchst du garnicht erst Programmieren.

---

code:

---

ffthandle.l = fft_init{order}
If ffthandle
  fft_sethanning{ffthandle}

  ...

  ; so oft aufrufen wie du willst:
  fft_do_mono{ffthandle,sourcebuffer,destbuffer}

  ...

  fft_free{ffthandle)
End If

---