+/**
+ * \ingroup gdcmFile
+ * \brief Ecrit sur disque UNE image Dicom
+ * Aucun test n'est fait sur l'"Endiannerie" du processeur.
+ * Ca fonctionnera correctement (?) sur processeur Intel
+ * (Equivalent a IdDcmWrite)
+ *
+ * @param fileName name of the file to be created
+ * (any already existing file is overwritten)
+ * @return false if write fails
+ */
+
+bool gdcmFile::WriteDcmImplVR (std::string fileName) {
+ return WriteBase(fileName, ImplicitVR);
+}
+
+/**
+ * \ingroup gdcmFile
+ * \brief
+ * @param fileName name of the file to be created
+ * (any already existing file is overwritten)
+ * @return false if write fails
+ */
+
+bool gdcmFile::WriteDcmImplVR (const char* fileName) {
+ return WriteDcmImplVR (std::string (fileName));
+}
+
+/**
+ * \ingroup gdcmFile
+ * \brief
+ * @param fileName name of the file to be created
+ * (any already existing file is overwritten)
+ * @return false if write fails
+ */
+
+bool gdcmFile::WriteDcmExplVR (std::string fileName) {
+ return WriteBase(fileName, ExplicitVR);
+}
+
+/**
+ * \ingroup gdcmFile
+ * \brief Ecrit au format ACR-NEMA sur disque l'entete et les pixels
+ * (a l'attention des logiciels cliniques
+ * qui ne prennent en entrée QUE des images ACR ...
+ * \warning if a DICOM_V3 header is supplied,
+ * groups < 0x0008 and shadow groups are ignored)
+ * \warning NO TEST is performed on processor "Endiannity".
+ * Ca fonctionnera correctement (?) sur processeur Intel
+ * (Equivalent a IdDcmWrite)
+ *
+ * @param fileName name of the file to be created
+ * (any already existing file is overwritten)
+ * @return false if write fails
+ */
+
+bool gdcmFile::WriteAcr (std::string fileName) {
+ return WriteBase(fileName, ACR);
+}
+
+//-----------------------------------------------------------------------------
+// Protected
+/**
+ * \ingroup gdcmFile
+ *
+* @param fileName name of the file to be created
+ * (any already existing file is overwritten)
+ * @param type file type (ExplicitVR, ImplicitVR, ...)
+ * @return false if write fails
+ */
+bool gdcmFile::WriteBase (std::string fileName, FileType type) {
+
+ FILE * fp1;
+ fp1 = fopen(fileName.c_str(),"wb");
+ if (fp1 == NULL) {
+ printf("Echec ouverture (ecriture) Fichier [%s] \n",fileName.c_str());
+ return (false);
+ }
+
+ if ( (type == ImplicitVR) || (type == ExplicitVR) ) {
+ char * filePreamble;
+ // writing Dicom File Preamble
+ filePreamble=(char*)calloc(128,1);
+ fwrite(filePreamble,128,1,fp1);
+ fwrite("DICM",4,1,fp1);
+ }
+
+ // --------------------------------------------------------------
+ // Special Patch to allow gdcm to re-write ACR-LibIDO formated images
+ //
+ // if recognition code tells us we dealt with a LibIDO image
+ // we reproduce on disk the switch between lineNumber and columnNumber
+ // just before writting ...
+
+ std::string rows, columns;
+ if ( Header->GetFileType() == ACR_LIBIDO){
+ rows = Header->GetEntryByNumber(0x0028, 0x0010);
+ columns = Header->GetEntryByNumber(0x0028, 0x0011);
+ Header->SetEntryByNumber(columns, 0x0028, 0x0010);
+ Header->SetEntryByNumber(rows , 0x0028, 0x0011);
+ }
+ // ----------------- End of Special Patch ----------------
+
+ Header->Write(fp1, type);
+
+ // --------------------------------------------------------------
+ // Special Patch to allow gdcm to re-write ACR-LibIDO formated images
+ //
+ // ...and we restore the Header to be Dicom Compliant again
+ // just after writting
+
+ if (Header->GetFileType() == ACR_LIBIDO){
+ Header->SetEntryByNumber(rows , 0x0028, 0x0010);
+ Header->SetEntryByNumber(columns, 0x0028, 0x0011);
+ }
+ // ----------------- End of Special Patch ----------------
+
+ fwrite(PixelData, lgrTotale, 1, fp1);
+ fclose (fp1);
+ return(true);
+}
+
+//-----------------------------------------------------------------------------
+// Private
+/**
+ * \ingroup gdcmFile
+ * \brief Swap the bytes, according to swap code.
+ * \warning not end user intended
+ * @param im area to deal with
+ * @param swap swap code
+ * @param lgr Area Length
+ * @param nb Pixels Bit number
+ */