Subversion Repositories wimsdev

Rev

Rev 12348 | Rev 17973 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!see modules/adm/doc/primitives/draw.phtml scripts/docu/primitives/draw.phtml scripts/primitives/draw.phtml
  2. !if $wims_read_parm=$empty
  3.   !exit
  4. !endif
  5.  
  6. !if $savedrawcnt>0
  7.   !set savedraw$savedrawcnt=$wims_read_parm
  8.   !increase savedrawcnt
  9. !endif
  10.  
  11. !set pp=!trim $wims_read_parm
  12. !set pp=!replace internal \\ by ///?/?/?/// in $pp
  13. !set pp=!replace internal \ by $$m_ in $pp
  14. !set pp=!replace internal ///?/?/?/// by \\ in $pp
  15. !set s_=!line 1 of $pp
  16. !set pp=!line 2 to -1 of $pp
  17. !set pp=!translate internal $   $ to $\
  18. $ in $pp
  19. !set pp=!trim $pp
  20.  
  21. !set a_=!word 1 of $pp
  22. !if $a_=alt
  23.   !set a_=!line 1 of $pp
  24.   !set a_=!word 2 to -1 of $a_
  25.   !set pp=!line 2 to -1 of $pp
  26.   !set ins_attr=alt="$a_"
  27.   !set wims_ins_alt=empty
  28. !endif
  29. !set a_=!word 1 of $pp
  30. !if $a_=animate
  31.   !set a_=!line 1 of $pp
  32.   !set a_=!word 2 to -1 of $a_
  33.   !set pp=!line 2 to -1 of $pp
  34.   !set ins_anim_frames=!item 1 of $a_
  35.   !set ins_anim_delay =!item 2 of $a_
  36.   !set ins_anim_loop  =!item 3 of $a_
  37. !endif
  38. !if scripts/data notwordof $insdraw_filebase
  39.   !set insdraw_filebase=$insdraw_filebase scripts/data
  40. !endif
  41. !default insdraw_filebase=non_existent_subdirectory
  42. !set insdraw_size=$s_
  43. !set ins_align=middle
  44. !insdraw $pp
  45.