Zitat:

---

Original von Kaesebroetchen:
P.s. Warum steigst du eigentlich nicht auf C um ? Dann könntest du dein Programm für alle Amiga-artigen System kompilieren.

---

Zitat:

---

Original von whose:
Bedeutet ja auch, daß Du MaxonBasic-Programme relativ problemlos unter OS4 laufen lassen kannst, was ich mir schon irgendwie dachte. OS4 ist, wie schon gesagt, enorm pingelig, was definitive Fehler angeht, Schludern ist da nicht mehr

Die Dateisuche kannst Du ja mal im Programmieren-Forum posten, dann kommen wir dem Problem sicher schnell auf die Spur

Also: weitermachen

---

Ich hab denn entsprechenden Abschnitt gerade gepostet. Ich denke auch, das der Bug da sich nicht lange verstecken kann.

Ich dachte wirklich bis jetzt immer, das für mich als MaxonBasic-Progger mir OS4 für immer verschlossen wäre. Aber dabei war das nur meine "Programmierweise". Na, da bin ich ja beruhigt.
--
http://www.alternativercomputerclub.de.vu

code:

---

DEFINT a-z
REM $INCLUDE Exec.bh
REM $INCLUDE DOS.bh
REM $INCLUDE Intuition.bh
LIBRARY OPEN "dos.library"
LIBRARY OPEN "intuition.library"
LIBRARY OPEN "exec.library"

CONST MaxSkins=200
CONST MaxEbenen=10:REM maximale Verzeichnisstiefe
CONST MaxDirs=100 :REM maximale Anzahl Verzeichnisse pro Verzeichniss

DIM Skin$(MaxSkins,1)
DIM DIR$(MaxEbenen,MaxDIRs),DIRCount(MaxDIRs),DirNr(MaxDIRs)

SCREEN 1,640,512,1,4
WINDOW 2,,,128,1

 ASkins=0
 FIBlock&=AllocVec&(FileInfoBlock_sizeof%,MEMF_PUBLIC&)
 DIR$(0,0)="Daten"
 DIRCount(0)=0
 DIRNr(0)=0
 Ebene=1
 WHILE Ebene
  v$=""
  FOR x=0 TO Ebene-1
   v$=v$+DIR$(DIRCount(x),x)
   IF x<Ebene-1 THEN v$=v$+"/"
  NEXT
  PRINT v$
  FileLock&=Lock&(SADD(v$+CHR$(0)),ACCESS_READ&)
  IF FileLock&=0 THEN
   Var$=STR$(IOErr$)
   PRINT "Fehler_SkinlisteLaden"
   Ebene=0
  ELSE
   Status=Examine(FileLock&,FIBlock&)
   WHILE Status
    Status=ExNext(FileLock&,FIBlock&)
    IF Status THEN
     FileName$=PEEK$(FIBlock&+fib_FileName%)
     IF PEEKL(FIBlock&+fib_DirEntryType%)>0 THEN
      PRINT "(verzeichniss)"FileName$
      INCR DIRNr(Ebene)
      DIR$(DIRNr(Ebene),Ebene)=FileName$
     ELSE
      PRINT"(file)"FileName$
      IF RIGHT$(FileName$,4)=".dat" THEN
       INCR ASkins
       Skin$(ASkins,0)=MID$(FileName$,1,LEN(FileName$)-4)
       Skin$(ASKins,1)=v$+"/"
      END IF
     END IF
    END IF
   WEND
   UnLock FileLock&
  END IF

WeitereDIRs:
  IF DIRCount(Ebene)<DIRNr(Ebene)THEN
   INCR DIRCount(Ebene)
   INCR Ebene
  ELSE
   WHILE Ebene
    DIRNr(Ebene)=0
    DIRCount(Ebene)=0
    DECR Ebene
    IF Ebene THEN IF DIRCount(Ebene)<DIRNr(Ebene)THEN WeitereDIRs
   WEND
  END IF
 WEND
 IF ASkins=0 THEN PRINT "Fehler_SkinlisteKeine"
 IF ASkins>1 THEN
  REM Sortiere Skinliste
  FOR x=1 TO ASkins-1
   t$=Skin$(x,0):z=x
   FOR y=x+1 TO ASkins
    IF Skin$(y,0)<t$ THEN t$=Skin$(y,0):z=y
   NEXT
   SWAP Skin$(x,0),Skin$(z,0)
   SWAP Skin$(x,1),Skin$(z,1)
  NEXT
 END IF
 
