Zitat:

---

Original von DrNOP:
Naja, 50l ist ja jetzt nicht gerade nix. Welchen Einsatzzweck hat die Flasche denn? Und was wiegt die volle Flasche? Ich denke bis jetzt schon, daß 14kg Unterschied im Bereich des Möglichen liegt.

Wobei du die Flasche ja nie komplett leer bekommst und die 14kg für 0°C gerechnet sind, nicht für 20°C.

---

code:

---

Fehler: 1030 - Got error 127 from table handler

---

Zitat:

---

Original von Maja:

Zitat:

---

Original von Ralf27:
Zja, wer hätte das gedacht, aber eben ist mir aufgefallen das bei einer alten Alf-Folge ein A2000 zu sehn ist.

---

Sorry, aber IMHO keine Senstation, wenn da ein Amiga zu sehen ist. Alf wurde von 1986 bis 1990 produziert.

Wenn ein Blatt wie Computer BILD 2010 über Amiga bereichtet hingegen schon.
--
** Tippfehler sind kostenlos und dürfen unbegrenzt an Dritte weitergegeben werden. **

---

Zitat:

---

Original von Holger:
Mir ist gerade aufgefallen, dass Du ja jetzt nach HAM konvertierst, also sieht dann Code inzwischen wohl anders aus, als am Anfang geschrieben. Musst Du mal posten, um herauszufinden, wie man diesen noch optimieren kann.

--
Good coders do not comment. What was hard to write should be hard to read too.

---

code:

---

LIBRARY"dos"
DECLARE FUNCTION xOpen&LIBRARY
LIBRARY"exec"
DECLARE FUNCTION AllocVec&LIBRARY
LIBRARY"graphics"
SCREEN 1,800,600,8,1,&H59824:REM 2048
WINDOW 2,,,128,1
 
 REM rgb, 5,6,5, max 32,64,32
 h&=xOpen&(SADD("cache:rgb16.test"+CHR$(0)),1005):IF h&=0 THEN Ende
 l&=800&*600&*2&
 mem&=AllocVec&(l&,0):IF mem&=0 THEN Ende
 xRead h&,mem&,l&
 xClose h&:h&=0
 rp&=WINDOW(8)
 CONST memsp&=800:REM memsp&=((800+15)16)*16
 t#=TIMER
 p&=0
 FOR y=0 TO 599
  ar=200:ag=200:ab=200
  FOR x=0 TO 799
   f=PEEKW(mem&+p&+p&)
   r=f>>11:REM r=(f AND &hF800)>>11
   g=(f AND &h7E0)>>5
   b=f AND 31
   u=ABS(ar-r)*2:m=1
   ug=ABS(ag-g)
   IF ug>u THEN u=ug:m=2
   IF ABS(ab-b)*2>u
    ab=b:f=64+b+b
   ELSE 
    IF m=1 THEN ar=r:f=128+r+r ELSE ag=g:f=192+g
   END IF
   POKE mem&+p&,f
   INCR p&
  NEXT
 NEXT 
 WriteChunkyPixels rp&,0,0,799,599,mem&,memsp&
Ende:
 IF h& THEN xClose h&
 IF mem& THEN FreeVec mem&
 PRINT TIMER-t#

---

Z.b. bei der Rot-Berechung, da kann man sich ja was sparen.
Bei Rot und Grün mußte ich bei der Unterschiedsberechnung noch beide Werte verdoppen, da der Grün-Wert doppelt so groß werden kann.

Mann kann aber noch was rausnehmen, aber dann wird MBasic interesanterweise langsamer(!). Schaut euch mal die Variable m an. Die Schreit förmlich nach Streichung. Aber, mit dieser Vereinfachung wird MaxonBasic langsamer?!?
Mal folgender Codeauschnitt:

code:

---

...
   u=ABS(ar-r)*2
   ug=ABS(ag-g)
   IF ug>u THEN u=ug
   IF ABS(ab-b)*2>u
    ab=b:f=64+b+b
   ELSE 
    IF u=ug THEN ag=g:f=192+g ELSE ar=r:f=128+r+r
   END IF
 ...

