Subversion Repositories wimsdev

!read lang/names.phtml.fr

!read lang/names.phtml.fr

!set limit=50

!set limit=50

!reset begin

!reset begin

!default ext=1

!default ext=1

javaoption=$javatype

javaoption=$javatype

!default javaoption=circle

!default javaoption=circle

javaoutput=!getopt free in $(javaoutput)

javaoutput=!getopt free in $(javaoutput)

!if $end=1

!if $end=1

 !goto end

 !goto end

    step=!linecnt $data

    step=!linecnt $data

    test_ext=!line 2 of $data

    test_ext=!line 2 of $data

    test_extcnt=!itemcnt $test_ext

    test_extcnt=!itemcnt $test_ext

    test_extcnt2=!listintersect $test_ext and $list_curve

    test_extcnt2=!listintersect $test_ext and $list_curve

    !if ($test_extcnt=3 and $type=1) or ($type<2 and $(test_ext[2]) isitemof $list_curve) \

    !if ($test_extcnt=3 and $type=1) or ($type<2 and $(test_ext[2]) isitemof $list_curve) \

      data=!line 1 of $data

      data=!line 1 of $data

      step=3

      step=3

      !goto 2

      !goto 2

    !endif

    !endif

    !if $step=0

    !if $step=0

      !if $type=1

      !if $type=1

        dessin=!append line arrow $(c_[2..5]),5,black to $dessin

        dessin=!append line arrow $(c_[2..5]),5,black to $dessin

      !endif

      !endif

      !if $type iswordof 0 2

      !if $type iswordof 0 2

       dessin=!append line fcircle $(c_[2..3]),10,black to $dessin

       dessin=!append line fcircle $(c_[2..3]),10,black to $dessin

      !endif

      !endif

      XXXXX

      XXXXX

    !next

    !next

    !increase step

    !increase step

    !!exit

    !!exit

   !increase step

   !increase step

 !endif step=1

 !endif step=1

:2

:2

 !if $step>=2

 !if $step>=2

  !if $erase=yes

  !if $erase=yes

    dessin=!line 1 to -2 of $dessin

    dessin=!line 1 to -2 of $dessin

   !else

   !else

    dessin=!line 1 to -3 of $dessin

    dessin=!line 1 to -3 of $dessin

   !endif type

   !endif type

   data=!line 1 to -2 of $data

   data=!line 1 to -2 of $data

 !default imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$wims_deposit

 !default imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$wims_deposit

 click_x=$[$click_x]

 click_x=$[$click_x]

 click_y=$[$click_y]

 click_y=$[$click_y]

 !if $step=2

 !if $step=2

   !if $click_x != 0 and $click_y != 0

   !if $click_x != 0 and $click_y != 0

     data=!append line $click_x,$click_y to $data

     data=!append line $click_x,$click_y to $data

     !increase step

     !increase step

     insdraw_size=$click_x,$click_y

     insdraw_size=$click_x,$click_y

   !endif click!=0 ..

   !endif click!=0 ..

 !else

 !else

   !if $ext=2

   !if $ext=2

     data=!append item $javaoption,$(javaoutput) to $data

     data=!append item $javaoption,$(javaoutput) to $data

     data=!replace internal ; by , in $data

     data=!replace internal ; by , in $data

     !if $javaoption=circle

     !if $javaoption=circle

       javaout2=$(javaoutput[1]),$(javaoutput[2]),$(javaoutput[3])*2,black

       javaout2=$(javaoutput[1]),$(javaoutput[2]),$(javaoutput[3])*2,black

     !if $javaoption=rectangle

     !if $javaoption=rectangle

       javaout2=$(javaoutput),black

       javaout2=$(javaoutput),black

     !endif

     !endif

     !if $javaoption=polygon

     !if $javaoption=polygon

       javaout2=!replace internal ; by , in black,$(javaoutput)

       javaout2=!replace internal ; by , in black,$(javaoutput)

     !endif

     !endif

     dessin=!append line $javaoption $javaout2 to $dessin

     dessin=!append line $javaoption $javaout2 to $dessin

     !increase step

     !increase step

     ext=1

     ext=1

     begin=1

     begin=1

     !reset legend begin test

     !reset legend begin test

   !endif

   !endif

  !endif type=2

  !endif type=2

    !if $ext<=1

    !if $ext<=1

     !if $type=1

     !if $type=1

     !endif

     !endif

     !increase step

     !increase step

     !if $type iswordof 0

     !if $type iswordof 0

       !reset legend

       !reset legend

dessin=!append line fcircle $click_x,$click_y,10,black to $dessin

dessin=!append line fcircle $click_x,$click_y,10,black to $dessin

     !endif

     !endif

     !if $type=1

     !if $type=1

dessin=!append line arrow $click_x,$click_y to $dessin

dessin=!append line arrow $click_x,$click_y to $dessin

     !endif

     !endif

      !increase ext

      !increase ext

        !if $type iswordof 2

        !if $type iswordof 2

    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p

    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p

    !set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase

    !set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase

    !set insdraw_filebase=!listuniq $insdraw_filebase

    !set insdraw_filebase=!listuniq $insdraw_filebase

    !set insdraw_filebase=!items2words $insdraw_filebase

    !set insdraw_filebase=!items2words $insdraw_filebase

    !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\

    !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\

      $dessin\

      $dessin\

   !else

   !else

     data=!append item $click_x,$click_y to $data

     data=!append item $click_x,$click_y to $data

     !if $type iswordof 1

     !if $type iswordof 1

dessin=!append item $click_x,$click_y,10,black to $dessin

dessin=!append item $click_x,$click_y,10,black to $dessin

     !endif

     !endif

 !insdraw $dessin

 !insdraw $dessin

 !set imgsrc=$ins_filename

 !set imgsrc=$ins_filename

     !endif

     !endif

     !reset legend

     !reset legend

     ext=1

     ext=1

    !endif ext <=1

    !endif ext <=1

  !else legend

  !else legend

   !if $legend=$empty and $begin!=1

   !if $legend=$empty and $begin!=1

     test=nolegend

     test=nolegend

   !endif

   !endif

     test=noclick

     test=noclick

   !endif

   !endif

  !endif legend

  !endif legend

!endif cmd=reply

!endif cmd=reply

 !writefile wimshome/sessions/$wims_session/submit.oef $exo

 !writefile wimshome/sessions/$wims_session/submit.oef $exo

 !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

 !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

 insdraw_size=!line 1 of $data

 insdraw_size=!line 1 of $data

 !insdraw $dessin

 !insdraw $dessin

 !set imgfilename=$ins_filename

 !set imgfilename=$ins_filename

  !sh cd $wims_home/\

  !sh cd $wims_home/\

     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit

     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit

 !endif

 !endif

!endif

!endif

!reset click_x click_y erase javaoutput

!reset click_x click_y erase javaoutput