FreeVec FIBlock&

---

Zitat:

---

Original von whose:
@Ralf27:

Also, MaxonBasic ist ausnahmsweise mal unschuldig Es läuft unter OS4, hat allerdings noch kleinere Probleme mit den Koordinaten der Grafik, vermutlich wegen der geänderten Fenster-Parameter wie Randbreite u.Ä.

---

Zitat:

---

Man kanns aber spielen und soweit funktioniert alles prima und ohne weitere Reaper

---

Das freut mich sehr zu lesen.
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von RetroMan:
Habs gerade mal unter AmigaSys auf meinem A4000D ausprobiert, hab nix zu meckern
--
-> http://www.german-amiga-community.de <-

---

Das liest man gerne.
Auf einem Classic-System scheint es auch keine größeren Probleme zu geben, allerdings macht die Dirscan-Routine wohl etwas Probleme, gerade auf OS4.
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von whose:
Ich bin zwar selbst noch nicht zum Testen gekommen, aber ich würde anhand des Crashlogs nicht unbedingt MaxonBasic die Schuld zuschieben. Der letzte Eintrag beim 68k-StackTrace zeigt an, daß der Hit irgendwo aus einer der Funktionen der dos.library resultiert. Das dürfte auch einen Grund haben, den es meiner Meinung nach zu erforschen gilt.

---

Zitat:

---

Um nicht doch wegen eines durchaus möglichen Fehlers von MaxonBasic unendlich lang danach zu suchen könntest Du ja ein kurzes Testprogramm bauen, welches einfach nur einen kurzen Text z.B. mittels Printf() ausgibt (ein dos.library-Makro normalerweise, keine Ahnung, ob MaxonBasic das auch zur Verfügung stellt).

---

Zitat:

---

Wenn das unter OS4 tut, dann kommt der Fehler bei WBSudoku mit hoher Wahrscheinlichkeit doch aus dem Programm selbst.

OS4 fängt die "sonst üblichen" Programmierfehler wesentlich genauer, als OS3 mit den üblichen Debug-Tools oder MOS es tun. Ein Lesezugriff über den eigenenen Speicher hinaus beispielsweise fällt unter OS3/MOS gar nicht auf, unter OS4 zieht das einen fortsetzbaren DSI nach sich, und wenns nur ein Byte ist, das man zu viel liest. Natürlich "knallt" es auch sofort, wenn man irgendwo unerlaubte Parameter wie Null-Zeiger u.Ä. übergibt, oder Zeiger auf Speicher, in dem man eigentlich nichts zu suchen hat

---

Also, wenn der Fehler aus der dos.lib kommt, dann dürfte wirklich die rekrusive Verzeichnissdurchsuchung schuld sein.
Ok, zum testen könnte ich ja mal eine Version *ohne* diese routine anbieten, um es mit OS4 zu testen. Wer möchte ne Testversion?
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von DaxB:
@Ralf27:
Wenn du dich noch an meinen Bugreport erinnerst, war hier unter OS3.1 es so, das beim starten MuForce Hits (ich glaub endloss wars) ausgegeben wurden. Das fing aber erst ab einer bestimmten Version an.

---

Zitat:

---

Original von thomas:
@Ralf27:

Die ganzen Sachen wie PDTA_ClassBitMap, PDTA_DestBitMap, PDTA_UseFriendBitMap und PDTA_FreeSourceBitMap solltest du gleich wieder vergessen. Unter AFA OS z.B. funktioniert das z.B. gar nicht.

An die benutzbare Bitmap kommst du mit PDTA_BitMap. Und um die Originalgrafik zu bekommen, mußt du die Datei nochmal öffnen, diesmal ohne PDTA_Screen und mit PDTA_Remap,FALSE.

Gruß Thomas

--
Email: thomas-rapp@web.de
Home: thomas-rapp.homepage.t-online.de/

---

code:

---

