- LoadILBM-SaveACBM* - von Carolyn Scheppner CBM 04/86" - Eindeutschung Ki 03.12.86':" ( s.a. Bitte-lesen, LoadACBM, :" SaveILBM ).:" Dieses Programm ldt eine Grafikdatei,:" im IFF-ILBM-Format (aus Graphicraft,:" oder DeluxePaint o..) und zeigt es-:" auf einem eigenen Schirm/Fenster an.-:" Wird ein Farbenzyklus-Chunk gefunden,:" (Chunk = benamter Datei-Abschnitt),,:" wird auch der zyklische Farbwechsel:" ausgefhrt.*:" Auf Wunsch wird das Bild in einem&:" ACBM-Format neu abgespeichert*:" (ACBM = Amiga Contiguous BitMap),':" das schneller von Basic aus zu':" laden ist (z.B. mit LoadACBM).):" Das ACBM-Format hnelt dem ILBM-':" Format, nur da der BODY-Chunk':" durch einen ABIT-Chunk ersetzt':" ist. ABIT enthlt nacheinander):" die in sich kompletten BitPlane-&:" Daten, whrend sie beim BODY-):" Chunk jeweils bitweise aus allen):" BitPlanes zusammengeholt werden.&:" Bentigt werden .bmap-Dateien":" zu exec, graphics und dos$:" (neues ConvertFD benutzen).k:9 "LoadILBM-SaveACBM --- ILBM laden und konvertieren"; " Dieses Programm ldt eine IFF-ILBM-Grafikdatei (aus; " Graphicraft, dPaint, Aegis,...), zeigt das Bild und: " speichert es auf Wunsch im ACBM-Format (siehe Kom-8 " mentarzeilen), wonach es von Basic aus schneller " geladen werden kann.= " Nichtkomprimierte ILBM-Dateien (z.B. aus Graphicraft)= " werden relativ schnell geladen, komprimierte (wie aus' " dPaint, Aegis) dagegen langsam.: " Whrend des Ladens ist der Bildschirm sichtbar, um+ " den Vorgang gut verfolgen zu knnen1 " (Verdunkelung per REM-Befehl lahmgelegt). " &(), %( ), %( )-:" Variablen fr zyklischen Farbwechsel1:" mssen angelegt werden, da diese Version/:" von SaveACBM immer einen dafr zustn-&:" digen CCRT-Chunk abspeichert.%  % %  &  & 5 - Funktionen aus dos.library  &  &  &  - xClose returns no value# - Functionen aus exec.library :&() - FreeMem returns no value(: "Suchen der .bmap-Dateien ... "; ":bmaps/dos.library" ":bmaps/exec.library" ":bmaps/graphics.library" "Gefunden."<: "ILBM-Dateiname (ggf. incl. Zugriffspfad) eingeben." "( Beispiel: Heart.ILBM )"C "( Bitte nicht im ACBM-Format abspeichern, wenn Ihre DisketteD " weniger als 41 KB frei hat. )C "( Zum Ansehen der ILBM-Datei ohne Abspeichern im ACBM-Format; " bei Frage nach ACBM-Dateiname drcken. )":% " IFF-ILBM-Dateiname = ";n$ (n$ "") % " ACBM-Dateiname = ";$! - Laden des IFF-ILBM-Bildes p$ "" H p$ "" 1 - Zyklischer Farbwechsel wie in Graphicraft  %  - Farben retten K  v% #%(K) (&(K)) %(K) %(K) - zyklischer Farbwechsel K  P %  Ž  Ž  ! ~&(O&,(%()),v%)6 - "Pausen fr Wechselgeschwindigkeitseinstellung   &     &   - Farben restaurieren ! ~&(O&,(%()),v%) ) - Schirm als ACBM-Datei abspeichern$ (p$ "") ($"")  $ ""   :   N :  :  p$ "" p$ $ "" $/: :" Farbwechsel rckwrts (backward)% %(%)  % % %() %()%(%) %-: :" Farbwechsel vorwrts (forward)% %(%)  % %%() %()%(%) %H:+:" - Hierzu mssen folgende Variablen:" - initialisiert sein:':" - ILBMname$ (IFF-Dateiname)$:" - Variablen initialisieren8$ n$ w&  A&  e  u      f # - aus include/libraries/dos.h - MODE_NEWFILE = 1006  - MODE_OLDFILE = 1005/$ 8$ ()w& &((/$),) w&  “.p$ "ILBM-Datei nicht gefunden/lesbar."   *:" Grafik-Pufferspeicher reservieren?& B& hA& :&(B&,?&) A&  ”,p$ "Pufferspeicher nicht verfgbar."   D& A&G& A& x>& A& + - Eingabe sollte lauten FORMnnnnILBM& &(w&,D&, ) L$ "" K   L% (D& K)L$ L$ (L%) L$ "ILBM" • -p$ "Keine Standard-ILBM-Grafikdatei."   %:" ILBM-Datei Chunk-weise leseng:!:" - Chunk-Name/Lnge lesen& &(w&,D&,)i& (D& ) L$ "" K  L% (D& K)L$ L$ (L%) , L$ "BMHD" ™ :BitMap-Header e & &(w&,D&,i&)V% (D&)W% (D& )X% (D& ) Y% (D&  )R% (D& )S% (D& )% V% % R% v% (X%)/:" Genug freier Platz fr Videospeicher ?m& ()'& ((R%)S%(X%)) m& & ˜4p$ "Rechner-Speicherplatz reicht nicht aus."    K   R% @ K K   S%  K K  ,R%,S%,X%,K! ,"LoadILBM-SaveACBM",,,0 - Adressen von Screen-Structures ermitteln  > - Schirm whrend Ladevorgang dunkel (mit REM lahmgelegt)/ CALL LoadRGB4&(sViewPort&,ctab&,nColors%)/ i L$ "CMAP" › : Farb-Palette u & &(w&,G&,i&) - Farb-Palette aufbauen K  v% y% (G&(K))z% (G&(K)){% (G&(K))%x% (y%)(z%)({%)(>&(K)),x%6 i L$ "CAMG" › :Amiga ViewPort Modes  & &(w&,D&,i&)& (D&)= i L$ "CCRT" œq :Graphicraft-Farbzyklus-Daten  & &(w&,D&,i&)% (D&)% (D& )% (D& )& (D& )& (D& )) i L$ "BODY" Ÿ :BitMap f , Y%  V :Keine Komprimierung   W%    X%  & &()(%)" & &(w&,&,%)  (Ÿ| Y%  Ÿ9 :cmpByteRun1   W%    X%  & &()(%) %   (% %)& &(w&,D&,)% (D&) %  žv)& &(w&,& %, %)% % % Ÿ %  Ÿ& &(w&,D&,) % (D&)$ K % %  %(&K),% % %  %    Ÿ|1p$ "Unbekanntes Komprimierungsverfahren."     i *:" - Unbekannten Chunk-Typ berlesen K  i&& &(w&,D&,). - wenn Lnge ungerade, noch 1 Byte lesen (i& ) i&  ] & &(w&,D&,)  ) - Fertig, wenn alle Chunks gelesen  e u f    } & - Lesen ok, nchsten Chunk lesen &  g$ &  ¡Z : Lesefehlerp$ "Lesefehler."   * - rLen& = 0 heit EOF (Dateiende)' (e) (f) (u) ¡1p$ "Wichtige ILBM-Chunks nicht gefunden."   }: p$ "" Farben einstellen u ¢`  ~&(O&,>&,v%) : w&  +&(w&)# A&  `&(A&,B&):(:" Speichert aktuelles Fenster ab.":" Folgende Variablen mssen:" initialisiert sein:(:" - ACBMname$ (ACBM-Dateiname)?:" - Zustzlich, falls Farbzyklusdaten zu speichern sind:7:" - ccrtDir% (1,-1, oder 0 = kein Farbzyklus)9:" - ccrtStart% (Niederwertiges Zyklus-Register)9:" - ccrtEnd% (Hherwertiges Zyklus-Register)2:" - ccrtSecs& (Zyklus-Zeit in Sekunden)7:" - ccrtMics& (Zyklus-Zeit in Mikrosekunden) :" :"!:" - Format der ACBM-Datei::" - LONG "FORM"/:" - LONG Lnge der restlichen Datei(:" - LONG "ACBM" (Format-Typ) :" >:" - LONG "BMHD" (Standard-IFF-BitMap-Header-Chunk)/:" - LONG Lnge des BMHD-Chunks = 200:" - UWORD w (Bitmap-Breite in Pixeln)$:" - UWORD h (Bitmap-Hhe)':" - WORD x (Ecke ob li) = 0':" - WORD y (Ecke ob li) = 0:" - UBYTE nPlanes :" - UBYTE masking = 0$:" - UBYTE compression = 0:" - UBYTE pad1 = 0):" - UWORD transparentColor = 0):" - UBYTE xAspect (pixel) = 10):" - UBYTE yAspect (pixel) = 11<:" - WORD pageWidth (Screen-Breite in Pixeln) 7:" - WORD pageHeight (Screen-Hhe in Pixeln) :" =:" - LONG "CMAP" (Standard-IFF-Farbpaletten-Chunk)*:" - LONG Lnge des CMAP-Chunks9:" - UBYTE Stze von 3 UBYTEs (rot, grn, blau)&:" - (2^nPlanes Stze);:" - (rgb-Werte LINKSBNDIG in jedem UBYTE):"2:" - LONG "CAMG" (Amiga ViewPort Modes)*:" - LONG Lnge des CAMG-Chunks:" - LONG Mode:";:" - LONG "CCRT" (Graphicraft-Farbzyklus-Daten)>:" - WORD Richtung (1,-1, oder 0 = kein Farbzyklus)<:" - UBYTE start (niederwertiges Zyklus-Register)<:" - UBYTE end (hherwertiges Zyklus-Register)*:" - LONG Sekunden (Zykluszeit)/:" - LONG Mikrosekunden (Zykluszeit):" - WORD pad = 0:"*:" (Amiga-BitPlanes 0, 1, etc.):" - LONG "ABIT"*:" - LONG Lnge des ABIT-Chunks2:" - BitPlanes 0 bis (nPlanes - 1)1:" - (jede mit h * (w/8) Bytes) - Variablen initialisieren8$ $ w&  A& /$ 8$ ()w& &((/$),) w&  ¬x-$ "Ausgabedatei nicht beschreibbar."   (:" Pufferspeicherplatz reservieren?&  B& xA& :&(B&,?&) A&  ­21$ "Pufferspeicherplatz nicht verfgbar."   G& A&0 - Adressen von Screen-Structures ermitteln  &  % % :" Chunk-Lngen ermitteln & & (U%)  &  & !& (R%) S% U%G:" - FORMsize& = Chunk-Lngen + 8 Bytes fr Chunk-Header + "ACBM"&& &&&&&, - FORM-Header schreibenL$ "FORM" & &(w&,(L$),) & &(w&,(&),)L$ "ACBM" & &(w&,(L$),) &  ¯,$ "Schreibfehler beim FORM-Header."    - BMHD-Chunk schreibenL$ "BMHD" & &(w&,(L$),) & &(w&,(&),) & &(w&,(R%),) & &(w&,(S%),) & &(w&,(&),)% ( U%) & &(w&,(%),) & &(w&,(&),) & &(w&,(%),) & &(w&,(R%),) & &(w&,(S%),) &  ±w+$ "Schreibfehler beim BMHD-Chunk."    - CMAP-Chunk schreibenL$ "CMAP" & &(w&,(L$),) & &(w&,(&),) - IFF-Farbpalette aufbauen K  v% x% (& (K))&(G&(K)),(x% ) $(G&(K)),(x% ) ((G&(K)),(x% ) & &(w&,G&,&) &  ³4+$ "Schreibfehler beim CMAP-Chunk."    - CAMG-Chunk schreibenL$ "CAMG" & &(w&,(L$),) & &(w&,(&),)& (O&  ) & &(w&,(&),) &  ´6+$ "Schreibfehler beim CAMG-Chunk."   ) - CCRT-Chunk (Farbzyklus) schreibenL$ "CCRT" & &(w&,(L$),) & &(w&,(&),) & &(w&,(%),)% (%) % & &(w&,(%),) & &(w&,(&),) & &(w&,(&),) & &(w&,(%),) &  µ+$ "Schreibfehler beim CCRT-Chunk."   ' - ABIT-Chunk schreiben, BitplanesL$ "ABIT" & &(w&,(L$),) & &(w&,(&),)& (R% ) S%   U% $& &(w&,&(),&) &  ·6$ "Fehler beim Schreiben der Bitplane"()      : $ "": w&  +&(w&)# A&  `&(A&,B&):0 - Adressen von Screen-Structures ermittelnM& ()N& (M& .)O& N& ,P& N& TQ& (O& )& (Q& )T& (P& )" - Screen-Parameter ermittelnR% (N&  )S% (N& )U% (T& )v% U%( - Adressen der Bitplanes ermitteln K  U% "&(K) (T&(K))o AskSoftStyleOpenFontenableFontiSetStylefontNameheightstyleprefspFont CloseFont fontName0textAttrSetFontmask SetSoftStyleExecute librarLIBRARY DosLibTest DosLibDemoxacunderCLIxOpenxxReadxReadxWriteIoErrbkNEWFILEModeoldfile filehandlelengthfilehanelementselsizeels arraysizexCloseerrornumendifnameaddrfilenamecnt modeoldfile modenewfileLIBinit printnameaddrDamefile1fclrAllocMemFormBmhdCmapctab ClearPublicresultmybuf mybufsize ClearPubliinbufibufobufcbufLoadILBMAlreadyDeclaredpicnamekkttsWindowsScreen sViewPort sRastPort sColorMapscrWidth scrHeightsBitMapscrDepthiWidthiHeightiDepthiComprcleanupcleanup2cleanup1iHeighiHecleanup3FreeMemiChunkiChuiSizeicSize foundBMHD foundBODY ChunkLooprErroricLencleanup4MainFreeRamAvailRamILBMnameABINname loadErrorSaveABINbModesthanbMode foundCMAPnColorsfHandleregTempredgreblublGoodLoadLoadRGB4rLenbPlanerrpprAddr bytesPerRowbbbAddrbRowbCntReadCompinbufiii1ii2rowBytesrowBinByteinCodeinByLcleanupnColbRowslTemp loadColorsh00ffffPEE iRowBytes scrRowBytesscrRow scRowBytesScleanupcallxaWidthaHeightaDepth saveError sColorTab GetScrAddrscolorTabpadwLencTabLencTabLbpLenddGetNamescycDircycStartcycEndccrtDirccrttartccrtEndccrtSecsccrtMics foundCCRTfoTHENfounMcleanuptempCTabcTabWorkcTabSaveFcycleBcyclecTabSjj ccrtStartcTempde1de2fordeto5000detpBMHDsizeACOLsizeCCRTsizeABITsizescrFORMsizeCCRTzeroaspectccrtStarWcleanupstartendtempACBMnameSaveACBMtoACBM ACBMnamGOTO Mcleanup2CMAPsizerereTempCAMGsize camgModesCAMGsizeCCRTsize foundCAMGcycleinfoCOLOovpModesorborcord NeededRamNeedRamGoodSaveenterRETACBMfilespec