Subversion Repositories wimsdev

!distribute items $sw,$sw into sw_1,sw_2

!if $sw=pari

  !set sw_1=gp

!endif

!if $sw iswordof draw

  !set sw_1=flydraw

  !set sw_2=flydraw

!endif

!if $sw=insmath

  !set sw_1=latex

  !set sw_2=latex

!endif

!if $sw=jsxgraph

  !set sw_1=js

!endif

!! a modifier quand il y aura d'autres styles

!default sw_1=flydraw

!if $sw=jsxgraph

  !read js/jsxgraph.phtml

!endif

!if $(module_title_$modu_lang)!=

  !set module_title=$(module_title_$modu_lang)

!endif

!header

!if $compute=yes

  !if $swout=$empty

    <span class="wims_warning">$SW</span> $name_non_execute.

  !else

    <div class="center">$SW</div>

    !if $sw=draw

      <img src="$swout" alt="" />

      !goto after

    !endif

    !if $sw=povray

      <img src="$swout" alt="" />

      !goto after

    !endif

    !if $sw=graphviz

      !set swout=!line 1 of $swout

      <img src="$swout" alt="" />

      !goto after

    !endif

    !if $sw=graphvizsvg

      $swout

      !goto after

    !endif

    !if $sw=jsxgraph

      <div id="jsxbox" class="box" style="width:400px; height:400px;text-align:center;"></div>

      <script type="text/javascript">

      $swout

      </script>

      !goto after

    !endif

    !if $sw=insmath

      MathML: $swout

      Image:

      !instex $src1

      !goto after

    !endif

    !if $sw=canvasdraw

      $swout

      !read script_canvasdraw

      !goto after

    !endif

    !if $sw=jmol

      !set swout1=!lines2rows $swout

      !readproc slib/chemistry/jmolshow $swout1,200,200,white,,

      $slib_out

      !goto after

    !endif

    <pre style="font-weight:bold;font-family:Courier New,Courier,mono;overflow:auto;color:blue;">

    $swout

    </pre>

  !endif

!else

  !read lang/intro.phtml.$modu_lang

!endif

:after

!if $msg!=$empty

  <hr />

  $name_msg <em>$SW</em> :

  <pre style="color:red;font-size:80%">

  $msg

  </pre>

!endif

!form reply

<input type="submit" value="$name_execute" />

!default sw=sh

!set wims_formselect_switch=onchange='submit()'

!formselect sw list $swlist prompt $swname

!set wims_formselect_switch=

$ :

$ $

!set wims_ref_class=wims_button

!href cmd=renew $name_empty

$ $

!set wims_ref_class=wims_button_help

!href cmd=help&special_parm=$sw_2 $wims_name_help

$ $

!set src=!reinput $src

!set src=!replace internal $ by $ in $src

!set src=!replace internal & by & in $src

<br class="spacer" />

<textarea id="wims_deposit" wrap="off" name="src" cols="100" rows="15">

$src

</textarea>

$(name_remark_$sw)

!formend

!tail

!reset src sw