IF GetBitMapAttr&(scrbitmap&,BMA_FLAGS&) AND BMF_STANDARD& THEN a&=FALSE& ELSE a&=TRUE&
  TAGLIST tagsl&, _
  DTA_GroupID&, GID_PICTURE&, _
  PDTA_FreeSourceBitMap&, FALSE&, _
  PDTA_DestMode&, PMODE42&, _
  PDTA_UseFriendBitMap&, a&, _
  PDTA_Remap&, TRUE&, _
  PDTA_Screen&, scr&, _
  TAG_END&
  bild&=NewDTObjectA&(SADD(GFX$(n,1)+CHR$(0)),tagsl&)
  IF bild& THEN
   TAGLIST tagsl&, _
   DTM_PROCLAYOUT&, 0, TRUE&, _
   TAG_END&
   IF DoDTMethodA&(bild&,0,0,tagsl&) THEN
    TAGLIST tagsl&, _
    PDTA_ClassBitMap&, VARPTR(obitmapMask&), _
    PDTA_DestBitMap&, VARPTR(obitmapBild&), _
    DTA_NominalHoriz&, VARPTR(oBreite&), _
    DTA_NominalVert&, VARPTR(oHoehe&), _
    TAG_END&
    junk=GetDTAttrsA(bild&,tagsl&)
 ...

---

Ich dachte mit PDTA_FreeSoureBitmap FALSE wird die Originalbitmap nicht freigegeben (was auf default ist). Aber wie komme ich denn an die Originalbitmap, ohne das ich das Bild zweimal(einmal mit Remap und einem ohne) aufrufen muß?

Ein Aufruf mit GetDTAttrsA() vor DoDTMethodA() um die ClassBitmap zu ermitteln bringt mir auch nix (NULL). Bzw. bringe ich bestimmt wieder einiges durcheinander.
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von thomas:
@Ralf27:

Schau dir mal cybergraphics.library/ExtractColor an.

Gruß Thomas

--
Email: thomas-rapp@web.de
Home: thomas-rapp.homepage.t-online.de/

---

code:

---

...
  TAGLIST tagsl&, _
  DTA_GroupID&, GID_PICTURE&, _
  PDTA_FreeSourceBitMap&, TRUE&, _
  PDTA_DestMode&, PMODE42&, _
  PDTA_UseFriendBitMap&, TRUE&, _
  PDTA_Remap&, TRUE&, _
  PDTA_Screen&, scr&, _
  TAG_END&
  bild&=NewDTObjectA&(SADD(GFX$(n,1)+CHR$(0)),tagsl&)
  IF bild& THEN
   TAGLIST tagsl&, _
   DTM_PROCLAYOUT&, 0, TRUE&, _
   TAG_END&
   IF DoDTMethodA&(bild&,0,0,tagsl&) THEN
    TAGLIST tagsl&, _
    PDTA_DestBitMap&, VARPTR(obitmapBild&), _
    DTA_NominalHoriz&, VARPTR(oBreite&), _
    DTA_NominalVert&, VARPTR(oHoehe&), _
    TAG_END&
    junk=GetDTAttrsA(bild&,tagsl&)

    bitmapMask&=AllocBitMap&(oBreite&,oHoehe&,1,0,0)
    IF bitmapMask&=0 THEN
     Fehler=FehlerInit_Maske
    ELSE
     Farbtiefe=GetBitMapAttr&(obitmapBild&,BMA_DEPTH&)
     IF Farbtiefe=0 THEN
      Fehler=FehlerInit_Masketiefe2
     ELSE
      REM Maske selbst generieren
      bb&=16*((oBreite&+15)16)
      buf&=AllocVec&(200+bb&*oHoehe&,MEMF_PUBLIC&)
      IF buf& THEN
       bitmaptmp&=AllocBitMap&(oBreite&,1,Farbtiefe,0,0)
       IF bitmaptmp& THEN
        rp1&=buf&
        rp2&=buf&+100
        InitRastPort rp1&
        POKEL rp1&+RastPortBitMap%,obitmapBild&
        InitRastPort rp2&
        POKEL rp2&+RastPortBitMap%,bitmaptmp&
        junk=ReadPixelArray8(rp1&,0,0,oBreite&-1,oHoehe&-1,buf&+200,rp2&)
        f=PEEK(buf&+200):REM Die Farbnummer vom ersten Pixel oben links (0,0)
        FOR y=0 TO oHoehe&-1
         t&=buf&+200+y*bb&
         FOR x=0 TO oBreite&-1
          POKE t&,-(PEEK(t&)<>f)
          INCR t&
         NEXT
        NEXT
        POKEL rp1&+RastPortBitMap%,bitmapMask&
        junk=WritePixelArray8(rp1&,0,0,oBreite&-1,oHoehe&-1,buf&+200,rp2&)
        FreeBitMap bitmaptmp&
        b=oBreite&:IF b>fx2-fx1 THEN b=fx2-fx1
        h=oHoehe&:IF h>fy2-fy1 THEN h=fy2-fy1
        BltMaskBitMapRastPort obitmapBild&,(oBreite&-b)2,(oHoehe&-h)2,rp&,xStart+(fx2-fx1-b)2,yStart+(fy2-fy1-h)2,b,h,&He0,PEEKL(bitmapMask&+8)
 ...

