ION Script source code:





<!-- Copyright (c) 2001-2002, Research Systems, Inc.  All rights reserved.


     Unauthorized reproduction prohibited. -->







<ION_SCRIPT>




<ION_BODY>



<CENTER>






  <ION_IF EXPR="$Form.CHOICE EQ 'None'">



    Please select a file from the droplist below and hit the "Display" button.



  <ION_ELSE/>



    Image File: 



    <ION_EVALUATE EXPR="$FileName=$Form.CHOICE" DISPLAY="TRUE"/>



    <BR>


    To view another image, select a file from the droplist below and hit the "Display" button.


    <BR><BR><BR>



    <ION_IMAGE WIDTH="256" HEIGHT="256">




      <IDL>




        image = READ_DICOM('$FileName',IMAGE_INDEX=0)


        TVLCT,r,g,b,/GET


        if ((SIZE(image))[0] EQ 3) then image=COLOR_QUAN(TEMPORARY(image),1,r,g,b)


        TVLCT,r,g,b


        TVSCL,CONGRID(image,256,256),/ORDER




      </IDL>




    </ION_IMAGE>




  </ION_IF>



</CENTER>






</ION_BODY>




</ION_SCRIPT>