static void Cn3D_ExportPDB(IteM i)
{
PDNMS pdnmsThis = NULL;
PMSD pmsdThis = NULL;
Char pcSavestr[60];
Char pcSavename[32];
CharPtr Cn3D_pcPDBName;
GrouP g, g2, g3, g4;
GrouP gMS;
ButtoN b;
if (Cn3D_Export_InUse)
return;
else
Cn3D_Export_InUse = TRUE;
pdnmsThis = GetSelectedModelstruc();
if (!pdnmsThis) {
Cn3D_Export_InUse = FALSE;
return;
}
pmsdThis = (PMSD) pdnmsThis->data.ptrvalue;
Cn3D_wPDBSave = ModalWindow(-20, -13, -10, -10, NULL);
/* set up a group encolosing structures - models selection lists and - "info strings" */
Cn3D_pcPDBName = StringSave(GetStrucStrings(pdnmsThis, PDB_ACC));
sprintf(pcSavestr, "Save %s As a PDB Formatted File ...",
Cn3D_pcPDBName);
g = HiddenGroup(Cn3D_wPDBSave, 0, 3, NULL);
SetGroupMargins(g, 10, 10);
SetGroupSpacing(g, 10, 5);
StaticPrompt(g, pcSavestr, 0, 0, systemFont, 'l');
g2 = HiddenGroup(g, 2, 0, NULL);
SetGroupMargins(g2, 10, 10);
SetGroupSpacing(g2, 10, 5);
StringNCpy(pcSavename, Cn3D_pcPDBName, 8);
StringCat(pcSavename, ".pdb");
Cn3D_tPDBSave =
DialogText(g2, pcSavename, 18, (TxtActnProc) Cn3D_PDBEnableProc);
MemFree(Cn3D_pcPDBName);
Cn3D_bPDBBrowse =
PushButton(g2, " browse...", (BtnActnProc) Cn3D_PDBBrowseProc);
g3 = HiddenGroup(g, 2, 0, NULL);
gMS = Cn3D_ModelSelect(g3, FALSE); /* no vector models for PDB files saves */
g4 = HiddenGroup(g3, 0, 2, NULL);
SetGroupMargins(g4, 10, 10);
SetGroupSpacing(g4, 10, 5);
Cn3D_bPDBOk = PushButton(g4, "OK", Cn3D_ExportPDBNow);
b = PushButton(g4, "Cancel", Cn3D_CancelPDB);
Cn3D_PDBEnableProc(NULL);
Select(Cn3D_bPDBOk);
/* disable appropriate stuff here */
Cn3D_DisableFileOps();
Show(Cn3D_wPDBSave);
return;
}
static void Cn3D_PNGSaveProc(IteM i)
{
Char fname[PATH_MAX];
Char defname[32];
PDNMS pdnmsThis = GetSelectedModelstruc();
fname[0] = '\0';
defname[0] = '\0';
if (pdnmsThis == NULL)
StringNCpy_0(defname,
pdnmsThis ? GetStrucStrings(pdnmsThis,
PDB_ACC) : "cn3d",
sizeof(defname) - 4);
StringCat(defname, ".png");
if (GetOutputFileName(fname, sizeof(fname), defname)) {
Nlm_SaveImagePNG(fname);
}
}
static void Cn3D_GifSaveProc(IteM i)
{
Char fname[PATH_MAX];
Char defname[32];
PDNMS pdnmsThis = GetSelectedModelstruc();
fname[0] = '\0';
defname[0] = '\0';
if (pdnmsThis == NULL)
StringNCpy_0(defname,
pdnmsThis ? GetStrucStrings(pdnmsThis,
PDB_ACC) : "cn3d",
sizeof(defname) - 4);
StringCat(defname, ".gif");
if (GetOutputFileName(fname, sizeof(fname), defname)) {
SaveImageGIF(Nlm_GetViewerImage3D(Cn3D_v3d), fname);
}
}
Int2 Main()
{
PMSD pmsdRoot = NULL;
static char valfilein[PATH_MAX];
Int2 iDotLen = 0;
AsnIoPtr aip=NULL;
NcbiMimeAsn1Ptr nmap=NULL;
BiostrucPtr bsp=NULL;
BiostrucSeqPtr bssp=NULL;
PDNMS pdnmsModelstruc = NULL;
ErrSev esMsg,esLog,esFatal;
PDNML pdnmlModel;
PMLD pmldThis;
Boolean isMime = FALSE;
Int4 iModels = 0, iNCBImodel = 0, iPDBmodel = 0, iAscii = 0;
/* Initialize MMDB-API */
ErrSetLogfile("error_strSummary.log", ELOG_APPEND|ELOG_BANNER);
ErrSetOptFlags(EO_SHOW_SEVERITY|EO_SHOW_CODES|EO_LOG_FILELINE|EO_SHOW_USERSTR|EO_SHOW_ERRTEXT|EO_BEEP|EO_WAIT_KEY|EO_LOGTO_USRFILE);
if (!GetArgs("strSummary reports on what is inside .val or .cn3 or .prt file to stdout.\nCaution - will not work on Biounits downloaded from NCBI, use Asymmetric Units\n",3,Rargs))
return 1;
/* we use exact filenames and extensions to avoid confusion */
StringCpy(valfilein, Rargs[0].strvalue);
if (FileLength(valfilein) == 0)
{
ErrPostEx(SEV_FATAL,13,1,"Unable to find input file %s",Rargs[0].strvalue);
return 13;
}
if (!OpenMMDBAPI(0,NULL)) {
ErrPostEx(SEV_FATAL,12,1,"Unable to open MMDBAPI, check for missing bstdt.val dictionary file.");
return 12;
}
/* load an ASN.1 file *.val or *.c3d or *.prt write out Biostruc only */
aip=AsnIoOpen(valfilein,"rb");
if (aip==NULL) {
ErrPostEx(SEV_FATAL,11,1,"Unable open ASN.1 stream in file %s",valfilein);
return 11;
}
/* first try biostruc load */
/* printf("try biostruc\n"); */
esMsg=ErrGetMessageLevel();
esLog=ErrGetLogLevel();
esFatal=ErrGetFatalLevel();
ErrSetMessageLevel(SEV_MAX);
ErrSetLogLevel(SEV_MAX);
ErrSetFatalLevel(SEV_MAX);
bsp=BiostrucAsnRead(aip,NULL);
AsnIoClose(aip);
ErrSetMessageLevel(esMsg);
ErrSetLogLevel(esLog);
ErrSetFatalLevel(esFatal);
if (bsp == NULL) { /* try ascii */
aip = AsnIoOpen(valfilein,"r");
if (aip==NULL) {
ErrPostEx(SEV_FATAL,10,1,"Unable open binary or ascii ASN.1 from file %s",valfilein);
return 10;
}
esMsg=ErrGetMessageLevel();
esLog=ErrGetLogLevel();
esFatal=ErrGetFatalLevel();
ErrSetMessageLevel(SEV_MAX);
ErrSetLogLevel(SEV_MAX);
ErrSetFatalLevel(SEV_MAX);
bsp=BiostrucAsnRead(aip,NULL);
AsnIoClose(aip);
ErrSetMessageLevel(esMsg);
ErrSetLogLevel(esLog);
ErrSetFatalLevel(esFatal);
if (bsp) iAscii = 1;
}
if (bsp==NULL) {
/* printf("try mime binary\n"); */
/* then try NCBIMime load */
aip=NULL;
aip=AsnIoOpen(valfilein,"rb");
ErrSetMessageLevel(SEV_MAX);
ErrSetLogLevel(SEV_MAX);
ErrSetFatalLevel(SEV_MAX);
nmap=NcbiMimeAsn1AsnRead(aip,NULL);
ErrSetMessageLevel(esMsg);
ErrSetLogLevel(esLog);
ErrSetFatalLevel(esFatal);
AsnIoClose(aip);
if (nmap == NULL) {
/* printf("try mime ascii\n"); */
aip=AsnIoOpen(valfilein,"r");
ErrSetMessageLevel(SEV_MAX);
ErrSetLogLevel(SEV_MAX);
ErrSetFatalLevel(SEV_MAX);
nmap=NcbiMimeAsn1AsnRead(aip,NULL);
ErrSetMessageLevel(esMsg);
ErrSetLogLevel(esLog);
ErrSetFatalLevel(esFatal);
AsnIoClose(aip);
if (nmap) iAscii = 1;
}
if (nmap!=NULL) {
/* got an NCBI mime */
if (nmap->choice!=NcbiMimeAsn1_strucseq && nmap->choice!=NcbiMimeAsn1_strucseqs) {
/* wrong MIME type */
nmap=NcbiMimeAsn1Free(nmap);
ErrPostEx(SEV_ERROR,9,1,"MIME-type wrapper is not a strucseq or strucseqs - no Biostruc to report in: %s",valfilein);
return 9;
}
isMime = TRUE;
/* unwrap the mime and leave the bsp for PDB conversion */
bssp=(BiostrucSeqPtr)(nmap->data.ptrvalue);
bsp=bssp->structure;
bssp->structure = NULL;
/* may want to report on contents of wrapper ... */
nmap=NcbiMimeAsn1Free(nmap); /* discard the wrapper */
nmap = NULL;
bssp = NULL;
}
}
if (bsp == NULL) {
ErrPostEx(SEV_ERROR,8,1,"No Biostruc in files to report in: %s",valfilein);
return 8;
}
pdnmsModelstruc=MakeAModelstruc(bsp);
if (pdnmsModelstruc==NULL) {
ErrPostEx(SEV_ERROR,7,1,"Unable to convert Biostruc to Modelstruc");
return 7;
}
pmsdRoot=(PMSD)(pdnmsModelstruc->data.ptrvalue);
if (pmsdRoot==NULL) {
ErrPostEx(SEV_ERROR,6,1,"Internal error.");
return 6;
}
/* OK, Ready to Start Reporting */
printf("Filename: %s\n", valfilein);
if (Rargs[1].intvalue == FALSE) {
if (iAscii) printf("ASCII Asn.1 (.prt) ");
else printf("Binary Asn.1 (.val) ");
if (isMime) printf("Entry Point: NCBIMime\n");
else printf("Entry Point: Biostruc\n");
if (pmsdRoot->pcPDBName != NULL) printf("PDB code: %s\n",pmsdRoot->pcPDBName);
printf("MMDB Id: %d\n", (int) pmsdRoot->iMMDBid);
printf("Name: %s\n",GetStrucStrings(pdnmsModelstruc, LONG_NAME));
printf("PDB Class: %s\n",GetStrucStrings(pdnmsModelstruc, PDB_CLASS));
printf("PDB Source: %s\n",GetStrucStrings(pdnmsModelstruc, PDB_SOURCE));
pdnmlModel=pmsdRoot->pdnmlModels;
while (pdnmlModel) {
iModels++;
pmldThis=(PMLD)(pdnmlModel->data.ptrvalue);
if (pmldThis->iType==Model_type_ncbi_all_atom) {
iNCBImodel = pdnmlModel->choice;
}
if (pmldThis->iType==Model_type_pdb_model) {
iPDBmodel = pdnmlModel->choice;
}
pdnmlModel=pdnmlModel->next;
}
printf("Number of Models: %d\n",iModels);
if(iNCBImodel) printf("NCBI All Atom Model: %d\n",iNCBImodel);
if (iPDBmodel) printf("PDB All Atom Model: %d\n",iPDBmodel);
if (pmsdRoot->pDictLocal) printf("Has Local Chemical Graph Dictionary\n");
printf("Number of Molecules: %d\n", (int) pmsdRoot->iMolCount); /* number of molecules */
printf("Number of Objects: %d\n",(int) pmsdRoot->iObjCount); /* number of objects */
printf("Number of Density Sets: %d\n",(int) pmsdRoot->iDensCount); /* number of densities */
printf("Number of Inter-Molecule Bonds: %d\n", (int) pmsdRoot->iIMBCount);
if (Rargs[2].intvalue == TRUE) {
printf("\n\nRAMACHANDRAN Angles for all Proteins:\n");
if (iNCBImodel) {
printf("NCBI All Atom Coordinate Model Number %d\n\nChain, AA, Num, Phi, Psi\n",iNCBImodel);
WriteStdoutRamaOneModel(pmsdRoot, iNCBImodel );
}
else if (iPDBmodel) {
printf("PDB All Atom Coordinate Model Number %d:\n\nChain, AA, Num, Phi, Psi\n",iPDBmodel);
WriteStdoutRamaOneModel(pmsdRoot, iPDBmodel );
}
}
}
printf("\n\n");
/* Output FASTA for each chain and dump het list - oldie but goodie code ! */
WriteFASTASeqHet(pdnmsModelstruc, stdout);
/* Shut Down MMDB-API */
/* All Modelstrucs remaining are freed in CloseMMDB-API() */
CloseMMDBAPI();
return 0;
}
static void Cn3D_ExportKin(IteM i)
{
PDNMS pdnmsThis = NULL;
PMSD pmsdThis = NULL;
Char pcSavestr[60];
Char pcSavename[32];
CharPtr Cn3D_pcKinName;
GrouP g, g2, g3, g4;
GrouP gMS;
ButtoN b;
Int2 iCount;
if (Cn3D_Export_InUse)
return;
else
Cn3D_Export_InUse = TRUE;
pdnmsThis = GetSelectedModelstruc();
if (!pdnmsThis) {
Cn3D_Export_InUse = FALSE;
return;
}
pmsdThis = (PMSD) pdnmsThis->data.ptrvalue;
Cn3D_wKinSave = ModalWindow(-20, -13, -10, -10, NULL);
/* set up a group encolosing structures - models selection lists and - "info strings" */
Cn3D_pcKinName = StringSave(GetStrucStrings(pdnmsThis, PDB_ACC));
sprintf(pcSavestr, "Save %s As a Kinemage Rendered File ...",
Cn3D_pcKinName);
g = HiddenGroup(Cn3D_wKinSave, 0, 5, NULL);
SetGroupMargins(g, 10, 10);
SetGroupSpacing(g, 10, 5);
StaticPrompt(g, pcSavestr, 0, 0, systemFont, 'l');
g2 = HiddenGroup(g, 2, 0, NULL);
SetGroupMargins(g2, 10, 10);
SetGroupSpacing(g2, 10, 5);
StringNCpy(pcSavename, Cn3D_pcKinName, 8);
StringCat(pcSavename, ".kin");
Cn3D_tKinSave =
DialogText(g2, pcSavename, 18, (TxtActnProc) Cn3D_KinEnableProc);
MemFree(Cn3D_pcKinName);
Cn3D_bKinBrowse =
PushButton(g2, " browse...", (BtnActnProc) Cn3D_KinBrowseProc);
g3 = HiddenGroup(g, 2, 0, NULL);
gMS = Cn3D_ModelSelect(g3, FALSE); /* no vector models for Kin files saves */
g4 = HiddenGroup(g3, 0, 2, NULL);
SetGroupMargins(g4, 10, 10);
SetGroupSpacing(g4, 10, 5);
Cn3D_bKinOk = PushButton(g4, "OK", Cn3D_ExportKinNow);
b = PushButton(g4, "Cancel", Cn3D_CancelKin);
Cn3D_gColorAtoms =
NormalGroup(g, 2, 2, " color by...", systemFont, NULL);
SetGroupMargins(Cn3D_gColorAtoms, 10, 10);
SetGroupSpacing(Cn3D_gColorAtoms, 10, 5);
RadioButton(Cn3D_gColorAtoms, "Molecule number");
RadioButton(Cn3D_gColorAtoms, "Secondary Structure & Residue Type");
RadioButton(Cn3D_gColorAtoms, "Thermal Factors");
RadioButton(Cn3D_gColorAtoms, "Element");
SetValue(Cn3D_gColorAtoms, 1);
Cn3D_gRenderOpts =
NormalGroup(g, 2, 3, " viewable subsets...", systemFont, NULL);
Cn3D_bRender[0] = CheckBox(Cn3D_gRenderOpts, "Virtual Backbone", NULL);
Cn3D_bRender[1] = CheckBox(Cn3D_gRenderOpts, "Real Backbone", NULL);
Cn3D_bRender[2] = CheckBox(Cn3D_gRenderOpts, "Residues", NULL);
Cn3D_bRender[3] = CheckBox(Cn3D_gRenderOpts, "Heterogens", NULL);
Cn3D_bRender[4] =
CheckBox(Cn3D_gRenderOpts, "Alternate Conformations", NULL);
Cn3D_bRender[5] = CheckBox(Cn3D_gRenderOpts, "NMR Animations", NULL);
for (iCount = 0; iCount < 6; iCount++)
SetStatus(Cn3D_bRender[iCount], TRUE);
Cn3D_KinEnableProc(NULL);
Select(Cn3D_bKinOk);
/* disable appropriate stuff here */
Cn3D_DisableFileOps();
Show(Cn3D_wKinSave);
return;
}