summaryrefslogtreecommitdiff
path: root/src/win95
diff options
context:
space:
mode:
Diffstat (limited to 'src/win95')
-rw-r--r--src/win95/chnkimag.cpp699
-rw-r--r--src/win95/chnkimag.hpp33
-rw-r--r--src/win95/cl_init.cpp34
-rw-r--r--src/win95/cl_init.h23
-rw-r--r--src/win95/d3_image.cpp2491
-rw-r--r--src/win95/d3_image.hpp1223
6 files changed, 0 insertions, 4503 deletions
diff --git a/src/win95/chnkimag.cpp b/src/win95/chnkimag.cpp
deleted file mode 100644
index a2f703a..0000000
--- a/src/win95/chnkimag.cpp
+++ /dev/null
@@ -1,699 +0,0 @@
-#include <string.h>
-
-#define TRY_OLD_DIRS 0 // obsolete
-#define ALLOW_LOAD_ORIGINAL 0
-
-#if TRY_OLD_DIRS // temporary until all textures go into subshps directory
-#include "ffstdio.h"
-#endif
-
-#include "chnkimag.hpp"
-
-#include "list_tem.hpp"
-#include "envchunk.hpp"
-#include "chunkpal.hpp"
-#include "bmpnames.hpp"
-
-#include "chnkload.hpp"
-
-char const * CL_RIFFImage::game_mode = 0;
-
-// useful filename handling functions
-
-// returns pointer into string pointing to filename without dirname
-template <class C> // C can be char or char const
-static C * strip_path(C * n)
-{
- C * rm = strrchr(n,':');
- if (rm) n = rm+1;
- rm = strrchr(n,'/');
- if (rm) n = rm+1;
- rm = strrchr(n,'\\');
- if (rm) n = rm+1;
-
- return n;
-}
-
-// removes any .extension from filename by inserting null character
-static void strip_file_extension(char * n)
-{
- char * dotpos = strrchr(n,'.');
- if (dotpos) *dotpos = 0;
-}
-
-static char * strip_file_extension(char const * n)
-{
- char * nn = new char[strlen(n)+1];
- strcpy(nn,n);
- strip_file_extension(nn);
- return nn;
-}
-
-////////////////////////
-//
-// riff file interface
-//
-////////////////////////
-
-
-// get the directory associated with the riff - free with delete[]
-static char * riff_basename(Chunk_With_Children * envd)
-{
- RIF_Name_Chunk * rnc = 0;
-
- List<Chunk *> chlst = envd->lookup_child("RIFFNAME");
-
- if (chlst.size())
- {
- rnc = (RIF_Name_Chunk *)chlst.first_entry();
- const char * rif_name = strip_path(rnc->rif_name);
-
- char * basename = new char[strlen(rif_name)+1];
- strcpy(basename,rif_name);
- strip_file_extension(basename);
-
- return basename;
- }
- const char * deflt = "empty";
- char * basename = new char [strlen(deflt)+1];
- strcpy(basename,deflt);
-
- return basename;
-}
-
-#if OUTPUT_LOG
-#define _LOGID CL_LogFile.lprintf("%s:%d :: ",__FILE__,__LINE__)
-#define _LOGPUT(s) _LOGID,CL_LogFile.lputs(s)
-#define _LOGPRINT(args) _LOGID,CL_LogFile.lprintf args
-#else
-#define _LOGPUT(s) (void)0
-#define _LOGPRINT(args) (void)0
-#endif
-
-void CL_RIFFImage::GetPath(ImageDescriptor const & idsc, Environment_Data_Chunk * envd, BMPN_Flags bflags)
-{
- if (fname) delete[] fname;
- fname = 0;
-
- // set the name
- if (name) delete[] name;
- char * nptr = strip_path(idsc.filename);
- name = new char[strlen(nptr)+1];
- strcpy(name,nptr);
- #if 0
- char orig_ext[32];
- char const * oeP = strrchr(name,'.');
- if (!oeP) eoP = "";
- strcpy(orig_ext,oeP);
- #endif
- strip_file_extension(name);
-
- // load this image
- char const * pg0ext = ".PG0";
- switch (imode)
- {
- case CLM_16BIT:
- case CLM_24BIT:
- case CLM_32BIT:
- #if ALLOW_LOAD_ORIGINAL
- {
- char const * dir2 = idsc.flags & IDSCF_SPRITE ? "Sprites\\" : "";
- char * riffname = riff_basename(envd);
- char const * dir3 = idsc.flags & IDSCF_INCLUDED ? idsc.rifname : riffname;
- fname = new char[strlen(ToolsTex_Directory)+strlen(dir2)+strlen(dir3)+1+strlen(name)+5];
- strcpy(fname,ToolsTex_Directory);
- strcat(fname,dir2);
- strcat(fname,dir3);
- strcat(fname,"\\");
- strcat(fname,name);
- strcat(fname,".PP0");
- delete[] riffname;
- break;
- }
- #endif
- case CLM_ATTACHEDPALETTE:
- {
- char const * dir2 = idsc.flags & IDSCF_SPRITE ? "Sprites\\" : idsc.flags & IDSCF_SUBSHAPE ? "SubShps\\All\\" : "";
- char * riffname = riff_basename(envd);
- char const * dir3 = idsc.flags & IDSCF_INCLUDED ? idsc.rifname : riffname;
- fname = new char[strlen(GenTex_Directory)+strlen(dir2)+strlen(dir3)+1+strlen(name)+5];
- strcpy(fname,GenTex_Directory);
- strcat(fname,dir2);
- strcat(fname,dir3);
- strcat(fname,"\\");
- strcat(fname,name);
- strcat(fname,".BM0");
- delete[] riffname;
- #if TRY_OLD_DIRS // temporary until all textures go into subshps directory
- FFILE * ftest = ffopen(fname,"rb");
- if (ftest) ffclose(ftest);
- else
- {
- _LOGPUT("WARNING! Not found in SubShps directory\n");
- char const * dir2 = idsc.flags & IDSCF_SPRITE ? "Sprites\\" : "";
- char * riffname = riff_basename(envd);
- char const * dir3 = idsc.flags & IDSCF_INCLUDED ? idsc.rifname : riffname;
- delete[] fname;
- fname = new char[strlen(GenTex_Directory)+strlen(dir2)+strlen(dir3)+1+strlen(name)+5];
- strcpy(fname,GenTex_Directory);
- strcat(fname,dir2);
- strcat(fname,dir3);
- strcat(fname,"\\");
- strcat(fname,name);
- strcat(fname,".BM0");
- delete[] riffname;
- }
- #endif
- break;
- }
- case CLM_TLTPALETTE:
- if (!(bflags & ChunkBMPFlag_NotLit))
- {
- pg0ext = ".PW0";
- flags.tltpalette = 1;
- }
- case CLM_GLOBALPALETTE:
- {
- if (idsc.flags & IDSCF_FIXEDPALETTE)
- {
- char const * dir2 = idsc.fixrifname ? *idsc.fixrifname ? idsc.fixrifname : 0 : 0;
- char const * dir3 = idsc.flags & IDSCF_SPRITE ? "Sprites\\" : "";
- char * riffname = riff_basename(envd);
- char const * dir4 = idsc.flags & IDSCF_INCLUDED ? idsc.rifname : riffname;
- fname = new char[strlen(FixTex_Directory)+(dir2 ? strlen(dir2)+1 : 0)+strlen(dir3)+strlen(dir4)+1+strlen(name)+5];
- strcpy(fname,FixTex_Directory);
- if (dir2)
- {
- strcat(fname,dir2);
- strcat(fname,"\\");
- }
- strcat(fname,dir3);
- strcat(fname,dir4);
- strcat(fname,"\\");
- strcat(fname,name);
- strcat(fname,pg0ext);
- delete[] riffname;
- }
- else
- {
- char const * dir1 = game_mode ? GameTex_Directory : ToolsTex_Directory;
- char * dir2 = riff_basename(envd);
- char const * dir4 = idsc.flags & IDSCF_SPRITE ? "Sprites\\" : "";
- char const * dir5 = idsc.flags & IDSCF_INCLUDED ? idsc.rifname : 0;
- fname = new char[strlen(dir1)+strlen(dir2)+1+(game_mode ? strlen(game_mode)+1 : 0)+strlen(dir4)+(dir5 ? strlen(dir5)+1 : 0)+strlen(name)+5];
- strcpy(fname,dir1);
- strcat(fname,dir2);
- strcat(fname,"\\");
- if (game_mode)
- {
- strcat(fname,game_mode);
- strcat(fname,"\\");
- }
- strcat(fname,dir4);
- if (dir5)
- {
- strcat(fname,dir5);
- strcat(fname,"\\");
- }
- strcat(fname,name);
- strcat(fname,pg0ext);
- delete[] dir2;
- }
- break;
- }
- }
-
- if (!fname)
- {
- _LOGPUT("WARNING! GetPath returning NULL pointer\n");
- }
- else
- _LOGPRINT(("file expected to be %s\n",fname));
-}
-
-
-CL_Error CL_RIFFImage::Locate(char const * iname, int const enum_id)
-{
- _LOGPRINT(("RIF File image finder called for %s, id %d\n",iname,enum_id));
-
- if (!Env_Chunk)
- _LOGPUT("WARNING! no .RIF file loaded\n");
-
- if (!Env_Chunk) return CLE_RIFFERROR;
-
- switch (imode)
- {
- case CLM_ATTACHEDPALETTE:
- case CLM_16BIT:
- case CLM_24BIT:
- case CLM_32BIT:
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- break;
- default:
- _LOGPUT("WARNING! undefined video mode\n");
- return CLE_INVALIDDXMODE;
- }
-
- // remove projectsubdirectory from start of image name if it is there
- unsigned int const psdirlen = strlen(projectsubdirectory);
- if (!strncmp(projectsubdirectory,iname,psdirlen))
- iname += psdirlen;
-
- List<Chunk *> envdl (Env_Chunk->lookup_child("REBENVDT"));
-
- if (!envdl.size())
- {
- _LOGPUT("WARNING! no environment data chunk\n");
- return CLE_RIFFERROR;
- }
-
- Environment_Data_Chunk * envd = (Environment_Data_Chunk *) envdl.first_entry();
-
- CL_Error retval = CLE_OK;
- Environment_Game_Mode_Chunk * egmc = 0;
- if (game_mode)
- {
- if (*game_mode)
- {
- List<Chunk *> egmcl (envd->lookup_child("GAMEMODE"));
-
- for (LIF<Chunk *> egmci(&egmcl); !egmci.done(); egmci.next())
- {
- Environment_Game_Mode_Chunk * egmcm = (Environment_Game_Mode_Chunk *) egmci();
- if (egmcm->id_equals(game_mode))
- {
- egmc = egmcm;
- break;
- }
- }
-
- if (!egmc) retval = CLE_INVALIDGAMEMODE;
- // only returns this error if the game mode cannot be found *and* the image is not listed
- }
- }
-
- if (name)
- {
- delete[] name;
- name = 0;
- }
- if (iname) name = strip_file_extension(strip_path(iname));
-
- char * rcname = 0;
- if (iname)
- {
- if (strchr(iname,'\\'))
- {
- rcname = new char[strlen(iname)+1];
- strcpy(rcname,iname);
- *strchr(rcname,'\\')=0;
- }
- else if (strchr(iname,'/'))
- {
- rcname = new char[strlen(iname)+1];
- strcpy(rcname,iname);
- *strchr(rcname,'/')=0;
- }
- }
-
- if (egmc)
- {
- int shapefoundingm = rcname ? 0 : 1;
- // Get the matching image 'Processor' chunk
- List<Chunk *> micl = egmc->lookup_child("MATCHIMG");
-
- Matching_Images_Chunk * mic = 0;
- if (micl.size()) mic = (Matching_Images_Chunk *)micl.first_entry();
-
- List<Chunk *> rcl = egmc->lookup_child("RIFCHILD");
-
- for (LIF<Chunk *> rci(&rcl); !rci.done(); rci.next())
- {
- RIF_Child_Chunk * rcm = (RIF_Child_Chunk *) rci();
-
- if (rcname)
- {
- if (_stricmp(rcname,rcm->rifname) && (*rcname || *rcm->filename))
- continue;
- shapefoundingm = 1;
- }
-
- for (LIF<BMP_Flags> bmpfi(&rcm->bmps); !bmpfi.done(); bmpfi.next())
- {
- BMP_Flags bmpft(bmpfi());
- strip_file_extension(bmpft.filename);
-
- if (iname ? !_stricmp(name,strip_path(bmpft.filename)) : enum_id == bmpft.enum_id)
- {
- // select image descriptor
- ImageDescriptor const idsc
- (
- *rcm->filename ?
- (IDscFlags)((bmpft.flags & ChunkBMPFlag_FixedPalette ?
- IDSCF_FIXEDPALETTE
- :
- IDSCF_0)
- |IDSCF_INCLUDED)
- :
- IDSCF_0,
- bmpfi().filename,
- *rcm->filename ? rcm->rifname : 0
- );
- ImageDescriptor const * p_idsc = &idsc;
-
- if (mic) p_idsc = &mic->GetLoadImage(idsc);
- else _LOGPRINT(("WARNING! no rule to find matching images in game mode %s\n",egmc->header->mode_identifier));
-
- // load this image
- GetPath(*p_idsc,envd,bmpft.flags);
-
- if (fname)
- {
- if (rcname)
- {
- delete[] rcname;
- rcname = 0;
- }
- flags.located = 1;
- return CLE_OK;
- }
- }
- }
- }
-
- List<Chunk *> ssc = egmc->lookup_child("SHBMPNAM");
-
- for (LIF<Chunk *> ssi(&ssc); !ssi.done(); ssi.next())
- {
- External_Shape_BMPs_Store_Chunk * ss = (External_Shape_BMPs_Store_Chunk *) ssi();
-
- if (rcname)
- if (_stricmp(rcname,ss->shapename) && *rcname)
- continue;
-
- for (LIF<BMP_Name> bmpfi(&ss->bmps); !bmpfi.done(); bmpfi.next())
- {
- BMP_Name bmpft(bmpfi());
- strip_file_extension(bmpft.filename);
-
- if (iname ? !_stricmp(name,strip_path(bmpft.filename)) : enum_id == bmpft.enum_id)
- {
-
- // select image descriptor
- ImageDescriptor const idsc
- (
- (IDscFlags)((bmpft.flags & ChunkBMPFlag_FixedPalette ?
- IDSCF_FIXEDPALETTE
- :
- IDSCF_0)
- |(ss->GetExtendedData()->flags & GBF_SPRITE ?
- IDSCF_SPRITE
- :
- IDSCF_SUBSHAPE)
- |IDSCF_INCLUDED),
- bmpfi().filename,
- ss->shapename,
- bmpft.flags & ChunkBMPFlag_FixedPalette ? ss->rifname : 0
- );
- ImageDescriptor const * p_idsc = &idsc;
-
- if (mic) p_idsc = &mic->GetLoadImage(idsc);
- else _LOGPRINT(("WARNING! no rule to find matching images in game mode %s\n",egmc->header->mode_identifier));
-
- #if TRY_OLD_DIRS // temporary until all textures move to SubShps/All directory
- if (*p_idsc == idsc)
- {
- // select image descriptor
- ImageDescriptor const idsc2
- (
- (IDscFlags)((bmpft.flags & ChunkBMPFlag_FixedPalette ?
- IDSCF_FIXEDPALETTE
- :
- IDSCF_0)
- |(ss->GetExtendedData()->flags & GBF_SPRITE ?
- IDSCF_SPRITE
- :
- IDSCF_0)
- |IDSCF_INCLUDED),
- bmpfi().filename,
- ss->shapename,
- bmpft.flags & ChunkBMPFlag_FixedPalette ? ss->rifname : 0
- );
- ImageDescriptor const * p_idsc2 = &idsc2;
-
- if (mic) p_idsc2 = &mic->GetLoadImage(idsc2);
- else _LOGPRINT(("WARNING! no rule to find matching images in game mode %s\n",egmc->header->mode_identifier));
-
- if (*p_idsc2 != idsc2)
- {
- _LOGPUT("WARNING! Not listed as in SubShps directory\n");
- p_idsc = p_idsc2;
- }
- }
- #endif
-
- // load this image
- GetPath(*p_idsc,envd,bmpft.flags);
-
- if (fname)
- {
- if (rcname)
- {
- delete[] rcname;
- rcname = 0;
- }
- flags.located = 1;
- return CLE_OK;
- }
- }
- }
- }
-
- if (rcname)
- {
- if (!shapefoundingm)
- _LOGPRINT(("WARNING! shape/sprite %s not found in this RIF file\n",rcname));
- else
- _LOGPRINT(("WARNING! shape/sprite %s does not appear to list %s\n",rcname,name));
- }
-
- }
-
- List<Chunk *> micl = envd->lookup_child("MATCHIMG");
-
- Matching_Images_Chunk * mic_fix = 0;
- Matching_Images_Chunk * mic_nrm = 0;
-
- for (LIF<Chunk *> mici(&micl); !mici.done(); mici.next())
- {
- Matching_Images_Chunk * mic = (Matching_Images_Chunk *)mici();
- if (mic->flags & MICF_FIXEDPALETTE)
- mic_fix = mic;
- else
- mic_nrm = mic;
- }
-
- List<Chunk_With_Children *> shapesandsprites;
-
- List<Chunk *> shlst = Env_Chunk->lookup_child("REBSHAPE");
- for (LIF<Chunk *> shLIF(&shlst); !shLIF.done(); shLIF.next())
- {
- List<Chunk *> shxflst = ((Shape_Chunk *)shLIF())->lookup_child("SHPEXTFL");
- if (shxflst.size())
- {
- shapesandsprites.add_entry( (Shape_External_File_Chunk *)shxflst.first_entry() );
- }
- }
- shlst = Env_Chunk->lookup_child("RSPRITES");
- if (shlst.size())
- {
- List<Chunk *> splst = ((Chunk_With_Children *)shlst.first_entry())->lookup_child("SPRIHEAD");
-
- for (LIF<Chunk *> spLIF(&splst); !spLIF.done(); spLIF.next())
- {
- shapesandsprites.add_entry( (Chunk_With_Children *)spLIF() );
- }
- }
-
- int shapefound = rcname ? 0 : 1;
-
- for (LIF<Chunk_With_Children *> sasLIF(&shapesandsprites); !sasLIF.done(); sasLIF.next())
- {
- char * subrifname = riff_basename(sasLIF());
-
- if (rcname)
- {
- if (_stricmp(subrifname,rcname)) // must match shapes name exactly
- {
- delete[] subrifname;
- continue;
- }
- shapefound = 1;
- }
-
- List<Chunk *> blsclst = sasLIF()->lookup_child("BMPLSTST");
- if (blsclst.size())
- {
- Bitmap_List_Store_Chunk * gbnc = (Bitmap_List_Store_Chunk *) blsclst.first_entry();
-
- for (LIF<BMP_Name> bmpni(&gbnc->bmps); !bmpni.done(); bmpni.next())
- {
- BMP_Name bmpnt(bmpni());
- strip_file_extension(bmpnt.filename);
-
- if (iname ? !_stricmp(name,strip_path(bmpnt.filename)) : enum_id == bmpnt.enum_id)
- {
-
- // select image descriptor
- char * riffname = riff_basename(envd);
- ImageDescriptor const idsc
- (
- (IDscFlags)((bmpnt.flags & ChunkBMPFlag_FixedPalette ?
- IDSCF_FIXEDPALETTE
- :
- IDSCF_0)
- |(gbnc->GetExtendedData()->flags & GBF_SPRITE ?
- IDSCF_SPRITE
- :
- IDSCF_SUBSHAPE)
- |IDSCF_INCLUDED),
- bmpni().filename,
- subrifname,
- bmpnt.flags & ChunkBMPFlag_FixedPalette ? riffname : 0
- );
- ImageDescriptor const * p_idsc = &idsc;
- delete[] riffname;
-
- if (bmpnt.flags & ChunkBMPFlag_FixedPalette)
- {
- if (mic_fix) p_idsc = &mic_fix->GetLoadImage(idsc);
- else _LOGPUT("WARNING! no rule to find fixed palette matching images in environment data\n");
- }
- else
- {
- if (mic_nrm) p_idsc = &mic_nrm->GetLoadImage(idsc);
- else _LOGPUT("WARNING! no rule to find matching images in environment data (interface engine?)\n");
- }
-
- #if TRY_OLD_DIRS // temporary until all textures move to SubShps/All directory
- if (*p_idsc == idsc)
- {
- // select image descriptor
- char * riffname = riff_basename(envd);
- ImageDescriptor const idsc2
- (
- (IDscFlags)((bmpnt.flags & ChunkBMPFlag_FixedPalette ?
- IDSCF_FIXEDPALETTE
- :
- IDSCF_0)
- |(gbnc->GetExtendedData()->flags & GBF_SPRITE ?
- IDSCF_SPRITE
- :
- IDSCF_0)
- |IDSCF_INCLUDED),
- bmpni().filename,
- subrifname,
- bmpnt.flags & ChunkBMPFlag_FixedPalette ? riffname : 0
- );
- ImageDescriptor const * p_idsc2 = &idsc2;
- delete[] riffname;
-
- if (bmpnt.flags & ChunkBMPFlag_FixedPalette)
- {
- if (mic_fix) p_idsc2 = &mic_fix->GetLoadImage(idsc2);
- else _LOGPUT("WARNING! no rule to find fixed palette matching images in environment data\n");
- }
- else
- {
- if (mic_nrm) p_idsc2 = &mic_nrm->GetLoadImage(idsc2);
- else _LOGPUT("WARNING! no rule to find matching images in environment data (interface engine?)\n");
- }
- if (*p_idsc2 != idsc2)
- {
- _LOGPUT("WARNING! Not listed as in SubShps directory\n");
- p_idsc = p_idsc2;
- }
- }
- #endif
-
- // load this image
- GetPath(*p_idsc,envd,bmpnt.flags);
-
- if (fname)
- {
- delete[] subrifname;
- if (rcname)
- {
- delete[] rcname;
- rcname = 0;
- }
- flags.located = 1;
- return CLE_OK;
- }
- }
- }
- }
- delete[] subrifname;
- }
-
- if (rcname)
- {
- if (!shapefound)
- _LOGPRINT(("WARNING! shape/sprite %s not found in this RIF file\n",rcname));
- else
- _LOGPRINT(("WARNING! shape/sprite %s does not appear to list %s\n",rcname,name));
- delete[] rcname;
- rcname = 0;
- }
-
- // not found in game textures, so look in default
-
- else // but only if there is no virtual shape directory
- {
- List<Chunk *> gbncl = envd->lookup_child("BMPNAMES");
- if (gbncl.size())
- {
- Global_BMP_Name_Chunk * gbnc = (Global_BMP_Name_Chunk *) gbncl.first_entry();
-
- for (LIF<BMP_Name> bmpni(&gbnc->bmps); !bmpni.done(); bmpni.next())
- {
- BMP_Name bmpnt(bmpni());
- strip_file_extension(bmpnt.filename);
-
- if (iname ? !_stricmp(name,strip_path(bmpnt.filename)) : enum_id == bmpnt.enum_id)
- {
- // select image descriptor
- ImageDescriptor const idsc (bmpnt.flags & ChunkBMPFlag_FixedPalette ? IDSCF_FIXEDPALETTE : IDSCF_0, bmpni().filename);
- ImageDescriptor const * p_idsc = &idsc;
-
- if (bmpnt.flags & ChunkBMPFlag_FixedPalette)
- {
- if (mic_fix) p_idsc = &mic_fix->GetLoadImage(idsc);
- else _LOGPUT("WARNING! no rule to find fixed palette matching images in environment data\n");
- }
- else
- {
- if (mic_nrm) p_idsc = &mic_nrm->GetLoadImage(idsc);
- else _LOGPUT("WARNING! no rule to find matching images in environment data (interface engine?)\n");
- }
-
- // load this image
- GetPath(*p_idsc,envd,bmpnt.flags);
-
- if (fname)
- {
- flags.located = 1;
- return CLE_OK;
- }
- }
- }
- }
- }
-
- if (retval != CLE_OK) return retval;
- return CLE_FINDERROR;
-}
-
-
-
diff --git a/src/win95/chnkimag.hpp b/src/win95/chnkimag.hpp
deleted file mode 100644
index df0dc62..0000000
--- a/src/win95/chnkimag.hpp
+++ /dev/null
@@ -1,33 +0,0 @@
-#ifndef _included__chnkimag_hpp_
-#define _included__chnkimag_hpp_
-
-#error "This file is obsolete"
-
-#include <stdio.h>
-
-#include "d3_image.hpp"
-#include "mishchnk.hpp"
-#include "bmpnames.hpp"
-
-extern "C" extern char projectsubdirectory[];
-
-extern char const * GameTex_Directory;
-extern char const * GenTex_Directory;
-extern char const * FixTex_Directory;
-extern char const * ToolsTex_Directory;
-
-struct CL_RIFFImage : public CL_Image
-{
-public:
- static char const * game_mode; // game mode defines palette and set of graphics - can be null or "" for default
-
- CL_RIFFImage() : CL_Image() {}
- CL_RIFFImage(CL_Image const & base) : CL_Image(base) {}
-
-private:
- virtual CL_Error Locate(char const * iname, int const enum_id);
-
- void GetPath(ImageDescriptor const & idsc, Environment_Data_Chunk * envd, BMPN_Flags bflags);
-};
-
-#endif // !_included__chnkimag_hpp_
diff --git a/src/win95/cl_init.cpp b/src/win95/cl_init.cpp
deleted file mode 100644
index beab242..0000000
--- a/src/win95/cl_init.cpp
+++ /dev/null
@@ -1,34 +0,0 @@
-#include "cl_init.h"
-#include "system.h" // because the 3dc header files don't automatically include the ones they need
-#include "equates.h" // because the 3dc header files don't automatically include the ones they need
-#include "platform.h" // for VideoModeTypes
-#include "shape.h" // because the 3dc header files don't automatically include the ones they need
-#include "prototyp.h" // for SDB
-#include "d3_image.hpp" // for init functions
-
-extern "C" extern SCREENDESCRIPTORBLOCK ScreenDescriptorBlock;
-
-void CL_Init_All(void)
-{
- switch (VideoModeTypeScreen)
- {
- case VideoModeType_8:
- if (ScreenDescriptorBlock.SDB_Flags & SDB_Flag_TLTPalette)
- CL_Init_DirectDrawMode(CLV_8TLT);
- else
- CL_Init_DirectDrawMode(CLV_8);
- break;
- case VideoModeType_15:
- CL_Init_DirectDrawMode(CLV_15);
- break;
- case VideoModeType_24:
- CL_Init_DirectDrawMode(CLV_24);
- break;
- case VideoModeType_8T:
- CL_Init_DirectDrawMode(CLV_8T);
- break;
- }
-
- if (ScanDrawDirectDraw != ScanDrawMode)
- CL_Init_D3DMode(&(d3d.TextureFormat[d3d.CurrentTextureFormat].ddsd));
-}
diff --git a/src/win95/cl_init.h b/src/win95/cl_init.h
deleted file mode 100644
index a0b35c7..0000000
--- a/src/win95/cl_init.h
+++ /dev/null
@@ -1,23 +0,0 @@
-#ifndef _included_cl_init_h_
-#define _included_cl_init_h_
-
-#error "This file is obsolete"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#include "d3d.h" // required by d3_func.hpp
-#include "d3_func.h" // for D3DINFO definition
-
-extern int VideoModeTypeScreen;
-extern int ScanDrawMode;
-extern D3DINFO d3d;
-
-void CL_Init_All(void);
-
-#ifdef __cplusplus
-};
-#endif
-
-#endif // !_included_cl_init_h_
diff --git a/src/win95/d3_image.cpp b/src/win95/d3_image.cpp
deleted file mode 100644
index c068b82..0000000
--- a/src/win95/d3_image.cpp
+++ /dev/null
@@ -1,2491 +0,0 @@
-#include <stdlib.h>
-#include <string.h>
-
-#include "d3_image.hpp"
-#include "platform.h"
-
-// define = 1 if you dont have pre-quantized images to load into palettized D3D texture surfaces
-#define QUANTISE_ON_LOAD 0
-
-#if debug
-#define DEBUG_TRANSPARENCY 1
-#else
-#define DEBUG_TRANSPARENCY 0
-#endif
-
-// image loader stuff
-
-#if OUTPUT_LOG
-#include "debuglog.hpp"
-LogFile CL_LogFile("DB_IMLD.LOG");
-#endif
-
-#if TIME_LOADS
-unsigned int OpenTime;
-unsigned int CloseTime;
-unsigned int ReadTime;
-#endif
-
-static inline unsigned long read_le_dword(D3I_FILE * f)
-{
- unsigned char d1,d2,d3,d4;
- d3i_fread(&d1,1,1,f);
- d3i_fread(&d2,1,1,f);
- d3i_fread(&d3,1,1,f);
- d3i_fread(&d4,1,1,f);
-
- return (unsigned long)d1 | (unsigned long)d2<<8 | (unsigned long)d3<<16 | (unsigned long)d4<<24;
-}
-
-static inline unsigned short read_le_word(D3I_FILE * f)
-{
- unsigned char d1,d2;
- d3i_fread(&d1,1,1,f);
- d3i_fread(&d2,1,1,f);
-
- return (unsigned short)d1 | (unsigned short)((unsigned short)d2<<8);
-}
-
-// some default globals
-CL_ImageMode CL_Image::imode = CLM_GLOBALPALETTE;
-CL_ImageMode CL_Image::imode_d3d = CLM_ATTACHEDPALETTE;
-CL_ImageMode CL_Image::imode_ddraw = CLM_GLOBALPALETTE;
-LPDDSURFACEDESC CL_Image::format = 0;
-unsigned int CL_Image::bitsperpixel;
-unsigned int CL_Image::bitsperpixel_d3d;
-unsigned int CL_Image::bitsperpixel_ddraw;
-CL_LoadMode CL_Image::lmode = CLL_DDSURFACE;
-
-CL_DX_Format CL_Pixel_32::f;
-CL_DX_Format CL_Pixel_32::f_d3d;
-CL_DX_Format CL_Pixel_32::f_ddraw;
-CL_DX_Format CL_Pixel_16::f;
-CL_DX_Format CL_Pixel_16::f_d3d;
-CL_DX_Format CL_Pixel_16::f_ddraw;
-
-
-void CL_Image::DeleteNotMips(void)
-{
- if (im24)
- {
- delete[] *im24;
- delete[] im24;
- im24 = 0;
- }
- if (im16)
- {
- delete[] *im16;
- delete[] im16;
- im16 = 0;
- }
- if (im8)
- {
- delete[] *im8;
- delete[] im8;
- im8 = 0;
- }
- if (palette)
- {
- delete[] palette;
- palette = 0;
- palette_size = 0;
- }
- flags.loaded = 0;
- flags.raw16bit = 0;
-}
-
-void CL_Image::Delete(void)
-{
- DeleteNotMips();
- while (mipmaps.size())
- {
- delete mipmaps.last_entry();
- mipmaps.delete_last_entry();
- }
-}
-
-
-void CL_Image::Copy(CL_Image const & i2)
-{
- if (i2.im24)
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- CL_Pixel_24 const * sptr = *i2.im24;
- CL_Pixel_24 * dptr = *im24;
-
- for (int i=size; i; --i)
- {
- *dptr++ = *sptr++;
- }
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 const * aptr = *im24;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
-
- if (i2.im16)
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 const * sptr = *i2.im16;
- CL_Pixel_16 * dptr = *im16;
-
- for (int i=size; i; --i)
- {
- *dptr++ = *sptr++;
- }
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
-
- if (i2.im8)
- {
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- unsigned char const * sptr = *i2.im8;
- unsigned char * dptr = *im8;
-
- for (int i=size; i; --i)
- {
- *dptr++ = *sptr++;
- }
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char const * aptr = *im8;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
-
- if (i2.palette)
- {
- palette = new CL_Pixel_24 [palette_size];
-
- CL_Pixel_24 const * sptr = i2.palette;
- CL_Pixel_24 * dptr = palette;
-
- for (int i=palette_size; i; --i)
- {
- *dptr++ = *sptr;
- }
- }
-
- if (i2.name)
- {
- name = new char [strlen(i2.name)+1];
- strcpy(name,i2.name);
- }
-
- if (i2.fname)
- {
- fname = new char [strlen(i2.fname)+1];
- strcpy(fname,i2.fname);
- }
-
- for (CLIF<CL_Image *> i_mip(&i2.mipmaps); !i_mip.done(); i_mip.next())
- {
- mipmaps.add_entry_end(new CL_Image(*i_mip()));
- }
-}
-
-
-CL_Image::~CL_Image()
-{
- Delete();
- if (fname) delete[] fname;
- if (name) delete[] name;
-}
-
-
-CL_Image::CL_Image(CL_Image const & i2)
-: width(i2.width)
-, height(i2.height)
-, size(i2.size)
-, im24(0)
-, im16(0)
-, im8(0)
-, palette(0)
-, palette_size(i2.palette_size)
-, fname(0)
-, name(0)
-, flags(i2.flags)
-{
- Copy(i2);
-}
-
-
-CL_Image & CL_Image::operator = (CL_Image const & i2)
-{
- if (&i2 != this)
- {
- Delete();
- if (fname) delete[] fname;
- if (name) delete[] name;
-
- width = i2.width;
- height = i2.height;
- size = i2.size;
- palette_size = i2.palette_size;
-
- fname = 0;
- name = 0;
-
- flags = i2.flags;
-
- Copy(i2);
- }
- return *this;
-}
-
-
-CL_Error CL_Image::Make(int const _width, int const _height)
-{
- Delete();
-
- width = _width;
- height = _height;
- palette_size = 0;
- size = width*height;
-
- switch (imode)
- {
- case CLM_ATTACHEDPALETTE:
- {
- palette_size = 256;
- palette = new CL_Pixel_24 [palette_size];
- }
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- {
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char * dptr = *im8;
- for (int i=height; i; --i, dptr+=width)
- {
- *dptrptr++ = dptr;
- }
-
- break;
- }
- case CLM_24BIT:
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 const * aptr = *im24;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- break;
- }
- case CLM_16BIT:
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- break;
- }
- case CLM_32BIT:
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 const * aptr = *im32;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- break;
- }
- default:
- return CLE_INVALIDDXMODE;
- }
-
- flags.loaded = 1;
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::MakeRandom(int const _width, int const _height, int const seed)
-{
- Delete();
-
- if (-1!=seed) srand((unsigned int)seed);
-
- width = _width;
- height = _height;
- size = width*height;
- palette_size = 0;
-
- switch (imode)
- {
- case CLM_ATTACHEDPALETTE:
- {
- palette_size = 256;
- palette = new CL_Pixel_24 [palette_size];
- CL_Pixel_24 * palP = palette;
- for (int i=palette_size; i; --i, ++palP)
- {
- *palP = CL_Pixel_24(rand()&255,rand()&255,rand()&255);
- }
- }
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- {
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char * dptr = *im8;
- for (int i=height; i; --i)
- {
- *dptrptr++ = dptr;
- for (int j=width; j; --j, ++dptr)
- *dptr = (unsigned char)(rand()&(palette_size-1));
- }
-
- break;
- }
- case CLM_24BIT:
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 * aptr = *im24;
- for (int i=height; i; --i)
- {
- *dptrptr++ = aptr;
- for (int j=width; j; --j, ++aptr)
- *aptr = CL_Pixel_24(rand()&255,rand()&255,rand()&255);
- }
-
- break;
- }
- case CLM_16BIT:
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 * aptr = *im16;
- for (int i=height; i; --i)
- {
- *dptrptr++ = aptr;
- for (int j=width; j; --j, ++aptr)
- *aptr = CL_Pixel_24(rand()&255,rand()&255,rand()&255);
- }
-
- break;
- }
- case CLM_32BIT:
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 * aptr = *im32;
- for (int i=height; i; --i)
- {
- *dptrptr++ = aptr;
- for (int j=width; j; --j, ++aptr)
- *aptr = CL_Pixel_24(rand()&255,rand()&255,rand()&255);
- }
-
- break;
- }
- default:
- return CLE_INVALIDDXMODE;
- }
-
- flags.loaded = 1;
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::Load_BMP(D3I_FILE * f)
-{
- if (!f) return CLE_OPENERROR;
-
- DeleteNotMips();
-
- switch (imode)
- {
- case CLM_ATTACHEDPALETTE:
- case CLM_24BIT:
- case CLM_16BIT:
- case CLM_32BIT:
- break;
- default:
- return CLE_INVALIDDXMODE;
- }
-
- d3i_fseek(f,0,SEEK_SET);
- unsigned short magic;
- d3i_fread(&magic,2,1,f);
- if (magic != *(unsigned short const *)"BM") return CLE_LOADERROR;
-
- size_t filesize = read_le_dword(f);
- d3i_fseek(f,4,SEEK_CUR);
- size_t offset = read_le_dword(f);
- size_t headsize = read_le_dword(f);
-
- unsigned short bitdepth;
-
- if (12 == headsize) // OS/2 1.x
- {
- width = read_le_word(f);
- height = read_le_word(f);
- size = width * height;
- if (!width || !height) return CLE_LOADERROR;
- unsigned short planes = read_le_word(f);
- if (1 != planes) return CLE_LOADERROR;
- bitdepth = read_le_word(f);
-
- if (bitdepth != 24)
- {
- palette_size = 1<<bitdepth;
- palette = new CL_Pixel_24 [palette_size];
- CL_Pixel_24 * rptr = palette;
- for (int i=palette_size; i; --i)
- {
- rptr++->Read(f,CLF_BGR);
- }
- }
- }
- else if (40 == headsize || 64 == headsize) // Windows 3.x || OS/2 2.x
- {
- width = read_le_dword(f);
- height = read_le_dword(f);
- unsigned short planes = read_le_word(f);
- if (1 != planes) return CLE_LOADERROR;
- bitdepth = read_le_word(f);
-
- if (read_le_dword(f)) return CLE_LOADERROR; // compressed bmps not supported
-
- size = read_le_dword(f);
-
- d3i_fseek(f,8,SEEK_CUR);
- palette_size = read_le_dword(f);
- if (!palette_size && bitdepth != 24) palette_size = 1<<bitdepth;
-
- if (palette_size)
- {
- d3i_fseek(f,headsize+14,SEEK_SET);
- palette = new CL_Pixel_24 [palette_size];
- CL_Pixel_24 * rptr = palette;
- for (int i=palette_size; i; --i)
- {
- rptr++->Read(f,CLF_BGRX);
- }
- }
- }
- else return CLE_LOADERROR;
-
- d3i_fseek(f,offset,SEEK_SET);
-
- if (palette_size)
- {
- if (bitdepth < 4)
- {
- delete[] palette;
- palette_size = 0;
- return CLE_LOADERROR;
- }
-
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char * dptr = *im8;
- for (int i=height; i; --i, dptr+=width)
- {
- *dptrptr++ = dptr;
- }
-
- #if DEBUG_TRANSPARENCY
- int num_tps=0;
- #endif
- for (i=height-1; i>=0; --i)
- {
- dptr = im8[i];
-
- if (4==bitdepth)
- {
- for (int i=width>>1; i; --i)
- {
- unsigned char byte;
- d3i_fread(&byte,1,1,f);
- #if DEBUG_TRANSPARENCY
- *dptr = (unsigned char)(byte >> 4 & 0xf);
- if (!*dptr) num_tps++;
- *++dptr = (unsigned char)(byte & 0xf);
- if (!*dptr) num_tps++;
- ++dptr;
- #else
- *dptr++ = (unsigned char)(byte >> 4 & 0xf);
- *dptr++ = (unsigned char)(byte & 0xf);
- #endif
- }
- if (width & 1)
- {
- d3i_fread(dptr,1,1,f);
- *dptr &= 0xf;
- #if DEBUG_TRANSPARENCY
- if (!*dptr) num_tps++;
- #endif
- }
-
- d3i_fseek(f,(~(width-1) & 7)>>1,SEEK_CUR);
- }
- else
- {
- for (int i=width; i; --i)
- {
- #if DEBUG_TRANSPARENCY
- d3i_fread(dptr,1,1,f);
- if (!*dptr) num_tps++;
- dptr++;
- #else
- d3i_fread(dptr++,1,1,f);
- #endif
- }
- d3i_fseek(f,~(width-1) & 3,SEEK_CUR);
- }
- }
- #if DEBUG_TRANSPARENCY
- if (num_tps) CL_LogFile.lprintf("-- %d TRANSPARENT PIXELS FOUND\n",num_tps);
- #endif
- }
- else if (CLM_16BIT == imode)
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (i=height-1; i>=0; --i)
- {
- CL_Pixel_16 * dptr = im16[i];
-
- for (int i=width; i; --i)
- {
- dptr++->Read(f,CLF_BGR);
- }
- d3i_fseek(f,~(width*3-1) & 3,SEEK_CUR);
- }
-
- }
- else if (CLM_32BIT == imode)
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 const * aptr = *im32;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (i=height-1; i>=0; --i)
- {
- CL_Pixel_32 * dptr = im32[i];
-
- for (int i=width; i; --i)
- {
- dptr++->Read(f,CLF_BGR);
- }
- d3i_fseek(f,~(width*3-1) & 3,SEEK_CUR);
- }
-
- }
- else if (CLM_24BIT == imode)
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 const * aptr = *im24;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (i=height-1; i>=0; --i)
- {
- CL_Pixel_24 * dptr = im24[i];
-
- for (int i=width; i; --i)
- {
- dptr++->Read(f,CLF_BGR);
- }
- d3i_fseek(f,~(width*3-1) & 3,SEEK_CUR);
- }
-
- }
- else return CLE_INVALIDDXMODE;
-
- if (palette_size && CLM_ATTACHEDPALETTE != imode)
- {
- if (CLM_16BIT == imode)
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- unsigned char const * sptr = *im8;
- CL_Pixel_16 * dptr = *im16;
-
- for (int i=size; i; --i, ++dptr,++sptr)
- {
- if (*sptr && !palette[*sptr])
- *dptr = dptr->f.dx_black;
- else
- *dptr = palette[*sptr];
- }
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
- else if (CLM_32BIT == imode)
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- unsigned char const * sptr = *im8;
- CL_Pixel_32 * dptr = *im32;
-
- for (int i=size; i; --i, ++dptr,++sptr)
- {
- if (*sptr && !palette[*sptr])
- *dptr = dptr->f.dx_black;
- else
- *dptr = palette[*sptr];
- }
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 const * aptr = *im32;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
- else
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- unsigned char const * sptr = *im8;
- CL_Pixel_24 * dptr = *im24;
-
- for (int i=size; i; --i, ++dptr,++sptr)
- {
- if (*sptr && !palette[*sptr])
- *dptr = CL_Pixel_24(0,1,0);
- else
- *dptr = palette[*sptr];
- }
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 const * aptr = *im24;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
-
- delete[] palette;
- palette = 0;
- palette_size = 0;
- delete[] *im8;
- delete[] im8;
- im8 = 0;
- }
-
- if (d3i_ferror(f) || d3i_feof(f))
- {
- DeleteNotMips();
- return CLE_LOADERROR;
- }
-
- flags.loaded = 1;
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::Load_PPM(D3I_FILE * f)
-{
- if (!f) return CLE_OPENERROR;
-
- DeleteNotMips();
-
- switch (imode)
- {
- case CLM_24BIT:
- case CLM_16BIT:
- case CLM_32BIT:
- break;
- default:
- return CLE_INVALIDDXMODE;
- }
-
- d3i_fseek(f,0,SEEK_SET);
- unsigned short magic;
- d3i_fread(&magic,2,1,f);
- if (magic != *(unsigned short const *)"P6") return CLE_LOADERROR;
-
- d3i_fseek(f,1,SEEK_CUR);
- char buf[256];
- char * bufptr = buf;
- unsigned int fields[5];
- unsigned int fields_read = 0;
- while (fields_read < 3 && bufptr)
- {
- do bufptr = d3i_fgets(buf, sizeof buf, f);
- while ('#'==buf[0] && bufptr);
-
- int num_fields_read = sscanf(buf,"%u %u %u",&fields[fields_read],&fields[fields_read+1],&fields[fields_read+2]);
- if (EOF != num_fields_read) fields_read += num_fields_read;
- }
- if (fields_read < 3) return CLE_LOADERROR;
- width = fields[0];
- height = fields[1];
- unsigned int maxval = fields[2];
- if (maxval > 255) return CLE_LOADERROR;
-
- size = width * height;
-
- if (CLM_16BIT == imode)
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 * rptr = *im16;
- for (int i=size; i; --i)
- {
- rptr++->Read(f,CLF_RGB,maxval);
- }
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
- else if (CLM_32BIT == imode)
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- CL_Pixel_32 * rptr = *im32;
- for (int i=size; i; --i)
- {
- rptr++->Read(f,CLF_RGB,maxval);
- }
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 const * aptr = *im32;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
- else
- {
- im24 = new CL_Pixel_24 * [height];
- *im24 = new CL_Pixel_24 [size];
-
- CL_Pixel_24 * rptr = *im24;
- for (int i=size; i; --i)
- {
- rptr++->Read(f,CLF_RGB,maxval);
- }
-
- CL_Pixel_24 const * * dptrptr = (CL_Pixel_24 const * *) im24;
- CL_Pixel_24 const * aptr = *im24;
- for (i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
- }
-
- if (d3i_ferror(f) || d3i_feof(f))
- {
- DeleteNotMips();
- return CLE_LOADERROR;
- }
-
- flags.loaded = 1;
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::Load_PGM(D3I_FILE * f)
-{
- if (!f) return CLE_OPENERROR;
-
- DeleteNotMips();
-
- switch (imode)
- {
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- break;
- default:
- return CLE_INVALIDDXMODE;
- }
-
- d3i_fseek(f,0,SEEK_SET);
- unsigned short magic;
- d3i_fread(&magic,2,1,f);
- if (magic != *(unsigned short const *)"P5") return CLE_LOADERROR;
-
- d3i_fseek(f,1,SEEK_CUR);
- char buf[256];
- char * bufptr = buf;
- unsigned int fields[5];
- unsigned int fields_read = 0;
- while (fields_read < 3 && bufptr)
- {
- do bufptr = d3i_fgets(buf, sizeof buf, f);
- while ('#'==buf[0] && bufptr);
-
- int num_fields_read = sscanf(buf,"%u %u %u",&fields[fields_read],&fields[fields_read+1],&fields[fields_read+2]);
- if (EOF != num_fields_read) fields_read += num_fields_read;
- }
- if (fields_read < 3) return CLE_LOADERROR;
- width = fields[0];
- height = fields[1];
- unsigned int maxval = fields[2];
- if (maxval > 255) return CLE_LOADERROR;
-
- size = width * height;
-
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- d3i_fread(*im8,1,size,f);
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char const * aptr = *im8;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- if (d3i_ferror(f) || d3i_feof(f))
- {
- DeleteNotMips();
- return CLE_LOADERROR;
- }
-
- flags.loaded = 1;
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::Load_PWM(D3I_FILE * f)
-{
- if (!f) return CLE_OPENERROR;
-
- DeleteNotMips();
-
- switch (imode)
- {
- case CLM_TLTPALETTE:
- break;
- default:
- return CLE_INVALIDDXMODE;
- }
-
- d3i_fseek(f,0,SEEK_SET);
- unsigned short magic;
- d3i_fread(&magic,2,1,f);
- if (magic != *(unsigned short const *)"P8") return CLE_LOADERROR;
-
- d3i_fseek(f,1,SEEK_CUR);
- char buf[256];
- char * bufptr = buf;
- unsigned int fields[5];
- unsigned int fields_read = 0;
- while (fields_read < 3 && bufptr)
- {
- do bufptr = d3i_fgets(buf, sizeof buf, f);
- while ('#'==buf[0] && bufptr);
-
- int num_fields_read = sscanf(buf,"%u %u %u",&fields[fields_read],&fields[fields_read+1],&fields[fields_read+2]);
- if (EOF != num_fields_read) fields_read += num_fields_read;
- }
- if (fields_read < 3) return CLE_LOADERROR;
- width = fields[0];
- height = fields[1];
- unsigned int maxval = fields[2];
- if (maxval > 65535) return CLE_LOADERROR;
-
- size = width * height;
-
- im16raw = new unsigned short * [height];
- *im16raw = new unsigned short [size];
-
- d3i_fread(*im16raw,2,size,f);
-
- unsigned short const * * dptrptr = (unsigned short const * *) im16raw;
- unsigned short const * aptr = *im16raw;
- for (int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- if (d3i_ferror(f) || d3i_feof(f))
- {
- DeleteNotMips();
- return CLE_LOADERROR;
- }
-
- flags.loaded = 1;
- flags.raw16bit = 1;
- return CLE_OK;
-}
-
-
-
-CL_Error CL_Image::GetBitsPerPixel(unsigned int* bpp)
-{
- *bpp = bitsperpixel;
- return CLE_OK;
-}
-
-CL_Error CL_Image::Load_Image(D3I_FILE * f)
-{
- if (!f) return CLE_OPENERROR;
-
- CL_Error retval = CLE_LOADERROR;
-
- START_TIMER
-
- d3i_fseek(f,0,SEEK_SET);
- unsigned short magic;
- d3i_fread(&magic,2,1,f);
-
- if ( *(unsigned short const *)"BM" == magic)
- retval = Load_BMP(f);
- else if ( *(unsigned short const *)"P6" == magic)
- retval = Load_PPM(f);
- else if ( *(unsigned short const *)"P5" == magic)
- retval = Load_PGM(f);
- else if ( *(unsigned short const *)"P8" == magic)
- retval = Load_PWM(f);
- #if OUTPUT_LOG
- else CL_LogFile.lputs("** ERROR: Not a recognized file format\n");
- #endif
-
- END_TIMER(ReadTime)
-
- #if OUTPUT_LOG
- #if TIME_LOADS
- CL_LogFile.lprintf("-- Timer Stats (ms): Open %d Read %d Close %d\n",OpenTime,ReadTime,CloseTime);
- #endif
- #endif
-
- return retval;
-}
-
-
-void CL_Image::PadTo(int const width_unit,int const height_unit)
-{
- if (!flags.loaded) return;
-
- unsigned int const owidth = width;
- unsigned int const oheight = height;
-
- width += width_unit-1;
- width &= ~(width_unit-1);
- height += height_unit-1;
- height &= ~(height_unit-1);
-
- if (width == owidth && height == oheight) return; // already in spec
-
- size = width * height;
-
- CL_Pixel_32 * * const oim32 = im32;
- CL_Pixel_16 * * const oim16 = im16;
- unsigned char * * const oim8 = im8;
-
- if (oim32)
- {
- im32 = new CL_Pixel_32 * [height];
- *im32 = new CL_Pixel_32 [size];
-
- CL_Pixel_32 const * * dptrptr = (CL_Pixel_32 const * *) im32;
- CL_Pixel_32 const * aptr = *im32;
- for (unsigned int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (unsigned int y = 0; y < oheight; ++y)
- {
- CL_Pixel_32 const * sptr = oim32[y];
- CL_Pixel_32 * dptr = im32[y];
-
- for (unsigned int x = 0; x < owidth; ++x, ++dptr, ++sptr)
- *dptr = *sptr;
-
- for (; x < width; ++x, ++dptr)
- *dptr = CL_Pixel_24(0,0,0);
- }
-
- for (; y < height; ++y)
- {
- CL_Pixel_32 * dptr = im32[y];
- for (unsigned int x = 0; x < width; ++x, ++dptr)
- *dptr = CL_Pixel_24(0,0,0);
- }
-
- delete[] *oim32;
- delete[] oim32;
- }
-
- if (oim16)
- {
- im16 = new CL_Pixel_16 * [height];
- *im16 = new CL_Pixel_16 [size];
-
- CL_Pixel_16 const * * dptrptr = (CL_Pixel_16 const * *) im16;
- CL_Pixel_16 const * aptr = *im16;
- for (unsigned int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (unsigned int y = 0; y < oheight; ++y)
- {
- CL_Pixel_16 const * sptr = oim16[y];
- CL_Pixel_16 * dptr = im16[y];
-
- for (unsigned int x = 0; x < owidth; ++x, ++dptr, ++sptr)
- *dptr = *sptr;
-
- for (; x < width; ++x, ++dptr)
- *dptr = CL_Pixel_24(0,0,0);
- }
-
- for (; y < height; ++y)
- {
- CL_Pixel_16 * dptr = im16[y];
- for (unsigned int x = 0; x < width; ++x, ++dptr)
- *dptr = CL_Pixel_24(0,0,0);
- }
-
- delete[] *oim16;
- delete[] oim16;
- }
-
- if (oim8)
- {
- im8 = new unsigned char * [height];
- *im8 = new unsigned char [size];
-
- unsigned char const * * dptrptr = (unsigned char const * *) im8;
- unsigned char const * aptr = *im8;
- for (unsigned int i=height; i; --i, aptr+=width)
- {
- *dptrptr++ = aptr;
- }
-
- for (unsigned int y = 0; y < oheight; ++y)
- {
- unsigned char const * sptr = oim8[y];
- unsigned char * dptr = im8[y];
-
- for (unsigned int x = 0; x < owidth; ++x, ++dptr, ++sptr)
- *dptr = *sptr;
-
- for (; x < width; ++x, ++dptr)
- *dptr = 0;
- }
-
- for (; y < height; ++y)
- {
- unsigned char * dptr = im8[y];
- for (unsigned int x = 0; x < width; ++x, ++dptr)
- *dptr = 0;
- }
-
- delete[] *oim8;
- delete[] oim8;
- }
-}
-
-// implementation of the 'popularity algorithm' for reducing palette
-
-unsigned int CL_Pixel_24::FVD_Distance(CL_Pixel_24 const & p2) const
-{
- unsigned int dg = g > p2.g ? g - p2.g : p2.g - g;
- unsigned int db = b > p2.b ? b - p2.b : p2.b - b;
-
- unsigned int dgb = dg + db + ((dg > db ? dg : db)<<1);
-
- unsigned int dr = r > p2.r ? r - p2.r : p2.r - r;
- dr += dr<<1; // *= 3
-
- return dr + dgb + ((dr > dgb ? dr : dgb)<<1);
-}
-
-struct _CL_palpixcnt
-{
- unsigned int cnt;
- unsigned int palpos;
-};
-
-int _CL_cmp_palpixcnt(void const * e1, void const * e2)
-{
- return ((_CL_palpixcnt *)e2)->cnt - ((_CL_palpixcnt *)e1)->cnt;
-}
-
-CL_Error CL_Image::ReducePalette(unsigned int const num_colours)
-{
- if (!flags.loaded) return CLE_LOADERROR;
-
- if (!palette) return CLE_INVALIDDXMODE;
- if (!im8) return CLE_INVALIDDXMODE;
-
- if (palette_size <= num_colours) return CLE_OK;
-
- _CL_palpixcnt * const sortarray = new _CL_palpixcnt[palette_size];
-
- for (unsigned int i=0; i<palette_size; ++i)
- {
- sortarray[i].cnt = 0;
- sortarray[i].palpos = i;
- }
-
- for (unsigned int y=0; y<height; ++y)
- {
- unsigned char const * sptr = im8[y];
-
- for (unsigned int x=width; x; --x, ++sptr)
- ++ sortarray[*sptr].cnt;
- }
-
- unsigned int const palstart = CL_Pixel_24(0,0,0) == palette[0] ? 1 : 0;
- qsort(sortarray + palstart, palette_size - palstart, sizeof(_CL_palpixcnt), _CL_cmp_palpixcnt);
-
- CL_Pixel_24 * const opalette = palette;
- unsigned int const opalette_size = palette_size;
- palette = new CL_Pixel_24[num_colours];
- palette_size = num_colours;
-
- for (i=0; i<palette_size; ++i)
- palette[i] = opalette[sortarray[i].palpos];
-
- delete[] sortarray;
-
- // umm - if theres black thats not transparent, make sure it doesnt become colour 0 in palette
- for (unsigned int pswap=1; pswap<palette_size && 0==palstart && CL_Pixel_24(0,0,0)==palette[0]; ++pswap)
- {
- palette[0]=palette[pswap];
- palette[pswap]=CL_Pixel_24(0,0,0);
- }
-
- // emergency?
- if (0==palstart && CL_Pixel_24(0,0,0)==palette[0])
- palette[0] = CL_Pixel_24(1,1,1);
-
- unsigned int * const palmaps = new unsigned int [opalette_size];
- palmaps[0] = 0;
- for (i=palstart; i<opalette_size; ++i)
- {
- unsigned int closest = palstart;
- unsigned int distance = opalette[i].FVD_Distance(palette[palstart]);
-
- for (unsigned int j = palstart+1; j<palette_size; ++j)
- {
- unsigned int thisdist = opalette[i].FVD_Distance(palette[j]);
- if (thisdist < distance)
- {
- distance = thisdist;
- closest = j;
- }
- }
-
- palmaps[i] = closest;
- }
-
- delete[] opalette;
-
- for (y=0; y<height; ++y)
- {
- unsigned char * sptr = im8[y];
-
- for (unsigned int x=width; x; --x, ++sptr)
- *sptr = (unsigned char)palmaps[*sptr];
- }
-
- delete[] palmaps;
-
- return CLE_OK;
-}
-
-// useful filename handling functions
-
-// returns pointer into string pointing to filename without dirname
-static char const * strip_path(char const * n)
-{
- char const * rm = strrchr(n,':');
- if (rm) n = rm+1;
- rm = strrchr(n,'/');
- if (rm) n = rm+1;
- rm = strrchr(n,'\\');
- if (rm) n = rm+1;
-
- return n;
-}
-
-#if 0
-static char * strip_path(char * n)
-{
- char * rm = strrchr(n,':');
- if (rm) n = rm+1;
- rm = strrchr(n,'/');
- if (rm) n = rm+1;
- rm = strrchr(n,'\\');
- if (rm) n = rm+1;
-
- return n;
-}
-#endif
-
-// removes any .extension from filename by inserting null character
-static void strip_file_extension(char * n)
-{
- char * dotpos = strrchr(n,'.');
- if (dotpos) *dotpos = 0;
-}
-
-static char * strip_file_extension(char const * n)
-{
- char * nn = new char[strlen(n)+1];
- strcpy(nn,n);
- strip_file_extension(nn);
- return nn;
-}
-
-// CL_Image functions
-
-CL_Error CL_Image::Locate(char const * iname, int const /* enum_id */)
-{
- if (!iname) return CLE_RIFFERROR;
-
- if (name)
- delete[] name;
- name = strip_file_extension(strip_path(iname));
-
- if (fname)
- delete[] fname;
- fname = new char[strlen(iname)+1];
- strcpy(fname,iname);
-
- flags.located = 1;
- return CLE_OK;
-}
-
-CL_Error CL_Image::Load(char const * const iname, int const enum_id)
-{
- if (iname || CL_EID_INVALID != enum_id || !flags.located)
- {
- CL_Error locate_err = Locate(iname,enum_id);
-
- if (locate_err != CLE_OK)
- {
- EXITONLOCATEFAIL(locate_err,iname,enum_id)
- return locate_err;
- }
- }
-
- #if OUTPUT_LOG
- char const * texformat;
- unsigned int redbits = 8;
- unsigned int greenbits = 8;
- unsigned int bluebits = 8;
- switch (imode)
- {
- case CLM_GLOBALPALETTE:
- texformat = "Palettized Display";
- break;
- case CLM_TLTPALETTE:
- texformat = "Palettized Display with Abstract TLT Palette";
- break;
- case CLM_ATTACHEDPALETTE:
- texformat = "Palettized Textures";
- break;
- case CLM_32BIT:
- texformat = "32BIT DX";
- redbits += CL_Pixel_32::f.red_bits_gt8;
- redbits -= CL_Pixel_32::f.red_bits_lt8;
- greenbits += CL_Pixel_32::f.green_bits_gt8;
- greenbits -= CL_Pixel_32::f.green_bits_lt8;
- bluebits += CL_Pixel_32::f.blue_bits_gt8;
- bluebits -= CL_Pixel_32::f.blue_bits_lt8;
- break;
- case CLM_24BIT:
- texformat = "24-bit for runtime conversion";
- break;
- case CLM_16BIT:
- texformat = "16BIT DX";
- redbits += CL_Pixel_16::f.red_bits_gt8;
- redbits -= CL_Pixel_16::f.red_bits_lt8;
- greenbits += CL_Pixel_16::f.green_bits_gt8;
- greenbits -= CL_Pixel_16::f.green_bits_lt8;
- bluebits += CL_Pixel_16::f.blue_bits_gt8;
- bluebits -= CL_Pixel_16::f.blue_bits_lt8;
- break;
- }
- CL_LogFile.lprintf("--%s %s (%u-bit, %u-%u-%u)\n",fname,texformat,bitsperpixel,redbits,greenbits,bluebits);
- #endif
-
- START_TIMER
- D3I_FILE * fp = d3i_fopen(fname,"rb");
- END_TIMER(OpenTime)
-
- if (fp)
- {
- CL_Error retval = Load_Image(fp);
- START_TIMER
- d3i_fclose(fp);
- END_TIMER(CloseTime)
- if (CLE_OK != retval)
- {
- #if OUTPUT_LOG
- CL_LogFile.lputs("** ERROR: unable to read\n");
- #endif
- EXITONREADFAIL(fname)
- }
- return retval;
- }
-
- #if OUTPUT_LOG
- CL_LogFile.lputs("** ERROR: unable to open\n");
- #endif
- EXITONLOADFAIL(fname)
- return CLE_OPENERROR;
-}
-
-CL_Error CL_Image::PreLoad(char const * const iname, int const enum_id)
-{
- CL_Error locate_err = Locate(iname,enum_id);
-
- if (locate_err != CLE_OK)
- {
- return locate_err;
- }
-
- return CLE_OK;
-}
-
-CL_Error CL_Image::LoadMipMaps(int const n_mips) // assumes locating has been done (ie. PreLoad or Load has been called)
-{
- if (!flags.located) return CLE_FINDERROR;
-
- while (mipmaps.size())
- {
- delete mipmaps.last_entry();
- mipmaps.delete_last_entry();
- }
-
- for (int mip_idx = 1; mip_idx < n_mips; ++mip_idx)
- {
- CL_Image * mip_n = new CL_Image;
-
- mip_n->name = new char[strlen(name)+1];
- mip_n->fname = new char[strlen(fname)+1];
- strcpy(mip_n->name,name);
- strcpy(mip_n->fname,fname);
-
- char * dotpos = strrchr(mip_n->fname,'.');
- if (!dotpos)
- {
- delete mip_n;
- break;
- }
- sprintf(dotpos+3,"%1d",mip_idx);
-
- mip_n->flags.located = 1;
-
- if (CLE_OK!=mip_n->Load())
- {
- delete mip_n;
- break;
- }
-
- if (mip_n->width << mip_idx < width || mip_n->height << mip_idx < height)
- {
- delete mip_n;
- #if OUTPUT_LOG
- CL_LogFile.lputs("** Warning: less than half size\n");
- #endif
- break;
- }
-
- mipmaps.add_entry_end(mip_n);
- }
- return CLE_OK;
-}
-
-void CL_Select_Mode(CL_LoadMode const lmode)
-{
- switch (lmode)
- {
- case CLL_D3DTEXTURE:
- CL_Image::imode = CL_Image::imode_d3d;
- CL_Image::bitsperpixel = CL_Image::bitsperpixel_d3d;
- CL_Pixel_16::f = CL_Pixel_16::f_d3d;
- CL_Pixel_32::f = CL_Pixel_32::f_d3d;
- break;
- case CLL_DDSURFACE:
- CL_Image::imode = CL_Image::imode_ddraw;
- CL_Image::bitsperpixel = CL_Image::bitsperpixel_ddraw;
- CL_Pixel_16::f = CL_Pixel_16::f_ddraw;
- CL_Pixel_32::f = CL_Pixel_32::f_ddraw;
- break;
- }
- CL_Image::lmode = lmode;
-}
-
-// 3DC interface
-
-void CL_Init_DirectDrawMode(CL_VideoMode const vmode)
-{
- switch (vmode)
- {
- case CLV_8:
- CL_Image::bitsperpixel_ddraw = 8;
- CL_Image::imode_ddraw = CLM_GLOBALPALETTE;
- break;
- case CLV_8TLT:
- CL_Image::bitsperpixel_ddraw = 8;
- CL_Image::imode_ddraw = CLM_TLTPALETTE;
- break;
- case CLV_15:
- CL_Image::bitsperpixel_ddraw = 16;
- CL_Image::imode_ddraw = CLM_16BIT;
- CL_Pixel_16::f_ddraw.Init
- (
- DisplayPixelFormat.dwRBitMask,
- DisplayPixelFormat.dwGBitMask,
- DisplayPixelFormat.dwBBitMask
- );
- break;
- case CLV_24:
- CL_Image::bitsperpixel_ddraw = DisplayPixelFormat.dwRGBBitCount;
- if (24 == CL_Image::bitsperpixel_ddraw)
- CL_Image::imode_ddraw = CLM_24BIT;
- else
- {
- CL_Image::imode_ddraw = CLM_32BIT;
- CL_Pixel_32::f_ddraw.Init
- (
- DisplayPixelFormat.dwRBitMask,
- DisplayPixelFormat.dwGBitMask,
- DisplayPixelFormat.dwBBitMask
- );
- }
- break;
- case CLV_8T:
- CL_Image::bitsperpixel_ddraw = 8;
- CL_Image::imode_ddraw = CLM_16BIT;
- CL_Pixel_16::f_ddraw.Init(7<<5,7<<2,3);
- break;
- }
- CL_Select_Mode(CLL_DDSURFACE);
-}
-
-
-CL_Error CL_Image::CopyToScanDrawTexture(unsigned char * * const ImagePtrA [], unsigned int n_mips_max)
-{
- if (!flags.loaded) return CLE_LOADERROR;
-
- if (CLL_DDSURFACE != lmode) CL_Select_Mode(CLL_DDSURFACE);
-
- if (n_mips_max > mipmaps.size()+1) n_mips_max = mipmaps.size()+1;
-
- if (!*ImagePtrA[0])
- {
- if (flags.raw16bit)
- {
- if (n_mips_max>1)
- *ImagePtrA[0] = (unsigned char *) AllocateMem((2*width+1)*(2*height+1)*2/3+(n_mips_max-3)*2); // slightly more than 4/3 w*h*bytedepth
- else
- *ImagePtrA[0] = (unsigned char *) AllocateMem(width*height*2);
- }
- else
- {
- if (n_mips_max>1)
- *ImagePtrA[0] = (unsigned char *) AllocateMem((2*width+1)*(2*height+1)*bitsperpixel/24+(n_mips_max-3)*(bitsperpixel/8)); // slightly more than 4/3 w*h*bytedepth
- else
- *ImagePtrA[0] = (unsigned char *) AllocateMem(width*height*(bitsperpixel>>3));
- }
- }
- if (!*ImagePtrA[0])
- return CLE_ALLOCFAIL;
-
- unsigned int my_bitsperpixel = bitsperpixel;
-
- switch (imode)
- {
- unsigned char * tptr;
- unsigned short * tSptr;
- unsigned long * tLptr;
-
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- if (flags.raw16bit)
- {
- my_bitsperpixel = 16;
- tSptr = (unsigned short *)*ImagePtrA[0];
- if (tSptr)
- {
- for (int i=0; i<height; ++i)
- {
- memcpy(tSptr,im16raw[i],width*sizeof(unsigned short));
- tSptr += width;
- }
- }
- }
- else
- {
- tptr = *ImagePtrA[0];
- if (tptr)
- {
- for (int i=0; i<height; ++i)
- {
- memcpy(tptr,im8[i],width);
- tptr += width;
- }
- }
- }
- break;
- case CLM_16BIT:
- switch (bitsperpixel)
- {
- case 8:
- tptr = *ImagePtrA[0];
- if (tptr)
- {
- for (int i=0; i<height; ++i)
- {
- unsigned char const * i8ptr = im8[i];
- for (int j=width; j; --j)
- {
- *tptr++ = *i8ptr++;
- }
- }
- }
- break;
- case 16:
- tSptr = (unsigned short *)*ImagePtrA[0];
- if (tSptr)
- {
- for (int i=0; i<height; ++i)
- {
- CL_Pixel_16 const * i16ptr = im16[i];
- for (int j=width; j; --j)
- {
- *tSptr++ = *i16ptr++;
- }
- }
- }
- break;
- }
- break;
- case CLM_24BIT:
- switch (bitsperpixel)
- {
- case 24:
- tptr = *ImagePtrA[0];
- if (tptr)
- {
- for (int i=0; i<height; ++i)
- {
- CL_Pixel_24 const * i24ptr = im24[i];
- for (int j=width; j; --j)
- {
- *tptr++ = i24ptr->b;
- *tptr++ = i24ptr->g;
- *tptr++ = i24ptr->r;
- i24ptr++;
- }
- }
- }
- break;
- case 32:
- tLptr = (unsigned long *)*ImagePtrA[0];
- if (tLptr)
- {
- for (int i=0; i<height; ++i)
- {
- CL_Pixel_32 const * i32ptr = im32[i];
- for (int j=width; j; --j)
- {
- *tLptr++ = *i32ptr++;
- }
- }
- }
- break;
- }
- break;
- default:
- return CLE_INVALIDDXMODE;
- }
-
- // now do mipmaps if avail
-
- CL_Image * last_mipP = this;
-
- LIF<CL_Image *> i_mip(&mipmaps);
- for (int i=1; i<n_mips_max && !i_mip.done(); ++i, i_mip.next())
- {
- *ImagePtrA[i] = *ImagePtrA[i-1] + last_mipP->width*last_mipP->height*(my_bitsperpixel>>3);
- CL_Error thismipmaperror = i_mip()->CopyToScanDrawTexture(&ImagePtrA[i],1);
- if (CLE_OK != thismipmaperror) return thismipmaperror;
- last_mipP = i_mip();
- }
- return CLE_OK;
-}
-
-
-
-// Direct X interface
-
-void CL_Init_D3DMode(LPDDSURFACEDESC const format)
-{
- CL_Image::format = format;
-
- if (format->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED8)
- {
- #if QUANTISE_ON_LOAD
- CL_Image::imode_d3d = CLM_24BIT;
- #else
- CL_Image::imode_d3d = CLM_ATTACHEDPALETTE;
- #endif
- CL_Image::bitsperpixel_d3d = 8;
- }
- else if (format->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED4)
- {
- #if QUANTISE_ON_LOAD
- CL_Image::imode_d3d = CLM_24BIT;
- #else
- CL_Image::imode_d3d = CLM_ATTACHEDPALETTE;
- #endif
- CL_Image::bitsperpixel_d3d = 4;
- }
- else if (format->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED2)
- {
- #if QUANTISE_ON_LOAD
- CL_Image::imode_d3d = CLM_24BIT;
- #else
- CL_Image::imode_d3d = CLM_ATTACHEDPALETTE;
- #endif
- CL_Image::bitsperpixel_d3d = 2;
- }
- else if (format->ddpfPixelFormat.dwFlags & DDPF_PALETTEINDEXED1)
- {
- #if QUANTISE_ON_LOAD
- CL_Image::imode_d3d = CLM_24BIT;
- #else
- CL_Image::imode_d3d = CLM_ATTACHEDPALETTE;
- #endif
- CL_Image::bitsperpixel_d3d = 1;
- }
- else
- {
- CL_Image::bitsperpixel_d3d = format->ddpfPixelFormat.dwRGBBitCount;
- if (format->ddpfPixelFormat.dwRGBBitCount > 16)
- {
- CL_Image::imode_d3d = CLM_32BIT;
- CL_Pixel_32::f_d3d.Init
- (
- format->ddpfPixelFormat.dwRBitMask,
- format->ddpfPixelFormat.dwGBitMask,
- format->ddpfPixelFormat.dwBBitMask
- );
- }
- else
- {
- CL_Image::imode_d3d = CLM_16BIT;
- CL_Pixel_16::f_d3d.Init
- (
- format->ddpfPixelFormat.dwRBitMask,
- format->ddpfPixelFormat.dwGBitMask,
- format->ddpfPixelFormat.dwBBitMask
- );
- }
- }
- CL_Select_Mode(CLL_D3DTEXTURE);
-}
-
-
-CL_Error CL_Image::CopyToD3DTexture(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], int const MemoryType, unsigned int n_mips_max)
-{
- if (!flags.loaded) return CLE_LOADERROR;
-
- WaitForVRamReady(VWS_D3DTEXCREATE);
-
- if (CLL_D3DTEXTURE != lmode) CL_Select_Mode(CLL_D3DTEXTURE);
-
- LPDIRECTDRAWSURFACE lpDDS;
- DDSURFACEDESC ddsd;
- HRESULT ddrval;
-
- // Check for image being 4 byte aligned
- // and fail if it is not
- if (width & 3 || height & 3)
- {
- // return error code
- return CLE_DXERROR;
- }
-
-
- // Set up the surface description. starting
- // with the passed texture format and then
- // incorporating the information read from the
- // ppm.
- memcpy(&ddsd, format, sizeof(DDSURFACEDESC));
- ddsd.dwSize = sizeof(DDSURFACEDESC);
- ddsd.dwFlags = (DDSD_CAPS | DDSD_HEIGHT | DDSD_WIDTH | DDSD_PIXELFORMAT);
- ddsd.ddsCaps.dwCaps = (DDSCAPS_TEXTURE | MemoryType);
- ddsd.dwHeight = height;
- ddsd.dwWidth = width;
-
- if (n_mips_max > mipmaps.size()+1) n_mips_max = mipmaps.size()+1;
-
- if (n_mips_max>1)
- {
- ddsd.dwFlags |= DDSD_MIPMAPCOUNT;
- ddsd.ddsCaps.dwCaps |= DDSCAPS_MIPMAP | DDSCAPS_COMPLEX;
- ddsd.dwMipMapCount = n_mips_max;
- }
-
- // Create the surface
- ddrval = lpDD->CreateSurface(&ddsd, &lpDDS, NULL);
-
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
-
- // now do mipmaps if avail
-
- if (n_mips_max>1)
- {
- // We must now traverse the mip-map chain from highest to lowest
- // resolutions, For each surface AFTER the first one, we must
- // load a new file, using a name obtained from the mip map number
-
- int MipMapNum = 0;
- LPDIRECTDRAWSURFACE lpThisMipMap, lpNextMipMap;
- DDSCAPS ddsCaps;
-
-
- lpThisMipMap = lpDDS;
- // Component Object Model, increase reference count on
- // mip-map surface by one.
- lpThisMipMap->AddRef();
- ddsCaps.dwCaps = (DDSCAPS_TEXTURE | DDSCAPS_MIPMAP);
- ddrval = DD_OK;
-
- LIF<CL_Image *> i_mip(&mipmaps);
-
- CL_Image * last_mipP = this;
-
- while ((ddrval == DD_OK) && (MipMapNum < n_mips_max)) // both tests in case...
- {
- // Call LoadPPMIntoDDSurface with lpThisMipMap, new file name, and
- // other values.
-
- *DDSurfaceA[MipMapNum] = last_mipP->CopyToDDSurface(lpThisMipMap);
-
- // Death trap
- if (!*DDSurfaceA[MipMapNum])
- {
- return CLE_DXERROR;
- }
- *DDPtrA[MipMapNum] = lpThisMipMap;
-
- // Proceed to the next level.
- // Collect bonus rings.
- ddrval = lpThisMipMap->GetAttachedSurface(&ddsCaps, &lpNextMipMap);
- // Necessary to match the manual increment of the reference count on the
- // COM texture. I think.
- lpThisMipMap->Release();
- // ?? lpNextMipMap = lpThisMipMap;
- lpThisMipMap = lpNextMipMap;
-
- MipMapNum++;
- if (!i_mip.done())
- {
- last_mipP = i_mip();
- i_mip.next();
- }
- }
- }
- else
- {
- *DDSurfaceA[0] = CopyToDDSurface(lpDDS);
-
- if (!*DDSurfaceA[0]) return CLE_DXERROR;
-
- *DDPtrA[0] = lpDDS;
- }
-
- return CLE_OK;
-}
-
-
-CL_Error CL_Image::CopyToDirectDrawSurface(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], int const MemoryType, unsigned int n_mips_max)
-{
- if (!flags.loaded) return CLE_LOADERROR;
-
- WaitForVRamReady(VWS_DDCREATE);
-
- if (CLL_DDSURFACE != lmode) CL_Select_Mode(CLL_DDSURFACE);
-
- LPDIRECTDRAWSURFACE lpDDS;
- DDSURFACEDESC ddsd;
- HRESULT ddrval;
-
- // Check for image being 4 byte aligned
- // and fail if it is not
- if (width & 3 || height & 3)
- {
- // return error code
- return CLE_DXERROR;
- }
-
- if (n_mips_max > mipmaps.size()+1) n_mips_max = mipmaps.size()+1;
-
- // Set up the surface description. starting
- // with the passed texture format and then
- // incorporating the information read from the
- // ppm.
- memset(&ddsd, 0, sizeof ddsd);
- ddsd.dwSize = sizeof ddsd;
- ddsd.dwFlags = (DDSD_CAPS | DDSD_HEIGHT | DDSD_WIDTH | DDSD_PIXELFORMAT);
- // Ensure that created surface has same pixel desription
- // as primary
- memcpy(&ddsd.ddpfPixelFormat, &DisplayPixelFormat, sizeof(DDPIXELFORMAT));
- ddsd.ddsCaps.dwCaps = (DDSCAPS_OFFSCREENPLAIN | MemoryType);
- ddsd.dwHeight = height;
- ddsd.dwWidth = width;
-
- if (n_mips_max>1)
- {
- ddsd.dwFlags |= DDSD_MIPMAPCOUNT;
- ddsd.ddsCaps.dwCaps |= DDSCAPS_MIPMAP | DDSCAPS_COMPLEX;
- ddsd.dwMipMapCount = n_mips_max;
- }
-
- // Create the surface
- ddrval = lpDD->CreateSurface(&ddsd, &lpDDS, NULL);
-
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
- DDCOLORKEY set_zero = {0,0};
- ddrval = lpDDS->SetColorKey(DDCKEY_SRCBLT, &set_zero);
-
- LOGDXERR(ddrval);
- if(ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
-
- // now do mipmaps if avail
-
- if (n_mips_max>1)
- {
- // We must now traverse the mip-map chain from highest to lowest
- // resolutions, For each surface AFTER the first one, we must
- // load a new file, using a name obtained from the mip map number
-
- int MipMapNum = 0;
- LPDIRECTDRAWSURFACE lpThisMipMap, lpNextMipMap;
- DDSCAPS ddsCaps;
-
-
- lpThisMipMap = lpDDS;
- // Component Object Model, increase reference count on
- // mip-map surface by one.
- lpThisMipMap->AddRef();
- ddsCaps.dwCaps = (DDSCAPS_TEXTURE | DDSCAPS_MIPMAP);
- ddrval = DD_OK;
-
- LIF<CL_Image *> i_mip(&mipmaps);
-
- CL_Image * last_mipP = this;
-
- while ((ddrval == DD_OK) && (MipMapNum < n_mips_max)) // both tests in case...
- {
- // Call LoadPPMIntoDDSurface with lpThisMipMap, new file name, and
- // other values.
-
- *DDSurfaceA[MipMapNum] = last_mipP->CopyToDDSurface(lpThisMipMap);
-
- // Death trap
- if (!*DDSurfaceA[MipMapNum])
- {
- return CLE_DXERROR;
- }
- *DDPtrA[MipMapNum] = lpThisMipMap;
-
- // Proceed to the next level.
- // Collect bonus rings.
- ddrval = lpThisMipMap->GetAttachedSurface(&ddsCaps, &lpNextMipMap);
- // Necessary to match the manual increment of the reference count on the
- // COM texture. I think.
- lpThisMipMap->Release();
- // ?? lpNextMipMap = lpThisMipMap;
- lpThisMipMap = lpNextMipMap;
-
- MipMapNum++;
- if (!i_mip.done())
- {
- last_mipP = i_mip();
- i_mip.next();
- }
- }
- }
- else
- {
- *DDSurfaceA[0] = CopyToDDSurface(lpDDS);
-
- if (!*DDSurfaceA[0]) return CLE_DXERROR;
-
- *DDPtrA[0] = lpDDS;
- }
-
- return CLE_OK;
-}
-
-
-LPVOID CL_Image::CopyToDDSurface(LPDIRECTDRAWSURFACE lpDDS)
-{
- if (!flags.loaded) return 0;
-
- LPDIRECTDRAWPALETTE lpDDPPMPal;
- PALETTEENTRY ppe[256];
- DDSURFACEDESC ddsd;
- #if QUANTISE_ON_LOAD
- D3DCOLOR colors[256];
- D3DCOLOR c;
- int color_count;
- #endif
- int psize;
- char *lpC;
- HRESULT ddrval;
- unsigned int i, j;
- unsigned int pcaps;
-
- // Lock the surface so it can be filled with the PPM file
-
- memset(&ddsd, 0, sizeof(DDSURFACEDESC));
- ddsd.dwSize = sizeof(DDSURFACEDESC);
- ddrval = lpDDS->Lock(NULL, &ddsd, 0, NULL);
-
- if (!ddsd.lpSurface)
- {
- lpDDS->Unlock(NULL);
- lpDDS->Release();
- LOGDXSTR("No surface");
- return 0;
- }
-
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return 0;
- #endif
- }
-
- // The method of loading depends on the pixel format of the dest surface
-
- switch (imode)
- {
- case CLM_32BIT:
- switch (bitsperpixel)
- {
- case 32:
- for (j = 0; j < height; j++)
- {
- // Point to next row in texture surface
- unsigned long * lpLP = (unsigned long*)((char*)ddsd.lpSurface
- + ddsd.lPitch * j);
- CL_Pixel_32 * lpP32 = im32[j];
- for (i = width; i; --i)
- {
- *lpLP++ = *lpP32++;
- }
- }
- break;
- case 24:
- for (j = 0; j < height; j++)
- {
- // Point to next row in texture surface
- unsigned char * lpCP = (unsigned char*)ddsd.lpSurface
- + ddsd.lPitch * j;
- CL_Pixel_32 * lpP32 = im32[j];
- for (i = width; i; --i)
- {
- unsigned long lv = *lpP32++;
- unsigned char const * lpSrcCP = (unsigned char const *)&lv;
- // dodgy - makes assumtions about 24-bit values...
- *lpCP++ = *lpSrcCP++;
- *lpCP++ = *lpSrcCP++;
- *lpCP++ = *lpSrcCP++;
- }
- }
- break;
- default:
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Unlock(NULL);
- lpDDS->Release();
- return 0;
- #endif
- }
- lpDDS->Unlock(NULL);
- break;
- case CLM_16BIT:
- switch (bitsperpixel)
- {
- case 16:
- for (j = 0; j < height; j++)
- {
- // Point to next row in texture surface
- unsigned short * lpSP = (unsigned short*)((char*)ddsd.lpSurface
- + ddsd.lPitch * j);
- CL_Pixel_16 * lpP16 = im16[j];
- for (i = width; i; --i)
- {
- *lpSP++ = *lpP16++;
- }
- }
- break;
- case 8:
- for (j = 0; j < height; j++)
- {
- // Point to next row in texture surface
- unsigned char * lpCP = (unsigned char*)ddsd.lpSurface
- + ddsd.lPitch * j;
- CL_Pixel_16 * lpP16 = im16[j];
- for (i = width; i; --i)
- {
- *lpCP++ = *lpP16++;
- }
- }
- break;
- default:
- // Everything's gone pear-shaped...
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Unlock(NULL);
- lpDDS->Release();
- return 0;
- #endif
- }
- lpDDS->Unlock(NULL);
- break;
- case CLM_24BIT:
- if (24==bitsperpixel)
- {
- for (j = 0; j < height; j++)
- {
- // Point to next row in surface
- unsigned char * lpCP = ((unsigned char*)ddsd.lpSurface) + ddsd.lPitch * j;
- CL_Pixel_24 * lpP24 = im24[j];
- for (i = 0; i < width; i++)
- {
- // making an assumption about the ordering of r,g,b on the video card
- *lpCP++ = lpP24->b;
- *lpCP++ = lpP24->g;
- *lpCP++ = lpP24->r;
- lpP24++;
- }
- }
- lpDDS->Unlock(NULL);
- }
- else
- {
- #if QUANTISE_ON_LOAD // Neal's quantize on load stuff
-
- // Paletted target texture surface
- psize = 1<<bitsperpixel;
- color_count = 0; // number of colors in the texture
- for (j = 0; j < height; j++)
- {
- // Point to next row in surface
- lpC = ((char*)ddsd.lpSurface) + ddsd.lPitch * j;
- CL_Pixel_24 * lpP24 = im24[j];
- for (i = 0; i < width; i++, lpP24++)
- {
- int k;
- // Get the next red, green and blue values and turn them into a
- // D3DCOLOR.
- c = RGB_MAKE(lpP24->r, lpP24->g, lpP24->b);
- // Search for this color in a table of colors in this texture
- for (k = 0; k < color_count; k++)
- if (c == colors[k]) break;
- if (k == color_count)
- {
- // This is a new color, so add it to the list
- color_count++;
- // More than 256 and we fail (8-bit)
- if (color_count > psize)
- {
- color_count--;
- k = color_count - 1;
- }
- colors[k] = c;
- }
- // Set the "pixel" value on the surface to be the index into the
- // color table
- if (psize<256)
- {
- unsigned int bitmask;
- switch (psize)
- {
- default:
- bitmask = 1;
- break;
- case 4:
- bitmask = 3;
- break;
- case 2:
- bitmask = 7;
- break;
- }
- if ((i & bitmask) == 0)
- *lpC = (char)(k & (psize-1));
- else
- *lpC |= (char)((k & (psize-1)) << (i & (psize-1)));
- if ((~i & bitmask) == 0)
- lpC++;
- }
- else
- {
- *lpC = (char)k;
- lpC++;
- }
- }
- }
-
- // Close the file and unlock the surface
-
- lpDDS->Unlock(NULL);
-
- if (color_count > psize)
- {
- // If there are more than 256 colors, we overran our palette
- #if debug
- ReleaseDirect3D();
- exit(0x321123);
- #else
- lpDDS->Release();
- return 0;
- #endif
- }
-
- // Create a palette with the colors in our color table
-
- memset(ppe, 0, sizeof(PALETTEENTRY) * 256);
- for (i = 0; i < color_count; i++)
- {
- ppe[i].peRed = (unsigned char)RGB_GETRED(colors[i]);
- ppe[i].peGreen = (unsigned char)RGB_GETGREEN(colors[i]);
- ppe[i].peBlue = (unsigned char)RGB_GETBLUE(colors[i]);
- }
-
- // Set all remaining entry flags to D3DPAL_RESERVED, which are ignored by
- // the renderer.
-
- for (; i < 256; i++)
- ppe[i].peFlags = D3DPAL_RESERVED;
-
- // Create the palette with the DDPCAPS_ALLOW256 flag because we want to
- // have access to all entries.
-
- switch (bitsperpixel)
- {
- default:
- pcaps = DDPCAPS_8BIT | DDPCAPS_ALLOW256;
- break;
- case 4:
- pcaps = DDPCAPS_4BIT;
- break;
- case 2:
- pcaps = DDPCAPS_2BIT;
- break;
- case 1:
- pcaps = DDPCAPS_1BIT;
- break;
- }
-
- ddrval = lpDD->CreatePalette
- (DDPCAPS_INITIALIZE | pcaps,
- ppe, &lpDDPPMPal, NULL);
- LOGDXERR(ddrval);
-
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return 0;
- #endif
- }
-
- // Finally, bind the palette to the surface
-
- ddrval = lpDDS->SetPalette(lpDDPPMPal);
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- lpDDPPMPal->Release();
- return 0;
- #endif
- }
-
- lpDDPPMPal->Release();
- }
- break;
- #else
- // Everything's gone pear-shaped...
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Unlock(NULL);
- lpDDS->Release();
- return 0;
- #endif
- }
- break;
- case CLM_ATTACHEDPALETTE:
- #endif
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- // Paletted target texture surface
-
- psize = 1<<bitsperpixel;
- ReducePalette(psize); // will do nothing if palette is already small enough
- // ignore returned error code, because I don't care if it failed
- for (j = 0; j < height; j++)
- {
- // Point to next row in surface
- lpC = ((char*)ddsd.lpSurface) + ddsd.lPitch * j;
- unsigned char * lpP8 = im8[j];
-
- if (psize<256)
- {
- unsigned int bitmask;
- unsigned int nextpixelshift;
- switch (psize)
- {
- default:
- nextpixelshift = 2;
- break;
- case 4:
- nextpixelshift = 1;
- break;
- case 2:
- nextpixelshift = 0;
- break;
- }
- bitmask = 7 >> nextpixelshift;
- for (i = 0; i < width; i++)
- {
- unsigned char k = *lpP8++;
- // Set the "pixel" value on the surface to be the index into the
- // color table
- if ((i & bitmask) == 0)
- *lpC = (char) (k & (psize-1));
- else
- *lpC |= (char) ((k & (psize-1)) << ((i & bitmask)<<nextpixelshift));
- if ((~i & bitmask) == 0)
- lpC++;
- }
- }
- else
- {
- memcpy(lpC,lpP8,width);
- }
- }
-
- // Close the file and unlock the surface
-
- lpDDS->Unlock(NULL);
-
- // Create a palette with the colors in our color table
-
- memset(ppe, 0, sizeof(PALETTEENTRY) * 256);
- for (i = 0; i < palette_size; i++)
- {
- ppe[i].peRed = palette[i].r;
- ppe[i].peGreen = palette[i].g;
- ppe[i].peBlue = palette[i].b;
- }
-
- // Set all remaining entry flags to D3DPAL_RESERVED, which are ignored by
- // the renderer.
-
- for (; i < 256; i++)
- ppe[i].peFlags = D3DPAL_RESERVED;
-
- // Create the palette with the DDPCAPS_ALLOW256 flag because we want to
- // have access to all entries.
-
- switch (bitsperpixel)
- {
- default:
- pcaps = DDPCAPS_8BIT | DDPCAPS_ALLOW256;
- break;
- case 4:
- pcaps = DDPCAPS_4BIT;
- break;
- case 2:
- pcaps = DDPCAPS_2BIT;
- break;
- case 1:
- pcaps = DDPCAPS_1BIT;
- break;
- }
-
- ddrval = lpDD->CreatePalette
- (DDPCAPS_INITIALIZE | pcaps,
- ppe, &lpDDPPMPal, NULL);
- LOGDXERR(ddrval);
-
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return 0;
- #endif
- }
-
- // Finally, bind the palette to the surface
-
- ddrval = lpDDS->SetPalette(lpDDPPMPal);
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- lpDDPPMPal->Release();
- return 0;
- #endif
- }
-
- lpDDPPMPal->Release();
- break;
- default:
- // Everything's gone pear-shaped...
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Unlock(NULL);
- lpDDS->Release();
- return 0;
- #endif
-
-
- }
-
- return ddsd.lpSurface;
-}
-
-
diff --git a/src/win95/d3_image.hpp b/src/win95/d3_image.hpp
deleted file mode 100644
index a2bc639..0000000
--- a/src/win95/d3_image.hpp
+++ /dev/null
@@ -1,1223 +0,0 @@
-#ifndef _included__d3_image_hpp_
-#define _included__d3_image_hpp_
-
-#error "This file is obsolete"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "list_tem.hpp"
-
-#include "ddraw.h"
-#include "d3d.h"
-#include "vramtime.h"
-
-#include "system.h"
-#include "mem3dc.h"
-
-#include "dxlog.h"
-// define = 1 if you want an output log file of all texture files loaded and for which DD surface format
-#if debug
-#define OUTPUT_LOG 1
-#else
-#define OUTPUT_LOG 0
-#endif
-
-// define = 1 to use fast files for loading (will still try normal files if fastfile doesn't contain correct data)
-#define USE_FASTFILE 1
-
-#if USE_FASTFILE
-
-#include "ffstdio.h"
-#define D3I_FILE FFILE
-#define d3i_fpos_t ffpos_t
-#define d3i_fclearerr ffclearerr
-#define d3i_fclose ffclose
-#define d3i_fcloseall ffcloseall
-#define d3i_feof ffeof
-#define d3i_ferror fferror
-#define d3i_fgetc ffgetc
-#define d3i_fgetpos ffgetpos
-#define d3i_fgets ffgets
-#define d3i_flook fflook
-#define d3i_flookb fflookb
-#define d3i_fopen ffopen
-#define d3i_fread ffread
-#define d3i_freadb ffreadb
-#define d3i_fseek ffseek
-#define d3i_fsetpos ffsetpos
-#define d3i_ftell fftell
-
-#else
-
-#define D3I_FILE FILE
-#define d3i_fpos_t fpos_t
-#define d3i_fclearerr fclearerr
-#define d3i_fclose fclose
-#define d3i_fcloseall fcloseall
-#define d3i_feof feof
-#define d3i_ferror ferror
-#define d3i_fgetc fgetc
-#define d3i_fgetpos fgetpos
-#define d3i_fgets fgets
-#define d3i_fopen fopen
-#define d3i_fread fread
-#define d3i_fseek fseek
-#define d3i_fsetpos fsetpos
-#define d3i_ftell ftell
-
-#endif
-
-
-// define = 1 if you do not want to handle the error return codes, and require a load failure to cause an exit
-#define EXIT_ON_LOAD_FAIL 0
-
-// define = 1 if you are locating images through rif files and expect this to always succeed
-// works like EXIT_ON_LOAD_FAIL, and only if EXIT_ON_LOAD_FAIL is set, but most failures are handled
-// by assuming the given name to be a complete path and filename
-#define EXIT_ON_LOCATE_FAIL 0
-
-// define = 1 to time file opens, file closes and file reads
-#define TIME_LOADS 0
-
-// I tested the times with a typically complex set of images from AVP,
-// loaded over a nework.
-// Opening took 16secs, Reading 38secs and Closing 2secs for approx
-// for about 500 images (including mip maps)
-
-#if TIME_LOADS
-#include <time.h>
-#define START_TIMER {clock_t __stime = clock();
-#define END_TIMER(__var) __var += (unsigned int) ((clock() - __stime) * 1000 / CLOCKS_PER_SEC);}
-#else
-#define START_TIMER
-#define END_TIMER(__var)
-#endif
-
-#if TIME_LOADS
-extern unsigned int OpenTime;
-extern unsigned int CloseTime;
-extern unsigned int ReadTime;
-#endif
-
-#if OUTPUT_LOG
-#include "debuglog.hpp"
-extern LogFile CL_LogFile;
-#endif
-
-// externs for 3dc things
-extern "C" {
- extern LPDIRECTDRAW lpDD;
- extern DDPIXELFORMAT DisplayPixelFormat;
-};
-
-enum CL_RGBFormat // for loading from files
-{
- CLF_RGB, CLF_BGR, CLF_BGRX
-};
-
-struct CL_Pixel_24
-{
- union
- {
- struct
- {
- unsigned char r,g,b;
- unsigned char xx;
- };
- unsigned long l;
- };
-
- CL_Pixel_24() : l(0) {}
- CL_Pixel_24(unsigned char const r,unsigned char const g,unsigned char const b) : r(r),g(g),b(b),xx(0) {}
- CL_Pixel_24(CL_Pixel_24 const & p24) : l(p24.l) {}
- CL_Pixel_24(unsigned long const i) : l(i) {}
-
- operator unsigned long (void) const { return l; }
-
- inline void Read (D3I_FILE * const f, CL_RGBFormat const t)
- {
- switch(t)
- {
- case CLF_RGB:
- d3i_fread(&r,1,1,f);
- d3i_fread(&g,1,1,f);
- d3i_fread(&b,1,1,f);
- break;
- case CLF_BGR:
- d3i_fread(&b,1,1,f);
- d3i_fread(&g,1,1,f);
- d3i_fread(&r,1,1,f);
- break;
- case CLF_BGRX:
- d3i_fread(&b,1,1,f);
- d3i_fread(&g,1,1,f);
- d3i_fread(&r,1,1,f);
- d3i_fseek(f,1,SEEK_CUR);
- default:
- break;
- }
- }
-
- inline void Read (D3I_FILE * const f, CL_RGBFormat const t, unsigned int const maxval)
- {
- Read(f,t);
- if (maxval != 255)
- {
- r = (unsigned char) ( ((unsigned int)r << 8) / (maxval+1) );
- g = (unsigned char) ( ((unsigned int)g << 8) / (maxval+1) );
- b = (unsigned char) ( ((unsigned int)b << 8) / (maxval+1) );
- }
- }
-
- unsigned int FVD_Distance(CL_Pixel_24 const & p2) const;
-};
-
-
-struct CL_DX_Format
-{
- unsigned int
- red_mask,
- red_shift,
- red_bits,
- red_bits_gt8,
- red_bits_lt8,
- blue_mask,
- blue_shift,
- blue_bits,
- blue_bits_gt8,
- blue_bits_lt8,
- green_mask,
- green_shift,
- green_bits,
- green_bits_gt8,
- green_bits_lt8;
-
- CL_Pixel_24 dx_black;
-
- inline void Init(unsigned int rmask,unsigned int gmask,unsigned int bmask)
- {
- red_mask = rmask;
- blue_mask = bmask;
- green_mask = gmask;
- for (red_shift = 0; !(rmask & 1); red_shift++, rmask>>=1);
- for (green_shift = 0; !(gmask & 1); green_shift++, gmask>>=1);
- for (blue_shift = 0; !(bmask & 1); blue_shift++, bmask>>=1);
- for (red_bits = 0; rmask; red_bits++, rmask>>=1);
- for (green_bits = 0; gmask; green_bits++, gmask>>=1);
- for (blue_bits = 0; bmask; blue_bits++, bmask>>=1);
- if (blue_bits >= green_bits && blue_bits >= red_bits)
- {
- dx_black = CL_Pixel_24(0,0,1);
- }
- else if (red_bits >= green_bits)
- {
- dx_black = CL_Pixel_24(1,0,0);
- }
- else
- {
- dx_black = CL_Pixel_24(0,1,0);
- }
- if (red_bits >= 8)
- {
- red_bits_gt8 = red_bits-8;
- red_bits_lt8 = 0;
- }
- else
- {
- red_bits_lt8 = 8-red_bits;
- red_bits_gt8 = 0;
- }
- if (green_bits >= 8)
- {
- green_bits_gt8 = green_bits-8;
- green_bits_lt8 = 0;
- }
- else
- {
- green_bits_lt8 = 8-green_bits;
- green_bits_gt8 = 0;
- }
- if (blue_bits >= 8)
- {
- blue_bits_gt8 = blue_bits-8;
- blue_bits_lt8 = 0;
- }
- else
- {
- blue_bits_lt8 = 8-blue_bits;
- blue_bits_gt8 = 0;
- }
- }
-};
-
-
-// for 32 bit and 24 bit DirectX formats
-template <class S>
-struct CL_Pixel_T
-{
- static CL_DX_Format f;
- static CL_DX_Format f_d3d;
- static CL_DX_Format f_ddraw;
-
- S p;
-
- inline S r(void) const { return (S)((p & f.red_mask)>>f.red_shift); }
- inline S g(void) const { return (S)((p & f.green_mask)>>f.green_shift); }
- inline S b(void) const { return (S)((p & f.blue_mask)>>f.blue_shift); }
-
- CL_Pixel_T() {}
- CL_Pixel_T(CL_Pixel_T<S> const & p32) : p(p32.p) {}
- CL_Pixel_T(CL_Pixel_24 const & p24)
- : p((S)(
- (S)p24.r>>f.red_bits_lt8<<f.red_shift+f.red_bits_gt8 |
- (S)p24.g>>f.green_bits_lt8<<f.green_shift+f.green_bits_gt8 |
- (S)p24.b>>f.blue_bits_lt8<<f.blue_shift+f.blue_bits_gt8 ))
- {
- // make the 32bit pixel non-black to avoid transparency problems
- if (!p && p24.l) // if the 24bit pixel is not black and the 32 bit pixel is black
- {
- // choose which of r,g or b to make non-zero - try and get as close to black as poss
- if ((1<<f.blue_bits_lt8)-p24.b <= (1<<f.red_bits_lt8)-p24.r && (1<<f.blue_bits_lt8)-p24.b <= (1<<f.green_bits_lt8)-p24.g)
- p = (S)(1<<f.blue_shift);
- else if ((1<<f.red_bits_lt8)-p24.r <= (1<<f.green_bits_lt8)-p24.g)
- p = (S)(1<<f.red_shift);
- else
- p = (S)(1<<f.green_shift);
- }
- }
-
- inline operator CL_Pixel_24 (void) const
- {
- S rr = (S)(r()>>f.red_bits_gt8<<f.red_bits_lt8);
- S gg = (S)(g()>>f.green_bits_gt8<<f.green_bits_lt8);
- S bb = (S)(b()>>f.blue_bits_gt8<<f.blue_bits_lt8);
-
- if (!(rr|gg|bb) && p)
- {
- if (b()<<f.red_bits>=r()<<f.blue_bits && b()<<f.green_bits>=g()<<f.blue_bits) // make the 16bit pixel non-black to avoid transparency problems
- bb = 1;
- else if (r()<<f.green_bits>=g()<<f.red_bits)
- rr = 1;
- else
- gg = 1;
- }
-
- return CL_Pixel_24((unsigned char)rr,(unsigned char)gg,(unsigned char)bb);
- };
- operator S (void) const { return p; }
-
- inline void Read (D3I_FILE * const f, CL_RGBFormat const t)
- {
- CL_Pixel_24 p24;
- p24.Read(f,t);
- *this = (CL_Pixel_T<S>)p24;
- }
-
- inline void Read (D3I_FILE * const f, CL_RGBFormat const t, unsigned int const maxval)
- {
- CL_Pixel_24 p24;
- p24.Read(f,t,maxval);
- *this = (CL_Pixel_T<S>)p24;
- }
-};
-
-
-typedef CL_Pixel_T<unsigned long> CL_Pixel_32;
-typedef CL_Pixel_T<unsigned short> CL_Pixel_16;
-
-
-enum CL_Error
-{
- CLE_OK,
- CLE_LOADERROR, // file cannot be loaded - format is wrong
- CLE_OPENERROR, // file cannot be opened - does not exist?
- CLE_FINDERROR, // file cannot be found - not listed in .RIF file
- CLE_RIFFERROR, // rif file not loaded, or invalid
- CLE_INVALIDGAMEMODE, // specified game mode does not exist
- CLE_INVALIDDXMODE, // video mode is invalid
- CLE_DXERROR, // other direct X related error
- CLE_ALLOCFAIL // failed memory allocation
-};
-
-
-enum CL_ImageMode {
-
- CLM_GLOBALPALETTE, // image shares a global palette in a palettized mode
- CLM_TLTPALETTE, // images may also share an abstract palette which remaps via a tlt to a global display palette
- CLM_ATTACHEDPALETTE, // 256 colour image with attached palette
- CLM_16BIT, // 16 bit in specified RGB format
- CLM_32BIT, // 32 bit in specified RGB format
- CLM_24BIT // 24 bit truecolour image in 888 format
-};
-// Note:
-// currently 24-bit and 16-bit image formats are not output.
-// If the desired format is 24-bit or 16-bit then 256 colour BMPs are loaded
-// and 'unquantized' to generate the required format.
-
-
-enum CL_LoadMode {
-
- CLL_D3DTEXTURE,
- CLL_DDSURFACE
-};
-
-void CL_Select_Mode(CL_LoadMode const lmode);
-
-
-void CL_Init_D3DMode(LPDDSURFACEDESC const format);
-
-enum CL_VideoMode {
-
- CLV_8,
- CLV_15,
- CLV_24,
- CLV_8T,
- CLV_8TLT
-};
-
-void CL_Init_DirectDrawMode(CL_VideoMode const vmode);
-
-
-
-// test!!!
-#if HwTextureHack
-static int craptest = 0;
-#endif
-
-#if EXIT_ON_LOAD_FAIL
- extern "C"
- {
- #include "3dc.h"
- }
- #if EXIT_ON_LOCATE_FAIL
- #define EXITONLOCATEFAIL(__errcode,__iname,__enum_id) \
- if (CLE_RIFFERROR != __errcode) { \
- if (__iname) textprint("Cannot figure path for:\n%s\n",__iname); \
- else textprint("Cannot figure path for:\nImage ID %d\n",__enum_id); \
- WaitForReturn(); \
- ExitSystem(); \
- exit(0x10cafa11); \
- }
- #else
- #define EXITONLOCATEFAIL(__errcode,__iname,__enum_id)
- #endif
- #define EXITONLOADFAIL(__iname) \
- { \
- textprint("Cannot open:\n%s\n",__iname); \
- WaitForReturn(); \
- ExitSystem(); \
- exit(0x10adfa11); \
- }
- #define EXITONREADFAIL(__iname) \
- { \
- textprint("Cannot read:\n%s\n",__iname); \
- WaitForReturn(); \
- ExitSystem(); \
- exit(0x10adfa11); \
- }
-#else
- #define EXITONLOCATEFAIL(__errcode,__iname,__enum_id)
- #define EXITONLOADFAIL(__iname)
- #define EXITONREADFAIL(__iname)
-#endif
-
-struct CL_Flags
-{
- unsigned int loaded : 1;
- unsigned int located : 1;
- unsigned int raw16bit : 1;
- unsigned int tltpalette : 1;
-
- CL_Flags()
- : loaded(0)
- , located(0)
- , tltpalette(0)
- , raw16bit(0)
- {}
-};
-
-#define CL_EID_INVALID (-1)
-
-
-#if 0
-template <class I>
-class CL_MIP_Image
-{
-public:
- unsigned int num_mipmaps;
- I * * mipmaps; // array of CL_Image pointers of decreasing image size
-
- unsigned int width; // == mipmaps[0]->width
- unsigned int height; // == mipmaps[0]->height
- unsigned int size; // == mipmaps[0]->size
-
- char * fname; // full filename (including directory/path) of mipmap with index 0
- char * name; // name of image without directory/path or extension
-
- CL_MIP_Image() : mipmaps(0), num_mipmaps(0), fname(0), name(0) {}
- ~CL_MIP_Image() { Delete(); }
-
- CL_MIP_Image(CL_MIP_Image<I> const & i2)
- : width (i2.width)
- , height (i2.height)
- , size (i2.size)
- , num_mipmaps (i2.num_mipmaps)
- { Copy(i2); }
-
- CL_MIP_Image<I> & operator = (CL_MIP_Image<I> const & i2)
- {
- if (&i2 != this)
- {
- Delete();
-
- width = i2.width;
- height = i2.height;
- size = i2.size;
- num_mipmaps = i2.num_mipmaps;
-
- Copy(i2);
- }
- return *this;
- }
-
-private:
- void Copy(CL_MIP_Image<I> const & i2)
- {
- if (i2.mipmaps)
- {
- mipmaps = new I * [num_mipmaps];
- for (int i=0; i<num_mipmaps; ++i)
- {
- mipmaps[i] = new I(*i2.mipmaps[i]);
- }
- }
-
- if (i2.fname)
- {
- fname = new char[strlen(i2.fname)+1];
- strcpy(fname,i2.fname);
- }
-
- if (i2.name)
- {
- name = new char[strlen(i2.name)+1];
- strcpy(name,i2.name);
- }
- }
- void Delete(void)
- {
- if (mipmaps)
- {
- for (int i=0; i<num_mipmaps; ++i) delete mipmaps[i];
- delete[] mipmaps;
- mipmaps = 0;
- }
-
- if (name)
- {
- delete[] name;
- name = 0;
- }
-
- if (fname)
- {
- delete[] fname;
- fname = 0;
- }
- }
-
- CL_Flags flags;
-
-public:
- inline CL_Error Load(int const enum_id)
- {
- return Load(0,enum_id);
- }
- inline CL_Error Load(char const * const iname)
- {
- return Load(iname,CL_EID_INVALID);
- }
- inline CL_Error Load()
- {
- return Load(0,CL_EID_INVALID);
- }
-
- inline CL_Error PreLoad(int const enum_id)
- {
- return PreLoad(0,enum_id);
- }
- inline CL_Error PreLoad(char const * const iname)
- {
- return PreLoad(iname,CL_EID_INVALID);
- }
-
- CL_Error CopyToScanDrawTexture(unsigned char * * const ImagePtrA [], unsigned int maxnummips)
- {
- if (!flags.loaded) return CLE_LOADERROR;
-
- if (CLL_DDSURFACE != I::lmode) CL_Select_Mode(CLL_DDSURFACE);
-
- if (num_mipmaps < maxnummips) maxnummips = num_mipmaps;
- if (!maxnummips) return CLE_ALLOCFAIL;
-
- if (!*ImagePtrA[0]) *ImagePtrA[0] = (unsigned char *) AllocateMem((2*width+1)*(2*height+1)*I::bitsperpixel/24+(maxnummips-3)*I::bitsperpixel/8); // slightly more than 4/3 w*h*bytedepth
-
- for (int i=0; i<maxnummips; ++i)
- {
- if (i) *ImagePtrA[i] = *ImagePtrA[i-1] + mipmaps[i-1]->width*mipmaps[i-1]->height*(I::bitsperpixel>>3);
- CL_Error thismipmaperror = mipmaps[i]->CopyToScanDrawTexture(ImagePtrA[i]);
- if (CLE_OK != thismipmaperror) return thismipmaperror;
- }
- return CLE_OK;
- }
-
- CL_Error CopyToD3DTexture(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], unsigned int maxnummips, int const MemoryType)
- {
- if (!flags.loaded) return CLE_LOADERROR;
-
- WaitForVRamReady(VWS_D3DTEXCREATE);
-
- if (CLL_D3DTEXTURE != I::lmode) CL_Select_Mode(CLL_D3DTEXTURE);
-
- LPDIRECTDRAWSURFACE lpDDS;
- DDSURFACEDESC ddsd;
- HRESULT ddrval;
-
- if (width & 3 || height & 3)
- {
- // return error code
- return CLE_DXERROR;
- }
-
- /* test !!! */
- {
- #if HwTextureHack
- craptest++;
- if (craptest > 10)
- return CLE_DXERROR;
- #endif
- }
-
-
- if (num_mipmaps < maxnummips) maxnummips = num_mipmaps;
- // Set up the mip-mapped surface description. starting
- // with the passed texture format and then
- // incorporating the information read from the
- // ppm.
- memcpy(&ddsd, I::format, sizeof(DDSURFACEDESC));
- ddsd.dwSize = sizeof(DDSURFACEDESC);
- ddsd.dwFlags = (DDSD_CAPS | DDSD_HEIGHT | DDSD_WIDTH | DDSD_PIXELFORMAT
- | DDSD_MIPMAPCOUNT);
- ddsd.dwMipMapCount = maxnummips; // engine standard, primary plus six mip-maps
- ddsd.ddsCaps.dwCaps = (DDSCAPS_TEXTURE | DDSCAPS_MIPMAP
- | DDSCAPS_COMPLEX | MemoryType);
- ddsd.dwHeight = height;
- ddsd.dwWidth = width;
-
-
- // Create the surface
- ddrval = lpDD->CreateSurface(&ddsd, &lpDDS, NULL);
- LOGDXERR(ddrval);
-
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
- // We must now traverse the mip-map chain from highest to lowest
- // resolutions, For each surface AFTER the first one, we must
- // load a new file, using a name obtained from the mip map number
-
- int MipMapNum = 0;
- LPDIRECTDRAWSURFACE lpThisMipMap, lpNextMipMap;
- DDSCAPS ddsCaps;
-
-
- lpThisMipMap = lpDDS;
- // Component Object Model, increase reference count on
- // mip-map surface by one.
- lpThisMipMap->AddRef();
- ddsCaps.dwCaps = (DDSCAPS_TEXTURE | DDSCAPS_MIPMAP);
- ddrval = DD_OK;
-
- while ((ddrval == DD_OK) && (MipMapNum < maxnummips)) // both tests in case...
- {
- // Call LoadPPMIntoDDSurface with lpThisMipMap, new file name, and
- // other values.
-
- *DDSurfaceA[MipMapNum] = mipmaps[MipMapNum]->CopyToDDSurface(lpThisMipMap);
-
- // Death trap
- if (!*DDSurfaceA[MipMapNum])
- {
- return CLE_DXERROR;
- }
- *DDPtrA[MipMapNum] = lpThisMipMap;
-
- // Proceed to the next level.
- // Collect bonus rings.
- ddrval = lpThisMipMap->GetAttachedSurface(&ddsCaps, &lpNextMipMap);
- // Necessary to match the manual increment of the reference count on the
- // COM texture. I think.
- lpThisMipMap->Release();
- // ?? lpNextMipMap = lpThisMipMap;
- lpThisMipMap = lpNextMipMap;
-
- MipMapNum++;
- }
-
- return CLE_OK;
-
- }
-
- CL_Error CopyToDirectDrawSurface(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], unsigned int maxnummips, int const MemoryType)
- {
- if (!flags.loaded) return CLE_LOADERROR;
-
- WaitForVRamReady(VWS_DDCREATE);
-
- if (CLL_DDSURFACE != I::lmode) CL_Select_Mode(CLL_DDSURFACE);
-
- LPDIRECTDRAWSURFACE lpDDS;
- DDSURFACEDESC ddsd;
- HRESULT ddrval;
-
- if (width & 3 || height & 3)
- {
- // return error code
- return CLE_DXERROR;
- }
-
- if (num_mipmaps < maxnummips) maxnummips = num_mipmaps;
- // Set up the mip-mapped surface description. starting
- // with the passed texture format and then
- // incorporating the information read from the
- // ppm.
- memset(&ddsd, 0, sizeof ddsd);
- ddsd.dwSize = sizeof ddsd;
- ddsd.dwFlags = (DDSD_CAPS | DDSD_HEIGHT | DDSD_WIDTH | DDSD_PIXELFORMAT
- | DDSD_MIPMAPCOUNT);
- ddsd.dwMipMapCount = maxnummips; // engine standard, primary plus six mip-maps
- ddsd.ddsCaps.dwCaps = (DDSCAPS_OFFSCREENPLAIN | DDSCAPS_MIPMAP
- | DDSCAPS_COMPLEX | MemoryType);
- ddsd.dwHeight = height;
- ddsd.dwWidth = width;
-
-
- // Create the surface
- ddrval = lpDD->CreateSurface(&ddsd, &lpDDS, NULL);
-
- LOGDXERR(ddrval);
- if (ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
- DDCOLORKEY set_zero = {0,0};
- ddrval = lpDDS->SetColorKey(DDCKEY_SRCBLT, &set_zero);
-
- LOGDXERR(ddrval);
- if(ddrval != DD_OK)
- {
- #if debug
- ReleaseDirect3D();
- exit(ddrval);
- #else
- lpDDS->Release();
- return CLE_DXERROR;
- #endif
- }
-
- // We must now traverse the mip-map chain from highest to lowest
- // resolutions, For each surface AFTER the first one, we must
- // load a new file, using a name obtained from the mip map number
-
- int MipMapNum = 0;
- LPDIRECTDRAWSURFACE lpThisMipMap, lpNextMipMap;
- DDSCAPS ddsCaps;
-
-
- lpThisMipMap = lpDDS;
- // Component Object Model, increase reference count on
- // mip-map surface by one.
- lpThisMipMap->AddRef();
- ddsCaps.dwCaps = (DDSCAPS_TEXTURE | DDSCAPS_MIPMAP);
- ddrval = DD_OK;
-
- while ((ddrval == DD_OK) && (MipMapNum < maxnummips)) // both tests in case...
- {
- // Call LoadPPMIntoDDSurface with lpThisMipMap, new file name, and
- // other values.
-
- *DDSurfaceA[MipMapNum] = mipmaps[MipMapNum]->CopyToDDSurface(lpThisMipMap);
-
- // Death trap
- if (!*DDSurfaceA[MipMapNum])
- {
- return CLE_DXERROR;
- }
- *DDPtrA[MipMapNum] = lpThisMipMap;
-
- // Proceed to the next level.
- // Collect bonus rings.
- ddrval = lpThisMipMap->GetAttachedSurface(&ddsCaps, &lpNextMipMap);
- // Necessary to match the manual increment of the reference count on the
- // COM texture. I think.
- lpThisMipMap->Release();
- // ?? lpNextMipMap = lpThisMipMap;
- lpThisMipMap = lpNextMipMap;
-
- MipMapNum++;
- }
-
- return CLE_OK;
-
- }
-
-private:
- // I was using Dan's list template for this,
- // but since it is not a standard part of 3DC,
- // I have had to write a specific simple list handler
- struct TempListMember
- {
- I * mip;
- TempListMember * next;
- TempListMember(I * data) : mip(data), next(0) {}
- //TempListMember() : next(0) {}
- ~TempListMember() { if (next) delete next; }
- };
- struct TempList
- {
- unsigned int n_entries;
- TempListMember * first;
- TempListMember * last;
- TempList(I * data) : first(new TempListMember(data)), n_entries(1) { last = first; }
- TempList & operator += (I * data)
- {
- if (!first)
- {
- first = new TempListMember(data);
- last = first;
- }
- else
- {
- last->next = new TempListMember(data);
- last = last->next;
- }
- ++ n_entries;
- return *this;
- }
- ~TempList()
- {
- if (first) delete first;
- }
- };
-
- CL_Error Load(char const * const iname, int const enum_id)
- {
- if (iname || CL_EID_INVALID != enum_id) flags.located = 0;
-
- I * mip0;
-
- if (flags.located && mipmaps)
- {
- mip0 = mipmaps[0];
- // we have grabbed the previously allocated pointer
- // it will now be treated as if it were allocated here,
- // so we must remove it from the class, in case the
- // deconstructor tries to deallocate it
- delete[] mipmaps;
- mipmaps = 0;
- }
- else
- {
- mip0 = new I;
-
- CL_Error locate_err = mip0->Locate(iname,enum_id);
-
- if (locate_err != CLE_OK)
- {
- delete mip0;
- EXITONLOCATEFAIL(locate_err,iname,enum_id)
- return locate_err;
- }
- }
-
- #if OUTPUT_LOG
- char const * texformat;
- unsigned int redbits = 8;
- unsigned int greenbits = 8;
- unsigned int bluebits = 8;
- switch (I::imode)
- {
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- texformat = "Palettized Display";
- break;
- case CLM_ATTACHEDPALETTE:
- texformat = "Palettized Textures";
- break;
- case CLM_32BIT:
- texformat = "32BIT DX";
- redbits += CL_Pixel_32::f.red_bits_gt8;
- redbits -= CL_Pixel_32::f.red_bits_lt8;
- greenbits += CL_Pixel_32::f.green_bits_gt8;
- greenbits -= CL_Pixel_32::f.green_bits_lt8;
- bluebits += CL_Pixel_32::f.blue_bits_gt8;
- bluebits -= CL_Pixel_32::f.blue_bits_lt8;
- break;
- case CLM_24BIT:
- texformat = "24-bit for runtime conversion";
- break;
- case CLM_16BIT:
- texformat = "16BIT DX";
- redbits += CL_Pixel_16::f.red_bits_gt8;
- redbits -= CL_Pixel_16::f.red_bits_lt8;
- greenbits += CL_Pixel_16::f.green_bits_gt8;
- greenbits -= CL_Pixel_16::f.green_bits_lt8;
- bluebits += CL_Pixel_16::f.blue_bits_gt8;
- bluebits -= CL_Pixel_16::f.blue_bits_lt8;
- break;
- }
- CL_LogFile.lprintf("--%s %s (%u-bit, %u-%u-%u)\n",mip0->fname,texformat,I::bitsperpixel,redbits,greenbits,bluebits);
- #endif
-
- START_TIMER
- D3I_FILE * fp = d3i_fopen(mip0->fname,"rb");
- END_TIMER(OpenTime)
-
- if (!fp)
- {
- #if OUTPUT_LOG
- CL_LogFile.lputs("** ERROR: unable to open\n");
- #endif
- EXITONLOADFAIL(mip0->fname)
- delete mip0;
- return CLE_OPENERROR;
- }
-
- CL_Error load_err = mip0->Load_Image(fp);
- START_TIMER
- d3i_fclose(fp);
- END_TIMER(CloseTime)
-
- if (load_err != CLE_OK)
- {
- if (!flags.located) delete mip0;
- #if OUTPUT_LOG
- CL_LogFile.lputs("** ERROR: unable to read\n");
- #endif
- EXITONREADFAIL(mip0->fname)
- return load_err;
- }
-
- TempList miplist(mip0);
-
- width = mip0->width;
- height = mip0->height;
- size = mip0->size;
-
- if (!flags.located)
- {
- if (fname) delete[] fname;
- if (name) delete[] name;
- fname = new char[strlen(mip0->fname)+1];
- name = new char[strlen(mip0->name)+1];
- strcpy(fname,mip0->fname);
- strcpy(name,mip0->name);
- }
-
- for (int mip_idx = 1; mip_idx < 7; ++mip_idx)
- {
- I * mip_n;
-
- mip_n = new I;
- mip_n->name = new char[strlen(name)+1];
- mip_n->fname = new char[strlen(fname)+1];
- strcpy(mip_n->name,name);
- strcpy(mip_n->fname,fname);
-
- char * dotpos = strrchr(mip_n->fname,'.');
- if (!dotpos)
- {
- delete mip_n;
- break;
- }
- sprintf(dotpos+3,"%1d",mip_idx);
-
- #if OUTPUT_LOG
- char const * texformat;
- unsigned int redbits = 8;
- unsigned int greenbits = 8;
- unsigned int bluebits = 8;
- switch (I::imode)
- {
- case CLM_GLOBALPALETTE:
- case CLM_TLTPALETTE:
- texformat = "Palettized Display";
- break;
- case CLM_ATTACHEDPALETTE:
- texformat = "Palettized Textures";
- break;
- case CLM_32BIT:
- texformat = "32BIT DX";
- redbits += CL_Pixel_32::f.red_bits_gt8;
- redbits -= CL_Pixel_32::f.red_bits_lt8;
- greenbits += CL_Pixel_32::f.green_bits_gt8;
- greenbits -= CL_Pixel_32::f.green_bits_lt8;
- bluebits += CL_Pixel_32::f.blue_bits_gt8;
- bluebits -= CL_Pixel_32::f.blue_bits_lt8;
- break;
- case CLM_24BIT:
- texformat = "24-bit for runtime conversion";
- break;
- case CLM_16BIT:
- texformat = "16BIT DX";
- redbits += CL_Pixel_16::f.red_bits_gt8;
- redbits -= CL_Pixel_16::f.red_bits_lt8;
- greenbits += CL_Pixel_16::f.green_bits_gt8;
- greenbits -= CL_Pixel_16::f.green_bits_lt8;
- bluebits += CL_Pixel_16::f.blue_bits_gt8;
- bluebits -= CL_Pixel_16::f.blue_bits_lt8;
- break;
- }
- CL_LogFile.lprintf("--%s %s (%u-bit, %u-%u-%u)\n",mip_n->fname,texformat,I::bitsperpixel,redbits,greenbits,bluebits);
- #endif
-
- START_TIMER
- fp = d3i_fopen(mip_n->fname,"rb");
- END_TIMER(OpenTime)
-
- if (!fp)
- {
- delete mip_n;
- #if OUTPUT_LOG
- CL_LogFile.lputs("** Warning: unable to open\n");
- #endif
- break;
- }
-
- load_err = mip_n->Load_Image(fp);
- START_TIMER
- d3i_fclose(fp);
- END_TIMER(CloseTime)
-
- if (load_err != CLE_OK)
- {
- delete mip_n;
- #if OUTPUT_LOG
- CL_LogFile.lputs("** Warning: unable to read\n");
- #endif
- break;
- }
-
- if (mip_n->width << mip_idx < width || mip_n->height << mip_idx < height)
- {
- delete mip_n;
- #if OUTPUT_LOG
- CL_LogFile.lputs("** Warning: less than half size\n");
- #endif
- break;
- }
-
- miplist += mip_n;
- }
-
- if (mipmaps)
- {
- for (int i = 0; i<num_mipmaps; ++i) delete mipmaps[i];
- delete[] mipmaps;
- }
-
- num_mipmaps = miplist.n_entries;
- mipmaps = new I * [num_mipmaps];
-
- TempListMember * listP = miplist.first;
- for (int i=0; i<num_mipmaps; ++i)
- {
- mipmaps[i] = listP->mip;
- listP = listP->next;
- }
-
- flags.loaded = 1;
- flags.located = 1;
- return CLE_OK;
- }
-
- CL_Error PreLoad(char const * const iname, int const enum_id)
- {
- I * mip0 = new I;
-
- CL_Error locate_err = mip0->Locate(iname,enum_id);
-
- if (locate_err != CLE_OK)
- {
- delete mip0;
- return locate_err;
- }
-
- if (fname) delete[] fname;
- if (name) delete[] name;
- fname = new char[strlen(mip0->fname)+1];
- name = new char[strlen(mip0->name)+1];
- strcpy(fname,mip0->fname);
- strcpy(name,mip0->name);
-
- if (mipmaps)
- {
- for (int i=0; i<num_mipmaps; ++i) delete mipmaps[i];
- delete[] mipmaps;
- }
-
- num_mipmaps = 1;
- mipmaps = new I * [1];
- *mipmaps = mip0;
-
- flags.loaded = 0;
- flags.located = 1;
-
- return CLE_OK;
- }
-};
-#endif
-
-struct CL_Image
-{
-public:
- static CL_ImageMode imode; // video mode defines which format images should be loaded
- static CL_ImageMode imode_d3d; // video mode defines which format images should be loaded
- static CL_ImageMode imode_ddraw; // video mode defines which format images should be loaded
- static LPDDSURFACEDESC format;
- static unsigned int bitsperpixel;
- static unsigned int bitsperpixel_d3d;
- static unsigned int bitsperpixel_ddraw;
- static CL_LoadMode lmode;
-
- // any one of these 3 may be valid
- union
- { // array of 24 bit or 32 bit pixels
- CL_Pixel_24 * * im24; // array of 24 bit pixels
- CL_Pixel_32 * * im32; // array of 32 bit pixels
- // the data storage sizes of CL_Pixel_24 and CL_Pixel_32 must match
- };
- union
- {
- CL_Pixel_16 * * im16; // array of 16 bit pixels
- unsigned short * * im16raw; // raw double-byte pixel data
- };
- unsigned char * * im8; // array of entrys into CLUT
-
- unsigned int palette_size;
- CL_Pixel_24 * palette; // CLUT (applicable only if 'im8' is valid)
-
- unsigned int width;
- unsigned int height;
- unsigned int size; // width * height
-
- char * fname; // full name of image including directory/path and extension
- char * name; // name of image without directory/path or extension
-
- List<CL_Image *> mipmaps;
-
- CL_Image() : im8(0),im16(0),im24(0),palette(0),palette_size(0),fname(0),name(0) {}
- virtual ~CL_Image();
-
- CL_Image(CL_Image const &);
- CL_Image & operator = (CL_Image const &);
-
- inline CL_Error Load(char const * const iname) // looks at rif file and video mode to determine which file to load
- {
- return Load(iname,CL_EID_INVALID);
- }
- inline CL_Error Load(int const enum_id) // looks at rif file and video mode to determine which file to load
- {
- return Load(0,enum_id);
- }
- inline CL_Error Load() // assumes preload has been called
- {
- return Load(0,CL_EID_INVALID);
- }
-
- inline CL_Error PreLoad(char const * const iname) // looks at rif file and video mode to determine which file to load
- {
- return PreLoad(iname,CL_EID_INVALID);
- }
- inline CL_Error PreLoad(int const enum_id) // looks at rif file and video mode to determine which file to load
- {
- return PreLoad(0,enum_id);
- }
-
- CL_Error LoadMipMaps(int const n_mips = 7); // assumes locating has been done (ie. PreLoad or Load has been called)
-
- CL_Error Load_BMP(D3I_FILE * f); // videomode != CLM_GLOBALPALETTE
- CL_Error Load_PPM(D3I_FILE * f); // videomode == CLM_16BIT || CLM_24BIT
- CL_Error Load_PGM(D3I_FILE * f); // videomode == CLM_GLOBALPALETTE
- CL_Error Load_PWM(D3I_FILE * f); // videomode == CLM_GLOBALPALETTE
-
- CL_Error Load_Image(D3I_FILE * f); // calls one of the above if correct format
-
- CL_Error GetBitsPerPixel(unsigned int* bpp); //returns bitsperpixel;
-
- // needs CL_Init_D3DMode((LPDDSURFACEDESC)format) to have been called
- inline CL_Error CopyToD3DTexture(LPDIRECTDRAWSURFACE * const DDPtrA, LPVOID * const DDSurfaceA, int const MemoryType)
- {
- return CopyToD3DTexture(&DDPtrA,&DDSurfaceA,MemoryType);
- }
- CL_Error CopyToD3DTexture(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], int const MemoryType, unsigned int n_mips_max = 1);
- // needs CL_Init_ScanDrawMode((CL_VideoMode) videomode) to have been called
- inline CL_Error CopyToDirectDrawSurface(LPDIRECTDRAWSURFACE * const DDPtrA, LPVOID * const DDSurfaceA, int const MemoryType)
- {
- return CopyToDirectDrawSurface(&DDPtrA,&DDSurfaceA,MemoryType);
- }
- CL_Error CopyToDirectDrawSurface(LPDIRECTDRAWSURFACE * const DDPtrA [], LPVOID * const DDSurfaceA [], int const MemoryType, unsigned int n_mips_max = 1);
- // needs CL_Init_ScanDrawMode((CL_VideoMode) videomode) to have been called
- inline CL_Error CopyToScanDrawTexture(unsigned char * * const ImagePtrA)
- {
- return CopyToScanDrawTexture(&ImagePtrA);
- }
- CL_Error CopyToScanDrawTexture(unsigned char * * const ImagePtrA [], unsigned int n_mips_max = 1);
- // create an empty image for user manipulation
- CL_Error Make(int const _width,int const _height);
- // create an empty random image for user manipulation
- CL_Error MakeRandom(int const _width,int const _height,int const seed = -1);
- // ensure with and height are multiples of given units
- void PadTo(int const width_unit,int const height_unit);
-
- inline CL_Flags const & GetFlags() const
- {
- return flags;
- }
-protected:
- CL_Flags flags;
-
- virtual CL_Error Locate(char const * iname, int const enum_id);
- CL_Error Load(char const * const iname, int const enum_id);
- CL_Error PreLoad(char const * const iname, int const enum_id);
-
- CL_Error ReducePalette(unsigned int const num_colours);
-
- // returns DDSURFACEDESC.lpSurface
- // does what LoadPPMIntoDDSurface did
- LPVOID CopyToDDSurface(LPDIRECTDRAWSURFACE lpDDS);
-
-private:
- void Copy(CL_Image const &);
- void Delete(void);
- void DeleteNotMips(void);
-};
-
-#endif // !_included__d3_image_hpp_
generated by cgit v1.3 (git 2.53.0) at 2026-03-22 06:10:02 +0000