Subversion Repositories wimsdev

Rev

Rev 7885 | Rev 8045 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7885 Rev 7952
Line 22... Line 22...
22 
!if $step>$limit
 22 
!if $step>$limit
23 
  test=limit
 23 
  test=limit
24 
  !exit
 24 
  !exit
25 
!endif
 25 
!endif
26 
# how to detect the need to compute?
 26 
# how to detect the need to compute?
- 
 
 27 
 
27 
!if $cmd=reply
 28 
!if $cmd=reply
28 
 error=
 29 
 error=
29 
 compute=
 30 
 compute=
30 
 !if $wims_deposit_old=0
 31 
 !if $wims_deposit_old=0
31 
   !reset wims_deposit_old
 32 
   !reset wims_deposit_old
Line 101... Line 102...
101 
   !increase step
 102 
   !increase step
102 
 !endif step=1
 103 
 !endif step=1
103 
:2
 104 
:2
104 
 !if $step>=2
 105 
 !if $step>=2
105 
  !if $erase=yes
 106 
  !if $erase=yes
106 
   !if $type=0
 107 
   !if $type iswordof 0 2
107 
    dessin=!line 1 to -2 of $dessin
 108 
    dessin=!line 1 to -2 of $dessin
108 
   !else
 109 
   !else
109 
    dessin=!line 1 to -3 of $dessin
 110 
    dessin=!line 1 to -3 of $dessin
110 
   !endif type=0
 111 
   !endif type
111 
   data=!line 1 to -2 of $data
 112 
   data=!line 1 to -2 of $data
112 
   !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data
 113 
   !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data
113 
   step=$[max($[$step-1],2)]
 114 
   step=$[max($[$step-1],2)]
114 
   !if $step=2
 115 
   !if $step=2
115 
    !reset data
 116 
    !reset data
Line 171... Line 172...
171 
dessin=!append line arrow $click_x,$click_y to $dessin
 172 
dessin=!append line arrow $click_x,$click_y to $dessin
172 
     !endif
 173 
     !endif
173 
     !if $type iswordof 1 2
 174 
     !if $type iswordof 1 2
174 
      !increase ext
 175 
      !increase ext
175 
        !if $type iswordof 2
 176 
        !if $type iswordof 2
176 
    dessin_p=!append line fcircle $click_x,$click_y,5,red to $dessin_p
 177 
    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p
177 
    !set insdraw_filebase=!append word $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase
 178 
    !set insdraw_filebase=!append word $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase
178 
       !set insdraw_filebase=!listuniq $insdraw_filebase
 179 
       !set insdraw_filebase=!listuniq $insdraw_filebase
179 
      !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\
 180 
      !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\
180 
      $dessin\
 181 
      $dessin\
181 
      $dessin_p
 182 
      $dessin_p
182 
      !sh cd $wims_home/\
 183 
      !sh cd $wims_home/\
183 
     cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename
 184 
     cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename
184 
 
 - 
 
185 
 !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename
 185 
 !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename
186 
        !endif
 186 
        !endif
187 
     !endif
 187 
     !endif
188 
   !else
 188 
   !else
189 
     data=!append item $click_x,$click_y to $data
 189 
     data=!append item $click_x,$click_y to $data
Line 231... Line 231...
231 
  !sh cd $wims_home/\
 231 
  !sh cd $wims_home/\
232 
     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit
 232 
     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit
233 
 !endif
 233 
 !endif
234 
!endif
 234 
!endif
235 
!reset click_x click_y erase javaoutput
 235 
!reset click_x click_y erase javaoutput
- 
 
 236