---

Zitat:

---

Original von thomas:

Zitat:

---

Zitat:

---

Warum schreibst du es einmal so und einmal so ?

---

Ich blitte in dieser Unterroutine alles in einen nicht sichtbaren Puffer und erst am schluss blitte ich das Feld auf den Bildschirm. Das verhindert das störende Flackern, wenn ich mehrere Bilder mit einer Maske übereinanderblitte.

---

Nein, ich meinte, warum rufst du die eine Routine als Unterprogramm und die andere als Funktion (junk = ...) ?

Gruß Thomas

--
Email: thomas-rapp@web.de
Home: thomas-rapp.homepage.t-online.de/

---

Zitat:

---

Original von thomas:

Zitat:

---

dann geht einfach alles schief

---

Hast du mal einen Screenshot ?

---

Zitat:

---

Zitat:

---

scr&+ScreenBitMap% ist auch nicht das feine vom Ei. Hab ich eben gesehn, werd ich auch umändern.

---

Unbedingt. Ganz besonders, wenn du mit Grafikkarten-Bitmaps arbeitest.

---

Zitat:

---

Zitat:

---

PDTA_DestMode&, PMODE42&,

---

Da solltest du PMODE_V43 nehmen. Denn mit V42 bekommst du nur AGA-Kompatible Bitmaps, aber du möchtest ja auf dem Screen mit mehr als 8 Bits arbeiten.

Zitat:

---

PDTA_UseFriendBitMap&, a&,

---

Das kannst du dir sparen. Wenn du einen Screen angibst, wird ohnehin das Pixelformat des Screens genommen (bei V43).

Zitat:

---

PDTA_DestMode&, PMODE42&, _
[...]

Hab ich auch mal weg gelassen, bringt auch nichts.

---

Klar. V42 ist Default. Weglassen bringt keine Änderung.

---

Zitat:

---

Zitat:

---

Mask&=PEEKL(bitmapMask&+8):REM <- hier bin ich mir nicht so ganz sicher, ob es "legal" ist

---

Anders geht's ja nicht.

---

Ok, das freut mich zu lesen.

Zitat:

---

Zitat:

---

BitmapBuffer&=AllocBitMap&(b,h,Farbtiefe,BMF_INTERLEAVED&,scr&+ScreenBitMap%)

---

BMF_INTERLEAVED ist Blödsinn an der Stelle IMHO. Du solltest BMF_MINPLANES setzen, um CGX mitzuteilen, daß du es ernst meinst und eine Truecolor-Bitmap möchtest. P96 ist das egal, aber CGX besteht darauf. Und natürlich auch hier wie überall scr->RastPort.BitMap benutzen.

---

Zitat:

---

Zitat:

---

BltMaskBitMapRastport BitMapBild&,x3,y3,Bufferrp&,0,0,b,h,&He0,Mask&
END IF
junk=BltBitMapRastport(BitmapBuffer&,0,0,rp&,xStart+x2,yStart+y2,b,h,&HC0)

---

Warum schreibst du es einmal so und einmal so ?

---

Ich blitte in dieser Unterroutine alles in einen nicht sichtbaren Puffer und erst am schluss blitte ich das Feld auf den Bildschirm. Das verhindert das störende Flackern, wenn ich mehrere Bilder mit einer Maske übereinanderblitte.


Ich bin mit dem ganzen soweit sehr zufrieden, allerdings hab ich da noch eine kleine Unterroutine die immer noch nicht so ganz will. Diese generiert die Maske selbst aus dem Bild und... nunja, es läuft überall außer auf einem Customchip-WB-Screen. Ich muß mir das nochmal genauer ansehn. Ich hoffe, das ich auch mal selbst drauf komme.
--
http://www.alternativercomputerclub.de.vu

