Zitat:

---

Zitat:

---

Was dazwischen geht nicht, weil du sonst ein Bild während dem
Screenabtasten switchen würdest.
Das ist ja gerade der Sinn des ganzen. 50Hz auf einem TFT Monitor gehen nicht ohne Flackern/Versatz.

---

Ich sprach auch von fps, das muß nicht notwendigerweise mit der Bildwiederholfrequenz identisch sein.

---

Zitat:

---

Zitat:

---

Aber wenn du sagst, es hat auf einem Graka Screen funktioniert, werde ich das mal genauer versuchen.

---

Es funktioniert definitiv. Ich kann Dir das kleine Ding auch mal zuschicken, samt C-Sourcen.

---

Zitat:

---

Zitat:

---

Ein einfaches ChangeVPBitMap erzwingt jedenfalls halbe Bildschirm Hz zahl, wenn man die Signale nicht abholt.
Flackerfrei ist es allerdings nicht, weil es nicht 100% synchron ist.

---

Das dürfte wohl daher kommen, weil Dein Programm den Buffer-Tausch nicht synchron erledigt. So, wie ich die Doku dazu verstanden habe, achtet Das System darauf, daß der Bitmap-Wechsel in der Austastlücke stattfindet, sofern das entsprechende Signal beachtet wird. Ansonsten wird der Tausch "brutal" durchgezogen, was in den seltensten Fällen irgendwie synchron abläuft.

---

code:

---

Function.l image_saveDT {image.l,filename.s}
succ.l=False
;*newbm.BitMap = AllocBitMap_(320,200,8,#BMF_CLEAR,0)
*newbm.BitMap =ARGBbitmap_ptr ; kommt von meinem ARGB Bild

w.l = GetBitMapAttr_(*newbm,#BMA_WIDTH)
h.l = GetBitMapAttr_(*newbm,#BMA_HEIGHT)
d.l = GetBitMapAttr_(*newbm,#BMA_DEPTH)

If d <= 8 Then ncols.l = 1 LSL d : Else ncols = 0

*DTPic._Object = NewDTObjectA_ (0,Tags(#DTA_SourceType,#DTST_RAM,@@
                                       #PDTA_DestMode,#PMODE_V43,@@
                                       #DTA_GroupID,#GID_PICTURE,@@
                                       #PDTA_Remap,0,@@
                                       #PDTA_ModeID,0,@@
                                       #PDTA_NumColors,ncols,@@
                                       #PDTA_BitMap,*newbm)   )
If *DTPic
  GetDTAttrsA_ *DTPic,Tags(#PDTA_BitMapHeader,&*bmhdp.BitMapHeader )
  If *bmhdp
    *bmhdpbmh_Width  = w    
    *bmhdpbmh_Height = h
    *bmhdpbmh_Depth  = d
  End If

  ; ermitteln der Farben
  If ncols
    GetDTAttrsA_ *DTPic,Tags(#PDTA_ColorRegisters,&cmap.l,#PDTA_CRegs,&cregs.l)
    For i.l = 3*ncols-1 To 1 Step -1
      Poke.l cregs+i*4 , 128 LSL 24
      Poke.b cmap +i   , 128
    Next
  EndIf

  fh.l = Open_ (&filename.s,#MODE_NEWFILE)
  If fh
      DTMW.dtWriteMethodID            = #DTM_WRITE
      DTMWdtw_GInfo           = 0
      DTMWdtw_FileHandle      = fh
      DTMWdtw_Mode            = #DTWM_IFF
      DTMWdtw_AttrList        = 0
      succ = DoDTMethodA_(*DTPic,0,0,&DTMW)
 ;     succ = DoMethodA (*DTPic,&DTMW)
      Close_ fh
      If succ = False
        error {"Unable to write IFF !"}
        ;DeleteFile_ &filename.s
      EndIf
    EndIf
    DisposeDTObject_ *DTPic
    ARGBbitmap_ptr = 0 ; hack, because DisposeDTObject frees our bitmap!
Else
  error {"Unable to create Datatype Object out of the bitmap !"}
EndIf
Function Return succ
End Function

---