Amiga Dunyasi - Sayi 19 (Aralik 1991).pdf - Retro Dergi

WEND
BodyLength=CVL(INPUT$(4,1))
LongsPerRow=(FIX(en/16-.001 )+1 )/2
IF Compression=0 THEN GOTO DatNormal
Decrunch:
PRINT "RESİM SIKISTRILIMIS"
OPEN "RAM:TempData" FOR OUTPUT AS 2
WHILE Count < BodyLength
Dat=ASC(INPUT$(1,1)): Count=Count+1
IF Dat>-1 AND Dat128THEN
Dat$=INPUT$(1,1): Count=Count+1
IF Dat$="" THEN Dat$=CHR$(0)
Dat$=STRING$(256-Dat+1,Dat$)
PRINT #2,Dat$;
END IF
WEND
CLOSE
OPEN "RAM:TempData" FOR INPUT AS 1
DatNormal:
FOR y=0 TO boy-1
FOR z=0 TO Derin-1
FOR x=1 TO LongsPerRow
bnb POKEL BitMap&(z)+Count(z),CVL(INPUT$(4,1))
Count(z)=Count(z)+4
NEXT x
NEXT z
NEXT y
END:
CLOSE
IF Compression=1 THEN KILL "RAM:TempData"
END
Programı yazarken verilen numaralara bağlı kalarak yazmalısınız. Yani l numaralı bölümden başlayacaksınız, 2, 3 şeklinde
altalta yazacaksınız.
Yukarıda bulunan program İsmini ve DOS adresini girebileceğiniz herhangi bir 32'ye kadar renge sahip olan resmi yükleyebilir.
Basic'in keleğinden 256 satırlık resimleri yükleyemiyor. (Hani haberiniz ola!!!).
Hemen sizi uyaralım, program, özellikle sıkıştırılmış resimleri açarken çok zaman geçecektir. Program bu yüzden çok kullanışlı
sayılamaz. Programcılar kısa sürede bunun farkına vardılar ve Amiga Basic'ten hızlı yüklenebilen bir dosya geliştirdiler
bu dosya türüne ACBM dosyaları adı verilmektedir. İşin kötü yanı IFF resimleri kullanabilmek için önce bu resimleri
ACBM formatına çevirmek gerekir. Bu çevrim işini yapabilmenin temel şartı resmi yükleyebilmek. Ancak bir kere ACBM'e
çevrilmiş bir resmi artık hızlandırılmış olarak yükleyebilir ve kaydedebilirsiniz. Deluxe Paint gibi bir programda bu ACBM
leri yükleyemeyeceğinden yine çevrimlere ihtiyaç duyulacaktır.
Sorunlarına rağmen bu dosyayı kullanmak istiyorsanız, örnek bir programı bilgisayarınızla birlikte gelen Workbench/Extras
disketinin BasicDemos kısmında bulabilirsiniz.
Yükleme kısmını hallettik. Kayıt işine gelelim. Kaydederken, dosyanın ACBM veya IFF olması fazla bir hız farkı getirmez.
Ayrıca sıkıştırma kısmını yazıp yazmamak sizin keyfinize kalmış. Herhangi bir program sırf sıkıştırılmamış diye sizin resimlerinizi
yüklememezlik etmeyecektir. Bu yüzden yazacağınız bir kayıt programında sıkıştırma kısmına yer vermenize gerek
kalmaz. Daha pratik bir çözüm ise ScreenX utility'sini kullanarak sağlanır. ScreenX bir ekranı IFF olarak kaydetmeye yarayan
bir program (Amiga Dünyası Sayı 17, Sayfa 37).
Son örneğimiz resmi IFF olarak kaydediyor.
'Program "Amir.r.Amlr"
DECLARE FUNCTION GetRGB4& LIBRARY
LIBRARY ":bmaps graphics.library"
Input" DOSYA ADI";PlcName$
Win& = WINDOW(7)
Scrn&=PEEKL(Win&+46)
en=PEEKW(Scrn&+12)
boy=PEEKW(Scrn&-»-14)
BitMapAdr&=PEEKL(Scrn&+88)
derin=PEEK(BitMapAdr&+5)
ColorMap$=PEEKL(Scrn&+48)
FOR l=0 TO derin-1
BitMap&(i)=PEEKL(BitMapAdr&+8+i*4)
NEXT i
OPEN PicName$ FOR OUTPUT AS 1
PRINT #1,"FORM";
Uz&=48+2 A derin*3+en*boy*derin/8
PRINT #1,MKL$(uz&);
PRINT #1,"ILBM";"BMHD";
PRINT #1,MKL$(20);
PRINT #1 ,MKI$(en);MKI$(boy);
PRINT #1 ,MKL$(0);CHR$(derin);
PRINT #1 ,CHR$(0);MKI$(0);MKI$(0);
PRINT #1,CHR$(10);CHR$(11);
IF en>350 THEN PWidth=640 ELSE PWidth=320
IF boy>350 THEN PHeight=512 ELSE PHeight=256
PRINT #1 ,MKI$(PWIdth);MKI$(PHeight);
PRINT #1,"CMAP";
PRINT #1,MKL$(2*derin*3);
FOR FNr%=0 TO (2 A derin-1)
Wt%=GetRGB4& (ColorMap&,FNr%)
PRINT #1 ,CHR$((Wt% AND 3840)/16);
PRINT #1,CHR$(Wt% AND 240);
PRINT #1,CHR$((Wt% AND 15)*16);
NEXT FNr%
PRINT #1 ."BODY";
PRINT #1,MKL$(boy*en*derln/8);
LongsPerRow=(FIX(en/16-.001 )+1 )/2
FOR y=0 TO boy-1
FOR z=0 TO derin-1
FOR x=1 TO LongsPerRow
Wt&=PEEKL (BitMap&(z)+Count(z))
PRINT #1,MKL$(Wt&);
Count(z)=Count(z)+4
NEXT x
NEXT z
NEXT y
CLOSE 1
PRINT" Dosya kaydedildi!!!!";
END
Maalesef burada yine Library fonksiyonlarına işimiz düşüyor. Hepinize kolay gelsin.
AMIGA DÜNYASI 95