code:

---

IF GetBitMapAttr&(scr&+ScreenBitMap%,BMA_FLAGS&) AND BMF_STANDARD& THEN a&=FALSE& ELSE a&=TRUE&
 rem scr&+ScreenBitMap% ist auch nicht das feine vom Ei. Hab ich eben gesehn, werd ich auch umändern.
 TAGLIST tagsl&, _
 DTA_GroupID&, GID_PICTURE&, _
 PDTA_DestMode&, PMODE42&, _
 PDTA_FreeSourceBitMap&, TRUE&, _
 PDTA_UseFriendBitMap&, a&, _
 PDTA_Remap&, TRUE&, _
 PDTA_Screen&, scr&, _
 TAG_END&
 obild&=NewDTObjectA&(SADD(DatenSatzPfad$+DatenSatz$+".pic"+CHR$(0)),tagsl&)
 IF obild& THEN
  TAGLIST tagsl&, _
  DTM_PROCLAYOUT&, 0, TRUE&, _
  TAG_END&
  IF DoDTMethodA&(obild&,0,0,tagsl&) THEN
   bitmapBild&=0
   oBreite&=0
   oHoehe&=0
   TAGLIST tagsl&, _
   PDTA_DestBitMap&, VARPTR(bitmapBild&), _
   DTA_NominalHoriz&, VARPTR(oBreite&), _
   DTA_NominalVert&, VARPTR(oHoehe&), _
   TAG_END&
   junk=GetDTAttrsA(oBild&,tagsl&)
   Farbtiefe=GetBitMapAttr&(bitmapBild&,BMA_DEPTH&)
   IF Farbtiefe=0 THEN Fehler=FehlerInit_Masketiefe2
  ELSE
   Fehler=FehlerInit_runterrechnen
  END IF
 ELSE
  Fehler=FehlerInit_SkinBildladen
 END IF

---

code:

---

bitmapMask&=AllocBitMap&(oBreite&,oHoehe&,1,0,0)
 IF bitmapMask&=0 THEN
  Fehler=FehlerInit_Maske
  GOTO FehlerAufbau
 END IF
 Mask&=PEEKL(bitmapMask&+8):REM <- hier bin ich mir nicht so ganz sicher, ob es "legal" ist
REM öffne Maske
  TAGLIST tagsl&, _
  DTA_GroupID&, GID_PICTURE&, _
  PDTA_DestMode&, PMODE42&, _
  PDTA_FreeSourceBitMap&, TRUE&, _
  PDTA_Remap&, FALSE&, _
  TAG_END&
  omask&=NewDTObjectA&(SADD(DatenSatzPfad$+DatenSatz$+".mask.pic"+CHR$(0)),tagsl&)
  IF omask& THEN
   TAGLIST tagsl&, _
   DTM_PROCLAYOUT&, 0, TRUE&, _
   TAG_END&
   IF DoDTMethodA&(omask&,0,0,tagsl&) THEN
    obitmapMask&=0
    x&=0
    y&=0
    TAGLIST tagsl&, _   
    PDTA_DestBitMap&, VARPTR(obitmapMask&), _
    DTA_NominalHoriz&, VARPTR(x&), _
    DTA_NominalVert&, VARPTR(y&), _
    TAG_END&
    junk=GetDTAttrsA(omask&,tagsl&)
    t=GetBitMapAttr(obitmapMask&,BMA_DEPTH&)
    IF x&=oBreite& AND y&=oHoehe& AND t=1 THEN
     REM Interleave-Bitmap erst mal konverieren
     junk=BltBitMap(obitmapMask&,0,0,bitmapMask&,0,0,x&,y&,&Hc0,&Hff,0)
    ELSE
     Fehler=FehlerInit_Masketiefe1
     IF t=0 THEN Fehler=FehlerInit_Masketiefe2
     IF t>1 THEN Fehler=FehlerInit_Masketiefe3
    END IF
   ELSE
    Fehler=FehlerInit_Maskebild
   END IF
   DisposeDTObject omask&:omask&=0
  ELSE
   Fehler=FehlerInit_Maskeoeffnen
  END IF