---

code:

---

REM testweise auslesen von rgb16,
REM testbild=800*600 in 16bit, aber testweise nur 300*200 laden
SCREEN 1,320,200,8,1,2048
WINDOW 2,,,128,1
 REM rgb, 5,6,5, max 32,64,32
OPEN"cache:rgb16.test"FOR INPUT AS 1
 FOR y=0 TO 199
  t$=INPUT$(1600,1)
  ar=0:ag=0:ab=0
  FOR x=0 TO 299
   f&=PEEKW(SADD(t$)+x+x)
   r=(f& AND &hF800)>>11
   g=(f& AND &h7E0)>>5
   b=f& AND 31
   u=ABS(ar-r):m=1
   ug=ABS(ag-g)
   ub=ABS(ab-b)
   IF ug>u THEN u=ug:m=2
   IF ub>u THEN
    ab=b:f=64+b+b
   ELSE 
    IF m=1 THEN ar=r:f=128+r+r ELSE ag=g:f=192+g
   END IF
   PSET(x,y),f
  NEXT
 NEXT 
CLOSE

---

code:

---

REM testweise auslesen von rgb16,
REM ist total schwach und *nur* testweise
REM 20.08.10
REM testbild=800*600 in 16bit, aber testweise nur 300*200 laden
SCREEN 1,300,200,8,1
WINDOW 2,,,128,1
 FOR r=0 TO 5
  FOR g=0 TO 6
   FOR b=0 TO 5
    PALETTE r+g*6+b*42,r/5,g/6,b/5
   NEXT
  NEXT
 NEXT
 REM rgb, 5,6,5, max 32,64,32
 r=0:g=0:b=0
OPEN"cache:rgb16.test"FOR INPUT AS 1
 FOR y=0 TO 199
  t$=INPUT$(1600,1)
  FOR x=0 TO 299
   f&=PEEKW(SADD(t$)+x+x)
   r=(f& AND &hF800)>>11
   g=(f& AND &h7E0)>>5
   b=f& AND 31
   PSET(x,y),r6+(g10)*6+(b6)*42
  NEXT
 NEXT 
CLOSE

---

Zitat:

---

Original von analogkid:
Cool, mal wieder ein "Ich habe einen Amiga als Türstopper in einem Hollywood-Blockbuster gesehen"-Thread Mal schauen, wann Babylon 5 und Seaquest DSV wieder ausgegraben wird...

---

Na, die Szene würde ich gerne mal sehn. Belege? :-)
--
http://www.alternativercomputerclub.de.vu

Zitat:

---

Original von MaikG:
Genesis hat zwar Bugs aber das im alltäglichen gebrauch Hits auftauchen ist nicht der Fall. Bei einem USB->Ethernet adapter kann das vorkommen.

---

Zitat:

---

UnArc läuft hier ebenfalls ohne hit. Es gibt fälle da entpackt
UnArc Zip dateien welche klein viel größer also trash datei.
Ansonsten hab ich letztens ein 1 GB Archiv mit UnArc entpackt, kein Problem.

---

Zitat:

---

Richig bemerkbar macht sich RAWbinfo oder Amplifier welcher
nicht durch ein Iconclick gestartet wird.

Bei mir läuft Cyberguard ständig, wie es bei jedem Programmierer sein
sollte. Hat ein Programmierer sowas nicht muss er schon ziemlich
unfehlbar sein oder der Enduser bekommt es dann zu spüren

Wenn ich bedenke wenn auf Win ein Videoencoder nach einiger Zeit
beendet wird, wünschte ich mir Win hätte kein Speicherschutz vielleicht wäre es trotzdem weitergegangen und ich hätte jetzt ein Encodiertes Video.

---

Wären Programmierer unfehlbar, dann bräuchten wir keinen Speicherschutz.
--
http://www.alternativercomputerclub.de.vu