SR HThu Oct 26 13:47:47 2000olszewskASPEN|x86Win325.3.1>>>>>>>>4HH VIPUSERDEFINE H   $(,  DDTEXTROUTINE MODULE_NAMENAMECOMMENTEXECUTEDEXEC_NUMMAIN_TLBOUTPUTOICONOINBRCONTAINEROOUTBRCONTAINER REPETITION FEEDBACK_FROM FEEDBACK_TOBREAKPT INPUT_MUX INPUT_NAMES OUTPUT_MUX OUTPUT_NAMESCONDITIONAL_DISABLE  @    @ 0    VIPUSERDEFINEVIPNODE VIPNODE 8  44NAMECOMMENTEXECUTEDEXEC_NUMMAIN_TLBOUTPUTOICONOINBRCONTAINEROOUTBRCONTAINER REPETITION FEEDBACK_FROM FEEDBACK_TOBREAKPT INPUT_MUX INPUT_NAMES OUTPUT_MUX OUTPUT_NAMESCONDITIONAL_DISABLE  @    @ 0   VIPNODE>> Threshold$>>>inputoutput">4 VIPNODEICON + $(08<@H L PX`d hl px    TEXT_STRINGRECT ICON_DATA ICON_STATUSBREAKPTPIXMAPIDLGRCOMPONENT_TOPIDLGRCOMPONENTVERSIONHIDENAMEPARENTUVALUEIDLGRCOMPONENT_BOTTOMIDLGRGRAPHIC_TOPIDLGRGRAPHICVERSIONCOLOR GRAPHICFLAGSPALETTE XCOORD_CONV YCOORD_CONV ZCOORD_CONVXRANGEYRANGEZRANGEGRAPHIC_DATA_OBJECTIDLGRGRAPHIC_BOTTOMIDLGRPOLYGONTOPIDLGRPOLYGONVERSIONDATA FILLPATTERNPOLYGONSNORMALS POLYGONFLAGSSHADING SHADERANGESTYLE TXTRCOORDTXTRMAP VERTCOLORSBTMCOLOR LINESTYLETHICKIDLGRPOLYGONBOTTOM VIPNODEICON IDLGRPOLYGON IDLGRPOLYGON*%   (04 8< @HPX`hp x  IDLGRCOMPONENT_TOPIDLGRCOMPONENTVERSIONHIDENAMEPARENTUVALUEIDLGRCOMPONENT_BOTTOMIDLGRGRAPHIC_TOPIDLGRGRAPHICVERSIONCOLOR GRAPHICFLAGSPALETTE XCOORD_CONV YCOORD_CONV ZCOORD_CONVXRANGEYRANGEZRANGEGRAPHIC_DATA_OBJECTIDLGRGRAPHIC_BOTTOMIDLGRPOLYGONTOPIDLGRPOLYGONVERSIONDATA FILLPATTERNPOLYGONSNORMALS POLYGONFLAGSSHADING SHADERANGESTYLE TXTRCOORDTXTRMAP VERTCOLORSBTMCOLOR LINESTYLETHICKIDLGRPOLYGONBOTTOM IDLGRPOLYGON IDLGRGRAPHIC IDLGRGRAPHIC2   (04 8< @HPX`hp xIDLGRCOMPONENT_TOPIDLGRCOMPONENTVERSIONHIDENAMEPARENTUVALUEIDLGRCOMPONENT_BOTTOMIDLGRGRAPHIC_TOPIDLGRGRAPHICVERSIONCOLOR GRAPHICFLAGSPALETTE XCOORD_CONV YCOORD_CONV ZCOORD_CONVXRANGEYRANGEZRANGEGRAPHIC_DATA_OBJECTIDLGRGRAPHIC_BOTTOM IDLGRGRAPHICIDLGRCOMPONENT IDLGRCOMPONENT2(   IDLGRCOMPONENT_TOPIDLGRCOMPONENTVERSIONHIDENAMEPARENTUVALUEIDLGRCOMPONENT_BOTTOMIDLGRCOMPONENT ThresholdDD-DD=>SELECT&> (d>4  IDL_CONTAINER*   IDL_CONTAINER_TOPIDLCONTAINERVERSIONPHEADPTAILNLISTIDL_CONTAINER_BOTTOM IDL_CONTAINER) >4  IDL_CONTAINER+ +T>xsize = 256; image dimensions ysize = 256 cutoff = 033outVal1 = 0 ; output value if greater than cutoff;;outVal2 = 1 ; output value if less than or equal to cutoff22output = Make_Array( xsize, ysize, VALUE=outVal1 )for y=0,ysize-1 do begin for x=0, xsize-1 do beginSS if( input[x,y] lt cutoff or input[x,y] eq cutoff ) then output[x,y] = outVal2 endend3>$$$$SR HThu Oct 26 13:33:05 2000olszewskASPEN|x86Win325.3.1 VIP_USERDEFINE  OUTPUT0INPUTOUTPUTXSIZEYSIZECUTOFFOUTVAL1OUTVAL2 YX$$ $> $ $> $  $ -  MAKE_ARRAYVALUE $ >>&$>>&$  # (($<84NODE >VIP 1.3 VIPUSERDEFINE4