---

code:

---

BitmapBuffer&=AllocBitMap&(b,h,Farbtiefe,BMF_INTERLEAVED&,scr&+ScreenBitMap%)
 IF BitmapBuffer& THEN
  Bufferrp&=AllocVec&(RastPort_sizeof%,MEMF_PUBLIC&)
  IF Bufferrp& THEN
   InitRastPort Bufferrp&
   POKEL Bufferrp&+RastPortBitMap%,BitmapBuffer&
  ELSE
   Fehler=FehlerInit_BufferRP
  END IF
 ELSE
  Fehler=FehlerInit_Buffer
 END IF

---

code:

---

BltMaskBitMapRastport BitMapBild&,0,a*h,rp&,xStart+aax,yStart+aay+a*h,b,h,&He0,Mask&

---

code:

---

SUB ZeigeFeld(BYVAL x,BYVAL y)
 SHARED asx,asy,fx1,fy1,b,h,rp&
 SHARED BitmapBild&,Mask&
 SHARED BitMapBuffer&,Bufferrp&
 SHARED xStart,yStart
 SHARED TCPCursorX,TCPCursorY
 STATIC y1,x2,y2,x3,y3,z,junk
 x2=asx+(x-1)*b
 y2=asy+(y-1)*h
 y1=feld(x,y)*h
 junk=BltBitMapRastport(BitMapBild&,Fx1+x2,Fy1+y2,Bufferrp&,0,0,b,h,&HC0)
 IF y1 THEN
  IF feldAkt(x,y,2) AND opt(1)=1 THEN
   REM Symbol Fest
   BltMaskBitMapRastport BitMapBild&,b+b,y1,Bufferrp&,0,0,b,h,&He0,Mask&
  ELSE
   REM Symbol Frei
   BltMaskBitMapRastport BitMapBild&,0,y1,Bufferrp&,0,0,b,h,&He0,Mask&
  END IF
 END IF
 IF feldAkt(x,y,3) THEN
  REM Eindeutig
  z=feldAkt(x,y,3)
  IF SkinOpt(13)THEN z=1
  x3=3*b
  y3=z*h-h
  IF opt(15) THEN
   IF z>0 AND AnimStripFeld(z,0)=1 THEN
    x3=AnimStripFeld(z,7)
    y3=AnimStripFeld(z,8)
   END IF
  END IF
  BltMaskBitMapRastport BitMapBild&,x3,y3,Bufferrp&,0,0,b,h,&He0,Mask&
 END IF
 IF feldAkt(x,y,1)THEN
  REM Auswahl
  x3=b
  y3=0:IF SkinOpt(12) THEN y3=y1
  IF AnimStripFeld(5,0)=1 AND opt(15)=1 THEN
   x3=AnimStripFeld(5,7)
   y3=AnimStripFeld(5,8)
  END IF
  BltMaskBitMapRastport BitMapBild&,x3,y3,Bufferrp&,0,0,b,h,&He0,Mask&
 END IF
 IF TCPCursorX=x AND TCPCursorY=y AND SkinOpt(21)>0 THEN
  x3=SkinOpt(21)
  y3=SkinOpt(22)
  IF AnimStripFeld(6,0)=1 AND opt(15)=1 THEN
   x3=AnimStripFeld(6,7)
   y3=AnimStripFeld(6,8)
  END IF
  BltMaskBitMapRastport BitMapBild&,x3,y3,Bufferrp&,0,0,b,h,&He0,Mask&
 END IF
 junk=BltBitMapRastport(BitmapBuffer&,0,0,rp&,xStart+x2,yStart+y2,b,h,&HC0)

 REM Testweise
 IF TCPCursorX=x AND TCPCursorY=y AND SkinOpt(21)=0 THEN
  xBox xStart+x2+2,yStart+y2+2,xStart+x2+b-2,yStart+y2+h-2
 END IF
END SUB

---

Ich hoffe, der Code ist nicht zu furchtbar. Ich lerne aber gerne dazu und hoffe das ich besser werde.
--
http://www.alternativercomputerclub.de.vu

[ Dieser Beitrag wurde von Ralf27 am 21.01.2008 um 00:04 Uhr geändert. ]

[ Dieser Beitrag wurde von Ralf27 am 21.01.2008 um 00:40 Uhr geändert. ]

