,gISAP &HISAP (c) 1994 G.W.Moore, G.W.Moore, J.J.Berman, L.A.Brown Baltimore,MD$D?LBC#> ( @UUUU+U4=UUOUXaUUsU|UUUUUUUUUU '09K]oxUUU#,U5UUGPUYUUktU}UUUUUUUUUUUUU UUUUU(U1UUUUCULUUUUUUgUpUyUUUUUUUUUUUUUUUUUUUUUUU UU$U-UU?HUQUUclUuUUUUUUUUUUU );DM_hqӪܪUUU%UU7U@IUU[UdmUUUUUUUUUϪتUUU!3<EW`i{˪Ԫ /8AS\ewwϿ߿@@@ @0@@@P@`@p@@@@@@Ͽ@߿@ 0@P`pϿ߿ 0@P`pϿ߿ 0';;22'"2-8;W;'0';R  &&$+2-R %% %A$+2'2W 9 9>99A$+';W.%X 9 99 .R';$S %%>999 9999 A$0;$AA%% B 9999B   9;'-& X 99 9>9 9> RRA. 9 99 99B   %); 999 9***99  969 ;'-S9B9999999999 99 $;'A 9 999 9 6999 {|&;;99 X 9 9999 699 9 $;2RA  9 99  6 99699@&2;$  9 >99999 99699$';R A.{{BB 9 99 9 999XAW1;;AS X 99 >9  9 9 &'7 A 99 99 99B>B 9 ;0';$ %% 9> X 99 9>X 9S1RA..AAX % B 9B{9&0'-&AA.% 9 >> $0; @SA%.{9% R77'R& SA   AAS$0W$ S$SS &'';;$&&)$$3$$R'WR;;;;'$Form1%567$8!VALUEBOX !g LICENSEBOX%f LICENSECOMOK / CLOSEHELPCOM Close Help F HISTOGRAMPICf TerminalAb- R COLORLIST8ho   +a CANCELCOMDIRCANCELH  #`OKCOMDIROK8H  ZRAWDN  YRAWACR8  +U DIRECTORYFILE8ho   *.BMP*T DONECLOSECOMCLOSE8 0LDBOX#hW TerminalA)K CLOSESEARCHCloseW 'H NEXTSEARCHNextW "%HELPBOX7 ( BIGSCREENPICxT$RB-7> RHEOSTATPICxw pA@oAcFILECTL&File  OPENIMAGE Open Image PALETTEMENUPalette% CLOSEFILECTL Close File CONVERTCTLConvert, TGABMPCTLBlack-White .TGA to .BMP. MCDBMPCTLBlack-White .MCD to .BMP. RAWBMPCTLBlack-White .RAW to .BMP) ERRORDISPLAYCTL Error Display ERRORNOCTLNo ERRORYESCTLYes REFRESHCTL&Refresh IMAGEMENU&Image %BLOCKSELECTCTL Block Select-MEASUREDISTANCECTLMeasure DistanceEDGECTLE&Dge METHODCTLMethod! SOLIDFILLCTL Solid-Fill RADIALCTLRadial% WINDOWSIZECTL Window Size% SIZE11X11Size=11x11 pixels SIZE9X9Size=9x9pixels!SIZE6X6Size=7x7 pixels!SIZE5X5Size=5x5 pixels#SIZE4X4Size=3x3 pixels" THRESHOLDCTL Threshold+SELFTHRESHOLDCTLSelf-threshold' THRESHOLDBARCTL Threshold bar!LEVEL150 Level=150"LEVEL140 Level=140#LEVEL130 Level=130$LEVEL120 Level=120&LEVEL110 Level=110'LEVEL100 Level=100(LEVEL90Level=90)LEVEL80Level=80*LEVEL70Level=70+LEVEL60Level=60,LEVEL50Level=50*- WORKSPACECTLWorkspace Percent.WORK5050%/WORK2020%0WORK1515%1WORK1010%2WORK055%!3 AVERAGEMENUAverage%4 ARITHMEANMENU Arith. Mean#5 GEOMMEANMENU Geom. Mean6 MAXIMUMMENUMaximum7 MINIMUMMENUMinimum#8 ANALYSISCTL &Analysis 9 HISTOGRAMCTL Histogram: VALUESCTLValues#; CLOSEITEMCTL Close item!< DATABASECTL Da&Tabase,= VIEWACTIVEDBSView Active Database#?VIEWDBS View Database@CLOSECTL&CloseAHELPCTL&HelpB GENERALHELPGeneralCTOPICCTLTopicDFILEHELPFileE IMAGEHELPImageFEDGEHELPEdge!G ANALYSISHELPAnalysisI PALETTEHELPPalette!J HISTOGRAMHELP HistogramM VALUESHELPValuesN DATABASEHELPDatabase$OWORDSEARCHHELP Word Search%P TROUBLEHELPTroubleshootingQQUITCTL&Quit$__   PPHBZ8{ph-0yf yH Form_ClickSHOWITCOM_ClickIMAGOJJJFileNamePXLINECHRJVALJ III* FILESTART&DONEBOXAVisibleRText SHOWITBOX SHOWITCOMKKKcKKJKKIKII KJJ;4TIMEINCRLFBILPIC BILPIC_ClickBILPIC_MouseDown~Button\ShiftXYXXYYAsSingleSFyBFBIIXOFCOORDZZBOTXBOTY2COTX;COTYyTOPYTOPXJJIIC JJC&IIKHHGGSUMJJJKLRIIESIIThenIISJJRJJVHISTG1HSTHISTOGRAMCOM_Click* HISTOGRAMPICLILIPHILPL HISTOGRAMCOMTXRTo2Picture& EMPTYHISTOGRAMPIC_ClickIIMAGEaRECOVERITCOM_Click@ AutoRedrawgFLNMSHOWPICWAITPAUSEdNUCAREA DENSUMDENSAVGVJCommand1_ClickACLEARCOM_Click HISTOGRAMBOXMHIGSNSLSQTNTLTQlNEXTII`VNVL9VQ~VTOT!VBOTVTOPrVRATVSAVTISAVILIN RECOVERITCOMDIV]IAVGZSUMAfSUMBMAXDIAMLASTALASTBoLASTIyLASTIILASTIIIfLASTIVLAST1LAST2LAST3LAST4SUM16SUM2SUM3 SUM4NEDGE4EDGE IEaIPJECJEDI.EDJkEITEJPID(IAEDATAI:AJEAGIBlEDB.BI EDGBJ EB,IQJQDFROOTDIAMSQRTRECOLORI SETEFOCUSKKAABBeCCVJAVJBVBCVJCRCLVALKVALL'BILPIC_MouseUpyDOWNXDOWNYUPX UPY>WDTzHGTIHWDTHHGTvCOLORCOM_ClickWIIM^JJM~KKMscolKKCLL@S| Form_LoadIIACJJAC KKACKJJTXKIITP Form_PaintFORM boxxRRLLH2 FILENx DONEBOX_Change4ZPVARRMAXIMIZELScaleTop: ScaleLEFT ScaleWidthf ScaleHeight:TopLeftWidthHeight Form_ResizeCRJbVAJLASTANDIfXCOORycoorNCOORXAYA.XB(YBXQYQ AREADIAM EMINDIAM ECCNTRFECCENTXCENTER!YCENTERXCRYCRXC YCXRC YR^ XKlYKQUAD[OPPo ADJ RADIANATNARG' RADSORTRADVALi NCOORMVIIRIN VI* RJ SSW RK RKKRKP KP XPu YP@ RP, CUTOFF HISTOCOM_Click HISTOGRAM MARKER MARKXG MARKY= IX IY: MARKNUM NMARKR 2213233343525353535z 5353535 BILLMARK| IAA0 IBB 15253545 22132333435253545454545454545454 21121314243443515253545454545454 515253545454 UNIMARK UN NMARK/ TENMARK filedlgc ULOAD( frm LOADi FLNMBMP BMPIN FLNMTGAN Command1_GotFocus Command1 TBDFY TBDFX^ BILPIC_MouseMove PAINTNOW DRAWWODTJp DRAWWIDTH5 FORECOLOR5 QUITCOM_Click RESTARTCOM_ClickI Form_KeyDown KeyCode GAUGE MainForm StartOp BILLTIMERo HowMuch INVISGAUGE GAUGEDISPLAY CallS CLICK Enabled WAKEUPGAUGE IIIPASS SHOWITCOM_GotFocus SSxIIIT IIIB) ShowOp Percent CurrentX# CurrentY OldScaleMode Parentq ScaleModeR[ BitBlt hDCBSRCCOPY CALLGAUGEDISPLAYq Command2_Click Command2_GotFocus[ Command2 MATRIXA JLINENR THENCall{ Gauge_Click7 IIH IIQ vak" OUTFILENAME\vagKLOFBMP<LOFTGAASAVMIN> ASAVMAX DSAVFRASAVLOW IFRb IFPL XRAE XPAXRBXPBYRBYPBFRUPrJFRKFR,FRDNPRMONE PRMTWOLFUPKUP JUPydDSQ FDNKDNEJDNjFRDIMEFRQUO BINLOG FRXNUCCONTMFRACYUNFRACYFRACX3NFRACFQRMONE#QRMTWOWIFRAC!XDFIFRAD7IFRAMYDF/IFRALjXDMcYDMXDL YDLXALXAMXDaHFROFRPRMFORXFL4IFRAF:XAFHISTOCOM_LostFocusFPhorverDIFCOL'vertCTRXCTRY/STEPSdnx cxNYcyLASJ?totxtotycyyDEGperimxhperimyUwenswitch"DIS<O(& MOUSEPOINTERthenThentheni Z.QYU messageboxrgoRs1s2DC:LJC.avg av}vgSW histo_ClickG  getfile_Click bitmap_Click restr_Click EXIT_ClickbillpicQperibilPpicp1p2p3>p4)slqdg ADHqdv!qd2(xd2yd2xd1yd173SW2SW3NCd histo1_Click openf_Clickfindcell_Clickcreatedata_Click hist2_ClickVcutpiece_Click closef_ClickCheckedCLOSEF ClosefileFILE. genhlp_ClickHELPBOX hishlp_Click valhlp_Clickt glosexe_ClickFILETEXTLOFTEXTSHOWPAGEGRABPAGEINGRABHELPBOX_ChangeHELPBOX_DragDropSourceIControlFG1MG2COVERNUCz GEOFFSROU valfind_ClickGETFILE2} IMG2_ClickY covernuc1Eprx=pry?perswpersfdTXownyTY=av1p TXT_Click texteditbox TEXTEDITSW IMAGEDITSW FILENAMERFILEGETTERCOM_Click IMG_Click0TEXTEDITBOX_Change3TEST FLNMSEL FILEGETTERCOM_GotFocus filegettercomiGAUGECOVERBOX_ChangeInvisGauge_Click renfile_Click  gefboxnuc8xdiruboxynxposyposTBOX^bosumxboxsumxfilGVTstpuym;dymnumcellsNUMPIX,dxlpixlinlipylinlipxlineWZXuperi2mdBZYxzd`XC1YC1J$BILPIC_LinkNotifydonyMIXfdown?MIY(TXT new_Click TEXTEDITNAMED TEXTEDITOUTconvertf_Click undolst_Click" ;ni^check TEXTEDITNAMparse:FLchRz. e4iPq(}@LXchkkw!"MandchkS#$%&'()%qh0 PARSEPASS*LGMNAOEXTY! IMAGEGRABVTEXTPAD3EDITBOXMSelTextcopyedit_Clickclippaste_Click CLIPPASTENUMCELSNUCARENUCARAEA(DENSUDENSAV2VRATI9ECCENwROOTDIAAREADI{ECCEN71EMINDIAXCTYCTjFRACuNUCNTper1PER2PER4PERIMSPERIM1gPERIMXCOR_YCORMX44YR(QUEL tgabmp_Click NEWFILESW OPENFILESWTGABMPSW+RAWBMPSW rawbmp_ClickTGABMPFOCUS_ClickTGABMPFOCUS_GotFocusLFLNMSELPICLABGO_Click newtext_Clicknewimage_ClickDISPLAYTHELPICmethodmenu_Clickwindowmenu_Click thresholdmenu_ClickTHRESHOLDVALUEQ WINDOWVALUEAGETFNcutpiececopyeditocutpeicefilescelnum9HScroll1_Change  radmenu_ClickgefsrouEspiralmenu_Click_GEF convertgaINZuTGANAME CONVERTRAWreadAs B2B1B4 B3RAWNAME tgaconvertb7b6b5b8Sb51Wb84HIST2 cluless_Click)CLULESS VALFINDaNEWTEXTq windowsize SIZE8X8_Click+ SIZE4X4_Click< SIZE5X5_Click} SIZE6X6_Click_LEVEL105_Clickp LEVEL75_Click LEVEL80_Click LEVEL85_Click LEVEL90_Click LEVEL95_ClickLEVEL100_ClickdCOLORTGABMP_ClickLEVEL130_ClickLEVEL110_ClickLEVEL120_Click" LEVEL70_Click3 LEVEL60_Clickb LEVEL50_Click|BILPIC_LinkOpenncancelF! BILPIC_Paint;%FileEdit4!crwFILE1FNMSEL ISTOGRAMPICdsTMPMXtmpxlyptrvirrvirrrLEVEL120LEVEL110LEVEL90 LEVEL80LEVEL70"LEVEL60-LEVEL509LEVEL130LEVEL100( PSEU_Clickg! loadpicture md_ClickYDSXDSP&Q4queryYMsgBoxq4 !q413 tgabmpfocus! pericancelLml !vfpL VIS1_Click=vis1Picture1_Click thresbox_Click THRESHOLDR14thresbox PICTURE1UTHREX+ List1_Click! LIST1 File1_ClickvCommand4_Click`Command3_ClickOK_ClickFile1_DblClick Cancel_ClickokFILE2VISBLE File2_Click File2_DblClickCANCELO*!OKO6 oko_Clickt! cancelo_Clickmsize8x8 size4x4 size5x5C$size6x6! coverpermgpntper ndcurpnt begy`  wd_Click-Z T  VALUE"FOUND8$ ScrollBarsK" ScrollBar!gefxC Command5_Click1 MIN1I&MAX1 SCANBOX SCN sc!scnln Text1_Changev scanbox_Changef canbox_ChangeS!k,ql! SPIRALMETHOD $BOTXbotx VALCOORDR"IIJJ MAPCOORD! SORTCOORD"EUDST!TBHFY#TBHFX!JJHm!EUD=!TBPRD_!IIP!IIJJSW IIS"JJS!MAXEUD#NPUSH" PUSHCOORD!MINEUD_#IJPUSH#IPUSHC"JPUSH" COVERNUC3&#tmpi"ljY"MAX!lascoord"THRESn" lastcoord"geoffrouc" ramen2_Clicky"coor%Command5#Command6_Click$"Command6"LoadData_Click;"DATABASEw$ dbsglob_ClickJ#IO+"DIVIDER$YLO$ ECCENTRICITY%DIAM"AREA$EST"MIN"CENTER"FRACTAL"NUCLEARt'CONTOUR#add%ADD_DATA"yesg#copdat#undolst+# BILPICbilpic"OPUSH#VLPUSH$#UPUSHV#IPUSHPn#IPUSHM$JPUSHP#JPUSHMJ$UIJ8#DIJ%$LIJ.%RIJW#PIJD# SPD_Clickc(SPEEDRAD$em% TEXTFILSW$GEF1-$TMP24%ite+'VIEWDATA_Click#sortfile_Click#avity#List1_DblClick#CHOICE$SELECTED$SORTER$ITEM$ Combo1_Change%Picture1_MouseDowne%IFOpen$NTHQ$LASX$LASR$LASG&LASB$LOCPUSH%INCOORD'LKK\$LJPg$LIPUSHPo$LJPUSHP&LIPPB)LJPP(LIPUSH&LJPUSH$LIPUSHM$LJPUSHM$LIPM%%LJPMI%IKK$JKK'LHF%SUML$LWHs%CUTLB%HHH%BMOUSEUPi&A1%A2&&A3 %MOD1U&MODD1%Q5^%Q1P%Q2;&ZCOOR{'ZKW%IZKl%JZK%YZK%XZK4&ZRK%ZRP&YRK &XRK&YRPz%XRP%ZRR%YRR%XRRv&XBR%XBP%WINDOWI,IICOORD%VLC&ALLSW[&BXP'BXRB ( ThenBILPIC&LUP%LDN%,LLFW'LRG,INUPo&INDN'INLFB&INRG-&EDGEPAT'INU&INRn'INDb&INL"'ING&ZIN}&E&ZID'YZI^'XZI'ZJ'YZJ(XZJ&SUMEUC&DSY(SQY&DSX'SQX'EUC&MAXEUC&INI )EDGEFIND&INITPUSH, SELECTBLOCKw6 'NYNX3'CNYNX'NYCY/(NXCX*NYCYNXCXP' COVERNUC4;'VNYNX(NYXC*NCYX'VNCYXf'overnuc3(NNX(NNY(XCOP6-YCOP'IJ(COR'YZICOR'YZB(YBI'YBJ'XBI'XBJh)ZCX(ZCY4)KX'KXBX(KYB'KYP(LHFMg*KKQ'LTOT2*KKL)KQX[)KQ)KQY(KIJ(INX(INY&(HNX6(HNY>(HNYNX,TBX)HNCYF(HNCX(VIEWDATA:*(CANCEL2u(COMMAND8_Click(COMMAND7_Clicko) NEXT_Click) CANCEL2_Click*COMMAND7*COMMAND8#)NEXT2#*NUC)DNSUM>-DNAVG;)VRTw+DV)ECCNZ*RTDIAMx)ARDIAMR)EMDIAM)XCTR|*YCTR+)FRDM*NCONTI)PR1u*PR2*PR4h+VDATA)BLANK* APP_Click+APP)VDAT2)DBOX$- DBOX_Change3 COMMAND10 ,MX_Click.+Command10_ClickO*PRX+Text1F*HXYe.HNXY)HNYC)HNXC)HNXYC)HNYCC*HNXYCC,HNXCCy,ZXY*ZII*ZKK* ThenINCOORDQ,LIli@*q+w`*VISAVn*RADIAL1O-En+KZX*KBX*YCX8,KBY`+KZY-FLNMDBS -EDITTXT* IMAGEMENUk,EDGEMENU, ANALYSISMENUC+IMAGEMENU_Clickr,IMG2,PUSHINIT +TRPRDF0ARITHMEANMENU_Click0 AVERAGEMENU+GEOMMEANMENU_Click,MAXIMUMMENU_Click/-MINIMUMMENU_Click+MAXL+MINL-LWHWH--VLCWH+ AVERAGEMENUSW+ AVERAGESW+XBYTES+YBYTES+YBTYES/GO_AREA+TMEMX+TMPCX+TMPCY,NUMPTS+TMEMY,CZX,CZYd,TPU1COLOR-COLORGRB0,RO,ODENSUM],VLOG@,VARG^-RLTEN-OLOG-ODENSAVG.FIRs-IPH(0LPH,NPH2THENVARG,VAR,RATE-PR2C,RAND-datanameV-DATANAM30DNAM:ADAT2,W1.shella-Remq,a15.add3k: questdata52-A2pixel4newx.newy0getarea-tot!/tot1-onle-tmempxV.ZCR-ZCR1k-JJP-QP~/IIJPz-JJ1.IIJ1-ZR1- COVERNUC5@4q-ZKP .VY\/VX20.ZBY.ZBXS0VBY.VBX/geff.fildlg..DIRECTORYLIST_Clickp. DIRECTORYLIST.CHOICEDE.DIRECTORYSHOW_Change/DIRECTORYFILE_Click1 DIRECTORYFILE. FILENAMEEnd0Pattern 0 VDAT4_Click0eek\0ACRDN0 RAWACROSS1RAWACR.RAWDN.OK5. RAWDN_Changer/ RAWACR_Change3/ OK5_Click/DIRRAW2RAWA3RAWB/RAWLEN/RAWF/FILEHELP_Click2EDGEHELP_Click/IMAGEHELP_Click61ANALYSISHELP_ClickB2DATABASEHELP_Click2OKCOMDIR<6 CANCELCOMDIR!1FLNMTMP0DIRECTORYFILE_DblClick/ CANCELCOM0OKCOMDIR_Click/CANCELDIRCOM_Click0CANCELCOMDIR_Click 0 FILEGRABBERr0FILEGRABPOINTER2MSGG0ALREADYf0COLORLIST_Click2 COLORLIST4LSSTRV2LBGRAB 1LINEGRAB7 FILEHEADER1LABELIN1 LABELGRAB2NGRAB5 PALETTESW0COLORSEL0LNGRAB1 LINESNAREU1ENDGRAB1 PALFILENAMEK2PALINs1 LLINEGRABg2LOFSEL4COLORLIST_DblClick1PALETTEMENU_ClickF1 PALLETTEMENU93 PALETTEMENUd1 DIMVALCOORD1 IMAGEDITNAM}1destDC1srcDC4xSrcJ3ySrc2RasterOp2 DIMRAWBMPSW1DIMIMAGEDITNAM1DIMBOTY2 DIMGlobal2 DIMEMINDIAMj5SCREENv2TNN 2LEVEL140_Click2LEVEL150_Click*2level4062LEVEL1407LEVEL150@3IPHSW3OUTSIDE`2POINTS3SVIn2SVJ 5SVIJ2LOCSW3LOCVC5TOO5SMALL2KKKK3ThenSVIJ:4G_3PONE2PENN3IONEF4JONE3IENN5JENN3AONEt3AENN4IABS03JABS$6 EDGEERRORSW$3RADIAL5METHOD6METHODSW,7ICOOR4INC7ICOORDV4GENERALHELP_Click5PALETTEHELP_Click9HISTOGRAMHELP_ClickN5VALUESHELP_Click;size9x8}4size9x99 size11x113SIZE11X11_Click4 SIZE9X9_Click3 HELPSEARCHBOX4 HELPEDITBOXL4HELPEDITBOX_Changea4WORDSEARCHHELP_Click5  5 i4UU7UINPUT4UINPUTU9SubU5NEXTSEARCH_Click4SURE6OF-5NEXTHELP5 NEXTSEARCH}6HELPEDITBOXtexteditboxr5 CLOSESEARCH5CLOSESEARCH_Click):TROUBLEHELP_Click8LINPUT5LOF985WORDSW 5WORDLAST7 WORDCOUNT6WORDLOC_7WORDNOW5LLINPUTZ5LHELPBOXG6 LHELPEDITBOX5ANSQk6PERIMETERERROR{6VDAT4 6MX_CLICK_Click7FLN726VIEWACTIVEDBS_Click6DBSCOUNTT6DBSLINE8AVGDIAM8AVGVISAV6QUERYADD7DBSBOX6LOF21_6LOF1/8 DBSBOXTEMP6DBSHDR6LDBSBOX8 MIDDBSBOX ;DBSNAME6DBSQUEST7DBSVDATA_& 7INSTRCR6INSTRON8ILINE8COMLINE8COMINLSK:COMINJJd9COMINNW6INSTRLSU7INSTRNW6LINESW#8 DATABASESW8 VIEWDBS_Click:8 MX1_Clickj7DBSODATA9VBSODATAA7FIRSTTIMETHRESHSW7FIRSTTIMEBLOCKSWV8LOFDBSv7ODENQUD<ODENSVAL7ODENSTD7ODENSSTD7ODSTD:ODENSQUD7ODVAR9HELPTEXTq8Icon|8form17IMPATHE8FontSize29 LICENSEBOX8 LICENSECOM8LICENSECOM_Click <LICENSEBOX_Change8DBSOTEXT\;DBSOTMPF9DBSOBOXf8 VIEWACTIVEDBS{; DATABASEMENU8VIEWDBS<DBSGLOB8ANSW%9LIGHT9DONET9NO9HAS4;BEEN9HEADER: AVAILABLE8SOt9THAT9USER2:MUST : SELECTION9COLORLIST_DragDrop9 PARSENAMEl9PARSEASK_:PINSTRu; DBSNAMESW9SELFTHRESH_Click|9 selfthresh9 SELFTHRESHSW;OLDXy:OLDY:NBND;XBND<YBND: BILPIC_Resize:SELFEDGE:IMPDFILE:THISLINE9IMAGEBOX9HIST:IMAGELINJ;BOUNDXD;BOUNDY:PUSHX:PUSHYS:PTRX:PTRY:EDGEXr:EDGEY;:PERMXC:PERMYP;VCTXV;VCTY;CDLA]<BLOCKCHR:SHOWTEMP;AJN=AJS;AJQ:XXS:YYS:XXN:YYNh;IMPBFILE&;THINS:MSG-;THFCRd<CMINS=XPC>;YPC;XLENGJ<YLENG;LSOFFb;KKSW;NBOUNDY=XVL!<YVL;THISOFFFB<IMLn;AVX=AVYA=OBOUND=IC<XL<YL:<XU;YU<XN<YN<YX>SLP;XI;YI;HJN;HJST<HJQ>MAXJR<MAXII<BJN;BJSk=BJQt<HJR;BJR;CJR;ASI;HIP;HIM=HPI=HMI:=PSX3=PSY>PXIQ>PYI,<PMI3<MPUSH<SHOWBOX=IEXk<IEY >IMHIiCIHMIAMRKPRM=NPERM}<AEX<AEY<PRMSW<MPERM<IMGX<IMGY>JEYY?JEX<IMG@@CRNRz=ICRN<CRSW+=SVX#=SVY]>ZEX<ZEY>DFR=AIM>ASCIM=MSGX= MOUSEBEGINSW= MOUSEENDSWI=MAXXQ=MAXYr=MINX@MINY?DFX#?DFY=OBND=BNDX=BNDYb=XBNDX?YBNDY=IIY=MSGB>YSCREEN{>XSCREEN=ASCPX=ASX@KKY*?BODXs?BODY8>IMB>IMSW>JLO=JHID>ASJ1>IG?IMX;?XSK?YSz?GXN>GXSr>GYN?GYS*>SHOWTEXT? STRHELPBOXU@CTX>CTYEGRANDDBS@ LGRANDDBSS?DATALINEh>PERMTERD?PERMTR}BPRMTR@DBSCALC>NPERMM1?BL> DATAGRAND_?DATADBS?NPERMMM>SHOWW?SHOWWWDCLOSECTL_Click@BASIJ>AJJG@AKK@SEGPATH ? PERIMSHOWE PERIMSHOWSWl?VTXe?VTYAFPC@NDIVID]@SVCRN?GXXDISAPAOO@XO@YO@XAB3@YAB?GPC?DGR?DDG)AATAGRANDFGWMSW? IMAGEBLOCKSWrBIMAGEMEASURESWCTAVX@TAVY @AVERAGEMENU_Clickp@OPENIMAGE_ClickDFRAME10CTL_Click2AREFRESHCTL_ClickbBFILEGRABBERPOINTB SHOWMEDIAN@HHCx@AAAAAVT[AAVTXe@FIND@INITIALAJSUM@ SELFERRORSWBSWITCHESAExBZIPPER{APLEASElARETRY@INBKkHDBSCOMPAINOL#EDBSXZCINLN ATGABMPCTL_ClickLGOPENSBSETSATGAkFRAWBMPCTL_ClickGDBSNAMCDBSSWFAERRORNOCTL_ClickIBERRORYESCTL_ClickE QUITCTL_Click?C ISAPCOPRTXTjBSOFTWAREyCLICENSEA AGREEMENTC SELFTHRESHOLDA TRACEEDGEB WORKSPACE&CBOUNDARY6DTHRESHOLDLONGIATRACE-B CALLSHOWMEDIASELFTHRESHOLDSWCBLOCKSELECTCTL_ClickOCMEASUREDISTANCECTL_ClickDERRORDISPLAYCTL_ClickCORIfBFROMESUBMENUETHRESHOLDBARCTLGSELFTHRESHOLDCTL_ClickCSELFTHRESHOLDCTLBLEVEL160B LEVELlevel130 DTHRESHOLDBARCTL_ClickF RHEOSTATPICoD RHEOSTATSWFRHEOSTATPIC_ClickCRHEOSTATPIC_MouseDownC THRESHOLDBAR`CEVEL130YELE DVEL50 BIGSCREENPICEBIGSCREENPIC_ClickCBIGSCREENPIC_MouseDown BIGSCREENFBIGSCREENPIC_MouseMoveFALLOWFCREATE~DBIGSCREENPIC_MouseUpEEDS\DFLNMSAVMDMETHODCTL_ClickESOLIDFILLCTL_ClickEWINDOWSIZECTL_ClickD ANALYSISCTL9FVALUESCTL_ClickD HISOGRAMCTLD VALUESCTL CLOSEITEMCTLGEHISTOGRAMCTL_ClickhE HISTOGRAMCTLDCLOSEITEMCTL_Click REFRESHCTL FCLOSEHELPCOM_ClicksE CLOSEHELP:E CLOSEHELPCOM Gommand1ECLOSEHELPCOMommand1F DBSAPPENDEedgemenu_Click#H DATABASECTLEDGECTLH DBSDISPLAYEINCMINSW#FDPCGDBXE DONEBOXCOMJF DONECLOSECOMFDBSVALXFINCRDONECLOSECOM_ClickGDBOXTEXTF hlpfil_ClickFtp_ClickFCLOSEFILECTL_ClickdHTHRESHOLDCTL_ClickF CONVERTTGABMP FLNMBMPSELaFLOFSVFLOFSAV|F FILEGRABBERSWHFLNMHDRGHEBXGLHEBXJH ELPEDITBOX\GYYYZZZGTTTGVALUEBOXGSURROUNDHCAPTUREDARKPIXELSH ThenIMAGEBOXGHISTOPCTG WORK05_Click,G WORK10_Click D> Q> > )A E F F vTHRESHOLD VALUES AND SWITCHES  A B x@. \G G GvPARTICLE ARRAYS5x99(:(:: :,9 \HvCENTER OF GRAVITY0 *> 1> #= += = = G + + k: r: y: ; ; ; ; ;vARRAY VERTEXB(U@v PERIMETERTv):2: C" HLvDim MAXCRN&, yH @ RHvMOUSE SWITCH  ? < =   4!  ! T< t< r>vIMAGE BOX DIMENSIONSR9 : :9vBOUNDARY ARRAY t9 A=I=Q=vPAINTNOW GLOBAL IS USEDvITO TURN ON AND OFF THE PAINTING TOOL USED ON MOUSE MOVE AFTER THE MOUSEH v-FIRST TIME SWITCHES, 1=FIRST TIME, 0=REPEATP ,7 A7v#INPUT STRING FOR HELP WORD SEARCH 4vDATABASE BOX A  6 26 5vPERIMETER ERROR MESSAGED r5v2INSTRING LOCATIONS FOR WORDS IN HELP WORD SEARCH"d-5v#WORD COUNTER FOR HELP WORD SEARCHEV  5v2WORD NUMBER FOR CURRENT WORD IN HELP WORD SEARCH 858,' . . .vEDGE ERROR SWITCHD 3vSELECTED PALETTE COLOR 0v>PALETTESW%=0 IF THE COLOR PALETTE HAS NOT YET BEEN DISPLAYEDP 0v2SIZE OF EDGE DETECTION WINDOW (NUMBER OF PIXELS) v1SWITCH FOR AVERAGE (1=ARITH,2=GEOM,3=MAX,4=MIN)L +    vFRACTAL PERIMETER ARRAYS, (,  vHISTOGRAM COUNTER:T,Sv&X&Y COORDINATES FOR MOUSE-DOWN EVENT   v$X&Y COORDINATES FOR MOUSE-UP EVENT  v!PARTICLE X&Y CENTERS OF GRAVITYG  ! ( .vPARTICLE NUCLEAR AREAO8 AvMAXIMUM DIAMETER OF PARTICLEf Ip  0v1FILE NAME FOR GIVEN, .BMP, AND .TGA IMAGE FILES  / C  * / Dv(LENGTH OF FILE FOR .BMP AND .TGA FILES   vFRACTAL DIMENSIONR* v2AVERAGE, SUM, STDEV GRAYVALUES & OPTICAL DENSITY G V L Q, %, v7vECCENTRICITY  r  v-X&Y COORDINATES, PARTICLE CENTER-OF-GRAVITY!  vNUCLEAR CONTOURE y"v/PERIMETER 1-PIXEL, 2-PIXEL, AND 4-PIXEL EDGESX q b { l  eANALYSISHELP_Click0XF/  .0 ISAPANLY.TXT     i  i .i{ (I(#NO ANALYSIS HELP TEXT IS AVAILABLE. =$8 .# : . : " " 9 ARITHMEANMENU_Click0 X*  +9 BIGSCREENPIC_MouseDown0X&Cfpy~v9IF THE USER PRESSES THE MOUSE ON THE BIGSCREEN PICTURE,Rv,THEN THE SELECTION BOX WILL BEGIN TO FORM.  I$MAKE A SELECTION 0FROM THE IMAGE SUBMENU < <0  USER GUIDE&=*8    I( iC iC  <  t9 A=  y F y  ~            ! A L89 BIGSCREENPIC_MouseMove0"X&Cfpy~v5FOR BLOCK-SELECT, CONTINUE MOVING THE MOUSE-PELLETS <I\  I iC  y d9 ~ l9 iCef d9 l9` d9 l9b t9 t9 t9If < ( EDGE TOO LONG < <0L USER GUIDE:& =^8 d9 t9I= l9 t9Q==^8v*FOR MEASURE-DISTANCE, IF PAINTING IS ON,v:THEN CREATE A SIMULATED LINE BETWEEN POINT OF ORIGIN ANDvTHE POINT BEING MOVEDE   IX iCef   ` y ~b  yE  ,2 y ,   ~E   ;2 ~ ;  y ,    ~ ;  iCef  `  b889 BIGSCREENPIC_MouseUp0jX&Cfpy~vIF SELECT-BLOCK: <  InvOBTAIN USER WORKSPACET  iC  x@  Q> 5#A x@IB  5WORKSPACE ERROR < <0( USER GUIDE:&=8v(IF WORKSPACE OK, THEN OBTAIN THRESHOLD x@IjvSELF THRESHOLD GI #LG B v Exit Sub8 BIb  x@ #A x@I^(  5(THRESHOLD ERROR <( <0D USER GUIDE:&(= 88vFIXED THRESHOLDG BI,  x@ AE x@ AI((  5(THRESHOLD NOT SPECIFIED. <( :0 USER GUIDE:&(= 88v)IF THRESHOLD AVAILABLE, THEN TRACE EDGE x@If  x@ #A x@I(  5(EDGE TRACE ERROR <( <0 USER GUIDE:&(= 8 x@Ib( ( THRESHOLD= A . X= *> F Y= 1> <( < 0 nAREA= C" PERIM= r> <( < ZIPPER= @ <( < 0 MAX REACH= yH <( <' |8( |8IB0 Do 0 ~Do 0#:E(8( ?EX#3@(= 8888v8 IF IMAGEGRAB%=0 THEN THE NOTHING HAS BEEN CHECKED OFF vDONEBOX.Visible = 0   IvDONEBOX.Visible = FalseFSelect desired item 00from IMAGE submenu. < <0\ USER GUIDE:& v: DONEBOX.Visible = 0i=8v6 IF IMAGEGRAB%=2 THEN THE DISTANCE FUNCTION HAS BEENv CHECKED OFF+ vTURN OFF PAINTINGH iCe| y  ~   I iC  iCef   `  b iC    u    n u u n n C X-LENGTH: u < < 0 Y-LENGTH: n < < 0H TOTAL LENGTH: C 0 tPIXELS < <&=89 bBLOCKSELECTCTL_Click0~XBv6THIS ROUTINE SETS UP THE PICTURE FOR BLOCKING A CELL   A7I r . ISAPBLKS.TXT  i{  i  i .i{ (E*%# FILE `ISAPBLKS.TXT' IS MISSING. # . .(# :)v) SHOWS HELP TEXT . : " A7 "' j589  CANCELCOMDIR_Click0hX/ ( / E. F0 r/ ~/9 CLOSECTL_Click0TX>  y x) E F9 CLOSEFILECTL_Click0xX F iC iCe|    F *o  hEo  MDo 9 CLOSEHELPCOM_Click0DXD   E9 CLOSEITEMCTL_Click0fXD ~Do  Do  yo  y F Do 9 CLOSESEARCH_Click0lX4vCLOSE HELP WORD SEARCH vSCANBOX.Visible = 0= 4 49 COLORLIST_Click0XX30vCOLORLIST CLICK$ 6 . ( 0v4THE USER-SELECTED COLOR (FROM HANDLER PALETTEMENU)vIS GIVEN IN COLORLIST.TXTF ISAPHEAD.TXT r0 F0 0 0 0^ 0v4LOCATE THE SELECTED COLOR FROM FILE `ISAPHEAD.TXT'  F r0i  i .i{v3IF `ISAPHEAD.TXT' IS UNAVAILABLE, THEN ERROR BOX.' (I^*%File `ISAPHEAD.TXT' is not available. 0,&Please copy from original floppy disk.  0  00D USER GUIDE:&=z8 . 0 : : . 0 0 . : 0 : f0 f0^ 0 f0 0 f0 0 0 0 / v5AT THIS POINT, THE USER MAY EITHER `OK' (=OKCOMDIR))vOR `CANCEL' (=CANCELCOMDIR).9 COLORLIST_DblClick0X 1 /  E. r/ ~/ F0vCOLORLIST CLICKT x . ( 0v4THE USER-SELECTED COLOR (FROM HANDLER PALETTEMENU)vIS GIVEN IN COLORLIST.TXTF ISAPHEAD.TXT r0 F0 0 0 0.^ 0v4LOCATE THE SELECTED COLOR FROM FILE `ISAPHEAD.TXT' v: DONEBOX.Visible = 0 i{ r0i  i .i{v3IF `ISAPHEAD.TXT' IS UNAVAILABLE, THEN ERROR BOX.' (I*,%File `ISAPHEAD.TXT' is not available. 0,`&Please copy from original floppy disk.  0  00 USER GUIDE:&=8 . 0 : : . 0 0 . : 0 : f0 f0$^ 0 f0 0 f0 0 0 0 /l v/USER SELECTS THE OK COMMAND FOR DIRECTORYFILEOv4TRANSFER TEMPORARY FILE NAME TO SELECTED FILE NAME /  ( 0v/HIDE THE DIRECTORYFILE, OK & CANCEL COMMANDS.  E. r/ ~/ F0v2IF NO FILE HAS BEEN SELECTED, THEN ERROR MESSAGE I NO FILE NAME 0HAS BEEN SELECTED0 USER GUIDE&=8v4IF A FILE HAS BEEN SELECTED, THEN CALL FILEGRABBER dI#/=8v2IF NO FILE HAS BEEN SELECTED, THEN ERROR MESSAGEvIf (FLNMSEL$ = "") ThenCvI MsgBox "NO FILE NAME" + CRLF$ + "HAS BEEN SELECTED", 48, "USER GUIDE"Ev  Exit SubvEnd Ifv6'AT THIS POINT, THE USER MAY EITHER `OK' (=OKCOMDIR)vOR `CANCEL' (=CANCELCOMDIR).vIf (FLNMSEL$ <> "") Thenv Call FILEGRABBERvEnd If9 8 CONVERTTGABMP0X9Fv0THIS ROUTINE CONVERTS A TGA FILE TO A BMP FILEX0u j9( ?r ? v9ASSIGN THE NORMAL (GRAY) COLOR MAP TO THE NEW .BMP FILEoi{grey.hdri v$SUBSTITUTE GREY AS THE HEADER FILEi{ F0tgai  i{ FVbmp i 9i ?i{ i ?i i oi ii {i uv*CONVERT THE X,Y COORDINATES OF THE FILES i i o i i i i { i u i6Z0u  i Yri{ i{ FILE HAS BEEN CONVERTED TO: 0 FBMP < <&9 DATABASEHELP_Click0>X\/ x) E : .L ISAPDTBS.TXT     i  i .i{ (I(#NO DATABASE HELP TEXT IS AVAILABLE. =T8 .# : . : " "  E9  DBSAPPEND0|X:EvAPPEND DATABASE1 Do  ~Do  Q> 5 @ @f @ @1 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @Jv @, sE E E0 E E E1h E @ E E E sE, E EE E EE E EIb sE @ E @  E E, E E, E E, 0 E8JD > @ 0 > MDo  YEo  E8o 9 DBSCALC0<X{>v!DATABASE PARAMETERS CALCULATIONv0FIND THE EDGE FOR A PARTICLE WITH KNOWN INSIDEv1CALCULATE PARTICLE AREA, GRAY SUM, DENSITY SUM,v5CENTER-OF-GRAVITY, MAX DIAMETER, MIN DIAMETER, ETC. L %, 7?$@ @,  ! A I' n2' `2 > S Nv:THE SHARED ARRAY INCOORD%() IS THE `INSIDENESS POINTER'.v(INCOORD%()=0 FOR OUTSIDE THE PARTICLE,v'INCOORD%()=1 FOR INSIDE THE PARTICLE,,v,INCOORD%()=2 FOR THE EDGE OF THE PARTICLE.  :> 9 ;  :> ;  =  9 < < Ixv"CALCULATE CENTER OF GRAVITY SUMS  &  !   !vCALCULATE OPTICAL DENSITY SUMU = % 8, %E % 8, 8,I( @, 8, j7 %, j7 %,( 7 j7 j7 7 8v&CALCULATE PARTICLE AREA AND GRAY SUM L % L A AvCALCULATE HISTOGRAM BARS % \ \S \S8 N N L A Gv2IF THE NUCLEAR AREA IS TOO SMALL, THEN ERROR BOXv$CONSIDER A HIGHER THRESHOLD VALUE. AI $The particle is too light. 0NConsider a higher 0pTHRESHOLD selection. 8 80 USER GUIDE& 3=8v,FIND THE CENTER-OF-GRAVITY OF THE PARTICLE A ID  A ( ! A .8v#FIND MAX DIAMETER OF THE PARTICLE & T< > > >  >> 2: [& ): b&      >> 2: o& ): v& [& o& & & & & b& v& & & & & & & & & &E & & N N & I *> ( 1> .     iC    >>   >E& "   >EF   "   2: %  ): % " 2: l% " ): s% % ( #= 4 % . += : s% ( #=  l% . +=  4 ( 7   ( >  : . E   . L   4  iCef 7 E ` > L b  4I~    4>x 4   [ [  :  4   b    [ ,In (  ( [   b   8 N8  4I`  [ 4 >Z [ 4  :  4 : b    [ ,IP (  ( [   b   8 [ N8  4I     4 ,I   4   :   88  N iC  q  {   vCALCULATE PERIMETER         # > # < # L #  # < U U x # L c c q #  , ,  #  <  \ #  L  j #    E q U U \ \ q  q? # #I { c c j j {   @ # #I  , , E E 88 #N AI q A   y"8 ?@  { I q {  EP  @@@@ 8       >N S  ID            8 N iC  E        F* > S  I                        I                I(    F* 888 N   A I$ L A V %, A Q, 7 %, %, A A 7 7 7 7 v78|?5^? A   @ * A I r   *>  1>  IE" I r IEf)\@ A I  E I  8vDATABASE LINE A, L, %,, 5 5 Q,, v7&, 5 5 AD, X, 5 5 rv, , 5 5 , , 5 5 , , 5 5 y" , q  , 5 5 \G>, GR, 5 5 yHp, @ 5vENABLE MENU ITEMS *o  hEo  MDo 9 DIRECTORYFILE_Click0&X.. E. /9 DIRECTORYFILE_DblClick0RX/ E.  E. r/ ~/#/9 DONECLOSECOM_Click00XE E x)9 EDGEHELP_Click0:X!/ x) E : .L ISAPEDGE.TXT     i  i .i{ (I$NO EDGE HELP TEXT IS AVAILABLE. =P8 .# : . : " "  E9 ERRORNOCTL_Click0PX2A ? ERROR DISPLAY IS OFF < <&9 ERRORYESCTL_Click0NXFA ? ERROR DISPLAY IS ON < <&9  FILEGRABBER0* X/v,THIS HANDLER GRABS THE FILE WHICH HAS BEENv!SPECIFIED IN THE DIRECTORYFILE.Cv1THERE ARE DIFFERENT PATHWAYS INTO THIS HANDLER,v4WHICH ARE SPECIFIED BY VALUES OF FILEGRABPOINTER% v'IF FILEGRABPOINTER%=1 THEN OPEN IMAGEGv1IF FILEGRABPOINTER%=2 THEN CONVERT .TGA TO .BMPRv1IF FILEGRABPOINTER%=3 THEN CONVERT .RAW TO .BMPRv1IF FILEGRABPOINTER%=4 THEN CHANGE COLOR PALETTERv-OPEN IMAGE IN 8-BIT BLACK-WHITE .BMP FORMATA  0I\ y iC D". : i{ Di   i{  (IvINVALID FILE NAME0 USER GUIDE&= 8vREFRESHCTL.ENABLED = -1 v(OBTAIN ABSCISSA AND ORDINATE FOR IMAGE i{ D i  i i i + i i i +   i{ F F1o  YEo vVIEWDBS.Enabled = -1:= E8o  *o  hEo  MDo  Do  iC  / C iC8v*THIS ROUTINE RECEIVES THE .TGA FILE NAMEv0WHICH HAS BEEN SELECTED FOR CONVERSION TO .BMPv&THE SELECTED FILE IS GLOBAL FLNMSEL$  0I y iC =   C   v9MSGX$ = "FLNMTGA" + CRLF$ + FLNMTGA$ + CRLF$ + TGANAME$vMsgBox MSGX$v Exit Sub . : v.: LFLNMSEL% = Len(FLNMSEL$)  : Fi{ C i   i{  dI~<INVALID FILE NAME0Z USER GUIDE&i{= 8v&TGANAME$ = Mid$(FLNMSEL$, 1, BMPIN%)vTGANAME$ = FLNMTGA$M w   #9F8v*THIS ROUTINE RECEIVES THE .RAW FILE NAMEv0WHICH HAS BEEN SELECTED FOR CONVERSION TO .BMPv&THE SELECTED FILE IS GLOBAL FLNMSEL$  0 I THIS OPTION 0 NOT AVAILABLE < <&8v FLIP HEADERS TO CHANGE PALETTE  0I i{ / i     dIPINVALID IMAGE FILE NAME < < / 0 USER GUIDE&i{i{= 8i{ Di  aF aFdIL INVALID HEADER FILE NAME D0 USER GUIDE&i{i{= 8i9i9 F>  F> i F i F FN FNi{i{ / C iCv NTH = 1$8vVIEW ACTIVE DATABASEv!If (FILEGRABPOINTER% = 14) Then v Call DBSVDATA: Exit Sub)vEnd If9 `FILEHELP_Click0:X/ x) E : .L ISAPFILE.TXT     i  i .i{ (I$NO FILE HELP TEXT IS AVAILABLE. =P8 .# : . : " "  E9  Form_Load0 X~vSET FORM PARAMETERSH ( 0vSET SWITCHES G   ? C  ? x@ISAP.DBS 8>ISAP.DBS A )A Q> 5 > < = B  A H_ G?B @ t9 A= lisap.icoC K?7v+FIRST TIME SWITCH, 1=FIRST TIME, 0=REPEATI %9 ,7 A7v<PALETTESW%=FALSE IF THE COLORLIST HAS NOT YET BEEN FILLED. 0$ ! 6  A   0 + 5 w    = K    $3vDONEBOX.Visible = 0: y =   iC iC  *o  E8o  hEo  MDo  YEo  f8o  | . ISAPPRIM.TXT  i{  i  i .i{ (E *%# FILE `ISAPPRIM.TXT' IS MISSING. # . .2# :'v' SHOWS HELP TEXT . : r5  . DATABASE.HDR  i{  i  i .i{ (E&*%# FILE `DATABASE.HDR' IS MISSING. # . . 0 : . : 0  6  6 26 t . ISAPCOPR.TXT    i  i .i{ (In *%FILE `ISAPCOPR.TXT' IS NOT AVAILABLE. 0.()ISAP(c) WILL TERMINATE WITHOUT THIS FILE. 7=8 .# : . : lAvDATABASE PARAMETER NAMES FILENAME , XCENTER ,  YCENTER ,* RIM PCT ,H AREA ,f AREA , GRAYSUM , DENSESUM , DENSEAVG $, DENSESTDV (, THRESHOLD , AVGDIAM ,< MAXDIAM ,\ MINDIAM ,| ECCENT , XCENTER , YCENTER , FRACTAL , CONTOUR , PERIMETER ,< WORKSPACE ,\ GRAY AVG ,| MAX REACH , ZIPPER ,vVERTICES FOR EDGE SEARCHLLL LLLLL >   H H H ` H  6H E H  6H >   H H H f H *H   JH N >  >    H #H #HJH   #HJHd   #H JH N N RH  >8  JH  I.   >( RH RH  JH RH\H N8 NJHvIF ERROR HANDLER ON:v* DO NOT SHOW SOFTWARE LICENSE AGREEMENTv TURN ON DATABASE SWITCHC ?I 7 7 )Ai{ 8>i 8v<IF ERROR HANDLER OFF, THEN SHOW SOFTWARE LICENSE AGREEMENT ?I 77 lA 7 7 7 K?ex 7ex89 ~GENERALHELP_Click0RXJ3 x) E : .L ISAPGNRL.TXT     i  i .i{ (I 82NO GENERAL HELP TEXT IS AVAILABLE (FILE ISAPGNRL). < <&=f8 .# : . : " "  E9 GEOMMEANMENU_Click0 X+ +9 HISTOGRAMCTL_Click0<XD ~Do  Do  Do  F  x) E y ye| ( 0 >H S        yef p ` p b N A I F*  V 1 yef 1p ` 1b8 yef2 ` ye2 @ yef.)0 50 100 150 200 250u yef0<*0 0.09 0.22 0.39 0.67 1.71u9 HISTOGRAMHELP_Click0@Xt3 x) E : .L ISAPHIST.TXT     i  i .i{ (I*$NO HISTOGRAM HELP TEXT IS AVAILABLE. =V8 .# : . : " "  E9 HISTOGRAMPIC_Click00X ye| y9 IMAGEHELP_Click08X3/ x) E : .L ISAPIMAG.TXT     i  i .i{ (I& NO IMAGE HELP TEXT IS AVAILABLE. =N8 .# : . : " "  E9 LEVEL100_Click0X BY@ d A B -   9     "9 LEVEL110_Click0X BvPICTURE1.Visible = -1 [@ n A B       " - 99 LEVEL120_Click0X BvPICTURE1.Visible = -1l       " -^@ x A B 9vIf G1(26) = 1 Then Call THREXR9 LEVEL130_Click08X Bv0 ALL LEVELxxx_Click CHANGE THE THRESHOLD VALUEv AND CHECK THE APPROPRIATE BOX@`@  A B       " - 9vIf G1(26) = 1 Then Call THREXX9 LEVEL140_Click0lX1 Bv0 ALL LEVEL140_Click CHANGE THE THRESHOLD VALUEv AND CHECK THE APPROPRIATE BOXvPICTURE1.Visible = -1 a@  A B 62 *2 -   9     "vIf G1(26) = 1 Then Call THREXR9 LEVEL150_Click0pX 2 Bv0 ALL LEVEL150_Click CHANGE THE THRESHOLD VALUEv AND CHECK THE APPROPRIATE BOXvPICTURE1.Visible = -1l  A B }B 62 *2 -   9     "vIf G1(26) = 1 Then Call THREXR9  LEVEL50_Click0X3 BvPICTURE1.Visible = -1l 9       - "I@ 2 A BvIf G1(26) Then Call THREXH9  LEVEL60_Click0X" BvPICTURE1.Visible = -1N@ < A B 9      " - vIf G1(26) = 1 Then Call THREXR9  LEVEL70_Click0X BvPICTURE1.Visible = -1RQ@ F A B 9     -  " vIf G1(26) Then Call THREXH9  LEVEL80_Click0Xp BvPICTURE1.Visible = -11T@ P  B B 9    -   " vIf G1(26) = 1 Then Call THREXR9  LEVEL90_Click0X BV@ Z A B 9   -    " vIf G1(26) = 1 Then Call THREXR9 LICENSEBOX_Change0RX8v2LICENSEBOX.VISIBLE = -1: LICENSECOM.VISIBLE = -19 LICENSECOM_Click0X7 7 74ISAP.DBS 8>LISAP.DBS A )Al Q>| 5 >i{ 8>i  D> D>E"Do you wish to start database 0 A? < D>Ef$(Do you wish to append database 0 A\? < <' |8 |8Ei{ |8I )A D>E D>89 MEASUREDISTANCECTL_Click0LX-Bv&SETS UP PICTURE FOR LINE MEASUREMENT  9 MINIMUMMENU_Click0 XC+ +9 NEXTSEARCH_Click0Xi4v+ This is the routine which determines thev$ next word in the HELP word search 85 85 ( 0 85  5 85(IJNo more encounters 0 of ` 4' in HELP TEXT  0  0&  4 4=8  85-5  F F     E      FE   F  F  F      4   T>>>>> u  N5    u   N5    4 49 OKCOMDIR_Click0fX/v/USER SELECTS THE OK COMMAND FOR DIRECTORYFILEv4TRANSFER TEMPORARY FILE NAME TO SELECTED FILE NAME /   0E  /   0E  C   0E  |Fv/HIDE THE DIRECTORYFILE, OK & CANCEL COMMANDS. E. F0 r/ ~/v4IF A FILE HAS BEEN SELECTED, THEN CALL FILEGRABBER I  D#/=h8v2IF NO FILE HAS BEEN SELECTED, THEN ERROR MESSAGE If NO FILE NAME 0"HAS BEEN SELECTED < <0L USER GUIDE&=h89 OPENIMAGE_Click0X?vOPEN IMAGE FILE&vHIDE ALL IRRELEVANT OBJECTST  x) Ev(DISABLE ALL IRRELEVANT MENU SELECTIONS *o  hEo  MDo  YEo vVIEWDBS.Enabled = -1:C E8o v*POINTER FOR FILEGRABBER HANDLER EQUALS 1  0v6SHOW THE LIST OF .BMP FILES IN THE CURRENT DIRECTORY E. *.BMP E.e. r/ ~/ w   9 PALETTEHELP_Click0:X_3 x) E : .L ISAPPALE.TXT     i  i .i{ (I("NO PALETTE HELP TEXT IS AVAILABLE. =P8 .# : . : " "  E9 PALETTEMENU_Click0X!1vCHANGING THE COLOR PALETTE:v2THE FIRST 1080 BYTES OF THE SELECTED HEADER FILEv)ARE PLACED AT THE HEAD OF THE .BMP FILE v-TO CREATE A NEW .BMP FILE WITH A NEW HEADER v(IF NO IMAGE FILE IS LOADED, ERROR BOX. /  It*%You must first OPEN IMAGE (File Menu) < <0Z USER GUIDE:&=`8v0THE FILE POINTER IS 4 FOR COLOR PALETTE CHANGE  .  0vFLNMBMP$ = FLNMSEL$ v)HIDE UNNECESSARY TEXT AND COMMAND BOXESe x) E v)SHOW THE COLOR LIST, OK&CANCEL COMMANDSe F0 r/ ~/v'IF THE COLORLIST HAS NOT BEEN FILLED, v0THEN IT MUST BE FILLED WITH THE LIST OF COLORSv7FROM FILE `ISAPHEAD.TXT'. THEN WE SET 'PALETTESW%=0,Tv1SO THAT THE COLORLIST WILL ONLY BE FILLED ONCE.0 0I\ 0 ISAPHEAD.TXT r0 v: DONEBOX.Visible = 0ev6IF NO COLOR HEADER TEXT (ISAPHEAD.TXT) IS AVAILABLE,vTHEN ERROR BOX r0i  i .i{ (I*v%File `ISAPHEAD.TXT' is not available. 0,&Please copy from original floppy disk. < <0 USER GUIDE:&=`8v,SHOW THE HEADER TEXT (SELECTION OF COLORS) .H# \0 S0 : : \0 :1X S0 . 0 : : \0 :IR . S0 : f0 f0^ 0 f0 0 0 : S0 F0e 0x8Jl8v:AT THIS POINT, THE USER MUST CLICK ON A COLOR SELECTION.v!THE HANDLER IS COLORLIST_CLICK.Iv>ALTERNATIVELY, THE USER MAY DOUBLE-CLICK ON COLOR SELECTION.v+THEN THE USER MAY EITHER `OK' (=OKCOMDIR)=vOR `CANCEL' (=CANCELCOMDIR).9 5 QUITCTL_Click0X[Av*CLOSE THE DATABASE FILE AND EXIT PROGRAM )AIXYOU HAVE APPENDED FILE 0~ISAP.DBS < <& > 0 z?i D> z?i{879  RAWBMPCTL_Click0X AvOPEN THE FILE BOX;vSET THE RAW CONVERT SWITCH w   vDONEBOX.Visible = 0: E.  0 *.RAW E.e. r/ ~/9   RAWDN_Change0dX. . . .E@ . . . . . .9 REFRESHCTL_Click0(X @  0#/9 RHEOSTATPIC_MouseDown0jX&&Cfpy~vRESET RHEOSTAT ~   A#?C9  SELFTHRESHOLD04XAvSET ERROR SWITCH x@vOBTAIN SELF-THRESHOLDGvPREPARE IMAGE HISTOGRAM ; ; ;؅W4vC ; ;? k: *?? k: s? >  ; 9 ; k: ; ; ; 9  ; ; 9   ; ; *? ; s?I r: ; ; y: ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;I ; ;  ;88 N ;  ; A x@9 SELFTHRESHOLDCTL_Click0XBvBLOCK SELECT SELF-THRESHOLDb B B  A }B 62 *2 -   9     " B9  SHOWMEDIA0X3@vSHOW THE IMAGEBOXEvFOR DEBUGGING PURPOSESP _:vIf (SELFERRORSW% = 0) Then  :> _: 0 _:  :>  <  9 < <E2 < < E3 < <E:2O < <EZR= < <Ezr* < <EA < < EZ < _: < _: N N  _: vEnd If9 SIZE11X11_Click0`X3  3 3 + A 69  SIZE4X4_Click0^X  3 3 A 6 +9  SIZE5X5_Click0^X+  3 3 + A 69  SIZE6X6_Click0^X<  3 3 + 6 A9  SIZE9X9_Click0`X3$  3 3 + A 69 TGABMPCTL_Click0X@vOPEN THE FILE BOX;vSET THE TGA CONVERT SWITCH w    E.  0 *.TGA E.e. r/ ~/9   THRESHOLDBAR0X?CvSET OR RESET THRESHOLD BAR CI\ Be|T@ P Ai{ i i9 >@i           p Bef ` b  p  Ni{ $8 C Bef $` $b Bef ` b  $ $ A9 THRESHOLDBARCTL_Click0XBvBLOCK SELECT THRESHOLD BAR B }B B 62 *2 -   9     " B#?C9 THRESHOLDCTL_Click0bX#Fv THRESHOLD ,7Ij ,7 H .Z ISAPTHRS.TXT  i{  i  i .i{ (E*%# FILE `ISAPTHRS.TXT' IS MISSING. # . .# :)v) SHOWS HELP TEXT . :  0  00P USER GUIDE&=l89  TRACEEDGE0tXAv&TRACE EDGE FROM THRESHOLDED PARTICLEv=HANDLER FOR PERFORMING SOLID-FILL METHOD FOR EDGE DETECTIONv<STARTING FROM THE SELECT-BLOCK CENTER, THE METHOD EXAMINESv/FOUR NEIGHBOR POINTS (UP, DOWN, LEFT, RIGHT).Tv8EACH POINT IS EITHER AN INSIDE POINT OR AN EDGE POINT,v0DEPENDING ON THE THRESHOLD FOR A PIXEL-WINDOW.v'BY G. WILLIAM MOORE, MD, PhD, 9/4/94.vSET ERROR SWITCH x@vINITIALIZE POINTER ARRAY:::: : ::::::::: : :vDETERMINE TRACE PERCENTAGE G  A>* G 9 G N Gd \G Gv#INITIALIZE PUSHDOWNLIST, EDGELIST   ! 4! > 9 9 :  : Nv"INSIDE POINTS; CENTER OF GRAVITY = = > >   :>D 9 ;  :>8 ;  ; ; A  9I.   9 > > >  > = = =  =8 N N = >Eh=T = >IPARTICLE TOO SMALL. < <0 USER GUIDE:& ?E#3@=T8 = = &; > > -; &; #= *> -; += 1>v#SURROUND AND CAPTURE LIGHT PIXELS >  :>  :>  9 = p@ =I(  9U@  9 U@(  9U@  9U@( >0 U@E p@ p@( N( p@E  9 8 N N Nv"SURROUND AND CAPTURE DARK PIXELS >   :>   :>  9 = p@ =I (  9U@  9 U@(  9U@  9U@( >` 0 U@EV p@ p@( N( p@E   9 8 N N Nv(PUSHDOWN LIST FOR SOLID-FILL ALGORITHM 4!  ! &;9 -;9999  ! 4!1  4! 4! 4! =! =!9 ; =!9 ;  >  : ; < : ;  < <E  < < :E : <  <E   <  < :E8 :  <  <  < : < < :I   < <9 < <I  !  !  ! < < <9  < <9   < <9 88 NJ6 v+REMOVE POINTS OUTSIDE THE SOLID FILL AREA  :>   :>   9 = = =E   9 N NvFIND FINAL EDGE POINTS  :>  :>  9 = =I  9U@  9 U@  9U@  9U@ >( U@I0  9  0 Ip8DEDGE TOO LONG. <8 <&8=T080  :   :(8 N8 N N (IR PARTICLE EDGE IS TOO SHORT: 0   PIXELS (MIN=10) < <& ?EH#3@=T8  >| : ,<  : 3< S? S? A=1r S? S? S?I= #= Y? S?Q= += _? Y? ,< e? _? 3< l? e?( l?(Il  3< ,<9 A= S?8J NvMARK PERIMETER T< ;? yH T<: ,< T< : 3< ,< ]< 3< d< 3< ,<9 ,<): 3<2: k< r> 1?v: MAXCRN& = 607 T<  k<1 k< T< t< T< T< }< < t<): ,< t<2: 3< < < < < < RH <1 < < <\H dH dHd kH dH kHd rH rH ,< - kH 3< - -E - - :E : - -E - - :E : - - -9I  < - < - < < ;? - T<): - T<2:  - -9 k< 1? 1? r> r> yH <E < yH8JJ@ t<): < t<2: < = C" d< ]<9 < <9 < ]< < d< @ @ r>I r>xPERIMETER ERROR: 0 ZIPPER= @ < <& ?E#3@=T8 / , *>, 1>, G$, C"8, Q>#{> x@9 TROUBLEHELP_Click0BX4 x) E : .L ISAPTRUB.TXT     i  i .i{ (I0*NO TROUBLESHOOTING HELP TEXT IS AVAILABLE. =X8 .# : . : " "  E9 VALUESCTL_Click0X\Dv*DISPLAY DATABASE VALUES IN VALUEBOX.TEXT x) E ~Do  Do  Do   F y2-CALCULATED VALUES (SEE HELP FOR EXPLANATION): E E 0AREA: A GRAY_SUM: LB DENSE_SUM: %, E E 0v DENSE_AVG: Q, DENSE_STD: v7 THRESHOLD: A E E 0 AVG_DIAM:  MAX_DIAM: r4 MIN_DIAM:  E E 0h ECCENT:  X-CENTER:  Y-CENTER:  E E 0 FRACTAL:  CONTOUR:   PERIMETER: q E E 0V WORKSPACE: \Gv GRAY AVG: G MAX REACH: yH E F E F9 VALUESHELP_Click08X3 x) E : .L ISAPVALU.TXT     i  i .i{ (I&!NO VALUES HELP TEXT IS AVAILABLE. =N8 .# : . : " "  E9 VIEWACTIVEDBS_Click0jX5vVIEW ACTIVE DATABASE x) E x) E F9  VIEWDBS_Click0LX6v 'VIEW DATABASEv 'CRLF$ = Chr$(13) + Chr$(10)v> DONECLOSECOM.Visible = 0: DBOX.Visible = 0: DBOX.Text = ""v DIRECTORYFILE.Visible = -1v FILEGRABPOINTER% = 15 v# DIRECTORYFILE.Pattern = "*.DBS"Vv OKCOMDIR.Visible = -1 v CANCELCOMDIR.Visible = -1*9  WORDSEARCHHELP_Click0ZX4v+ This is the routine which determines the,v% FIRST word in the HELP word searchh xEnter word for word search$ L4 L4E= L4 4 4 C5$i{ ISAPSRCH.TXT$i $ 5 5dIn &HELP SEARCH File Not Found.& $i{=8$i F$i{  5 5  5  51 5 F 4   5 Id` 4& ' not found in HELP SEARCH File.&  5 =8  5E~  5 E  5  5I  5  5   5-5  58J  5I-5  85     E^      F E   F  F  F      4   >>>>> u  N5    u 4   C5 N5  C5   E 4 489 * WORK05_Click0 X G G9  WORK10_Click0 XG( G9  WORK15_Click0"X,G G9  WORK20_Click0"XH I= ; Q=  ; ; #=E ; #= ; =E  ; =  ; +=E$  ; +=  ; =E>  ; = N = #= : = += :v;IF USER BOUNDARY X-LENGTH OR Y-LENGTH EXCEEDS 198 PIXELS,<v!THEN USER BOUNDARY IS TOO LARGEL : :I PARTICLE WINDOW TOO LARGE: 0 < <B ABSCISSA: :^ (MAX=190) 0 < < ORDINATE: : (MAX=190) 0 < <&=< 8vZERO THE COMPLETE IMAGEBOXv)IMAGEBOX(,)=0 OUTSIDE THE USER BOUNDARYGv(IMAGEBOX(,)=1 INSIDE THE USER BOUNDARYv(IMAGEBOX(,)=2 INSIDE THRESHOLDED IMAGE  :>  :>  9 N Nv3SET IMAGEBOX(,)=1 AT THE BOUNDARY OF THE IMAGEBOX   t9> I= #= ; Q= +=  ;  ; ;9 Nv4READ IN THE IMAGE FROM FILE FLNMBMP$, LINE-BY-LINEi{ / i  + z= + = =   :>  += k= z= k= =8 = i    #= : 9 Ni{v<FILL IN ADDITIONAL IMAGEBOX(,) POINTS WITHIN USER BOUNDARY t9 A= : t9>  : >; : t9E8 >; :I= D; :Q= J; >;I= P; >;Q= V; D; \; P;  \; I P; \; D; 8 J; b; V; h; b; h;I V; b; J; h;8 D; P;IJ  V; J; P; D; n; u; \; >D u; D; n; J; {;  {; += u; #=9 A= A= A=I ( EDGE TOO LONG <( <0 USER GUIDE:&(=< 8 u; A=I= {; A=Q= u;N8 J; V;I  P; D; V; J; n; {; b; h;> {; J; n; D; u;  {; += u; #=9 A= A= A=Id (& EDGE TOO LONG <( <0J USER GUIDE:&(=< 8 u; A=I= {; A=Q= {;N8 :N  :>  = = = = :1,   =9 = =E& = =J  : = = = =1   =9 = =E = =JB   = =>   9 N N \G >  9 N k: r: y:  :>0  9 ;  :>$   9I \G \G ;  =  =9 =9 k: k: r: = r: y: = = y:8 N N x@9  WORKSPACEPCT0LXLGv,CREATE HISTOGRAM WITHIN THE USER WORKSPACE GI\NO HISTOGRAM PERCENT 0HAS BEEN SELECTED < <&=z8I \G > 9 N  :> 9 ;  :>  9I \G \G ;  =  =9 =98 N N8  ; G \G{Gz? G 1d   ; 9 ;  A ; GE^ J A  x@9