Zitat:

---

Original von Holger:

Zitat:

---

Original von Ralf27:
Hab ich. In der Vollversion sind gerade mal die ganzen Includes dabei, ein paar Demos und fertig.

---

Sind die Demos in der Vollversion wenigstens im Basic-Sourcecode? Bei den "Demos" der Version aus dem Aminet wusste ich irgendwie nicht, was sie denn eigentlich demonstrieren sollten...

---

Zitat:

---

Original von DaxB:
@Ralf: Am besten du lässt dir mal die verschiedenen Möglichkeiten ausrechnen (Preis).

Was den Schall betrifft ist wohl Kalksandstein am besten wegen der hohen Dichte. Allerdings sollte man dann auch den evtl. entstehenden Körperschall berücksichtigen. Den hat man bei einer Leichtbauwand so gut wie gar nicht.

---

Zitat:

---

Original von Holger:
Schon mal den Liefer"umfang" der Demo-Version angesehen?

---

Zitat:

---

Man könnte da bestimmt so einiges optimieren, vielleicht wird es ja auch. Man kann relativ leicht das beobachtete Verhalten nachbilden, ohne echte double-Berechnungen anstellen zu müssen. Allerdings bezweifle ich, angesichts der restlichen Qualität von MBasic, dass das passiert.

---

Es ist halt sehr schade das man am MBasic-Compiler nix machen kann und auch nix machen darf.

Nochmal wegen denn Variablen und der Berechnung:
Wenn man mit Integer rechnet, dann sind die Berechnungen wesentlich schneller. Somit denke ichh (ja, is wieder eine Vermutung, böse ), das MB dann intern das ganze anderst berechnet. Ist zwar dann schneller, aber insgesamt noch recht langsam.

Ich kann schon verstehn das MaikG sich jetzt mit C versucht. Vom Speed her liegen da Welten.
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von dandy:
Ähem - ist jetzt wahrscheinlich 'ne blöde Frage - aber was ist "AmigaNet Center"?

Hab' ich ja noch nie von gehört...

---

Da ist wohl die Amigawelt größer als man denkt.
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von Holger:
Irgendwie kehrt alles immer wieder. Das immer wiederkehrende Thema der unzulässigen Annahmen, und dann hatten wir auch das Thema "welche Operation liefert welchen Datentyp zurück" auch erst vor relativ kurzer Zeit, damals mit der Division.

Die Annahme, dass es sich hier um ULONG handelt, beruht worauf?

---

Zitat:

---

Naheliegender ist wohl, dass es sich um einen Floating-Point Typ handelt, wie es ihn in MBasic auch gibt. In dem führt Basic alle Berechnungen durch (hat mal irgendwer gesagt, MBasic wäre "fast so schnell wir C"?...)

---

Zitat:

---

Deshalb kannst Du auch
PRINT 2&^32&*100&
schreiben und bekommst das richtige Ergebnis angezeigt. Was das wohl für ein Datentyp ist, SUPERLONG?
(Probier mal PRINT 2&^32&*100000000&)

---

Es gibt aber auch noch LONG LONG, aber ich bezweifle irgendwie, das MBasic das kennt.

Zitat:

---

Und deshalb gibt es auch keine Warnung, wenn Du
a&=2&^32&
schreibst. Schließlich hast Du den Compiler explizit gesagt, dass das Rechenergebnis nach LONG konvertiert werden soll...

---

Zitat:

---

Original von eliotmc:
Also mit Multiface&Co ist sicherlich mehr drin,
aber mit der OnBoard Seriell habe ich nie mehr als
19600 baud geschafft auf meinem A1200/030 mit 8n1.device.
Das originale Device hängt sich nach einer Zeit auf mit Term.

---

Zitat:

---

Twin kannte ich noch garnicht, ich habe es im Aminet
gesucht, bin aber nicht fündig geworden?!

---

Keine Ahnung wo ich damals Twin herbekommen habe. Kann es dir ja mal senden. Das bringt aber die serielle mit 330kbaud richtig zum Kochen Sogar mit einem 030er, denn einen 030er hatte damals mein kleiner Amiga.
--
http://www.alternativercomputerclub.de.vu

[ Dieser Beitrag wurde von Ralf27 am 13.01.2008 um 15:39 Uhr geändert. ]