Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Yves, Noel

!!exemple à changer ensuite mais sert de test.

slib_example=\(CH_{3}\),F,COOH,Cl,C<sub>2</sub>H<sub>5</sub>,Br,350,4,16

!exit

:proc

!reset rid,slib_text1,slib_text2,slib_text3,slib_text4,slib_text5,slib_text6,slib_size,slib_linewidth,slib_fontsize

!set rid=!randint 100000,999999

!distribute items $wims_read_parm into slib_text1,slib_text2,slib_text3,slib_text4,slib_text5,slib_text6,slib_size,slib_linewidth,slib_fontsize

!default slib_size=250

!default slib_linewidth=2

!default slib_fontsize=12

!default slib_text1=A

!default slib_text2=B

!default slib_text3=C

!default slib_text4=D

!default slib_text5=E

!default slib_text6=F

!set long_liaison= !eval $slib_size/10

!set rayon= !eval $slib_size/6

!set tlarg= !eval 100

!set thaut= !eval 50

!set r32=!eval sqrt(3)/2

!set largeur= !eval $slib_size

!set hauteur= !eval $slib_size

!set centre_x= !eval $largeur/2

!set centre_y= !eval $hauteur/2

!set long_liaison_dev=!eval $rayon+$long_liaison

!set long_liaison_der=$long_liaison

!set ang1=0

!set ang2=-120

!set ang3=120

!set ang4=180

!set ang5=60

!set ang6=-60

!set t1_x= !eval $centre_x + sin($ang1/180*pi)*$long_liaison_dev-$slib_fontsize/2

!set t1_y= !eval $centre_y + cos($ang1/180*pi)*$long_liaison_dev-0.2*$slib_fontsize/2

!set t2_x= !eval $centre_x + sin($ang2/180*pi)*$long_liaison_dev-$tlarg

!set t2_y= !eval $centre_y + cos($ang2/180*pi)*$long_liaison_dev-2*$slib_fontsize/2

!set t3_x= !eval $centre_x + sin($ang3/180*pi)*$long_liaison_dev

!set t3_y= !eval $centre_y + cos($ang3/180*pi)*$long_liaison_dev-2*$slib_fontsize/2

!set t4_x= !eval $centre_x + sin($ang4/180*pi)*$long_liaison_dev-$slib_fontsize/2

!set t4_y= !eval $centre_y + cos($ang4/180*pi)*$long_liaison_dev-3.1*$slib_fontsize/2

!set t5_x= !eval $centre_x + sin($ang5/180*pi)*$long_liaison_dev

!set t5_y= !eval $centre_y + cos($ang5/180*pi)*$long_liaison_dev-$slib_fontsize/2

!set t6_x= !eval $centre_x + sin($ang6/180*pi)*$long_liaison_dev-$tlarg

!set t6_y= !eval $centre_y + cos($ang6/180*pi)*$long_liaison_dev-$slib_fontsize/2

!set px=px

!set slib_out=\

<style>\

/*<![CDATA[*/\

 .gauche$rid { \

text-align : right;\

width : $tlarg;\

height : $thaut;\

font-size: $slib_fontsize$px;\

margin-right : 5px;\

float : right;\

 }\

 .droite$rid { \

text-align : left;\

width : $tlarg;\

height : $thaut;\

font-size: $slib_fontsize$px;\

margin-left : 5px;\

float : left;\

 }\

 .haut$rid { \

text-align : left;\

width : $tlarg;\

height : $thaut;\

font-size: $slib_fontsize$px;\

float : left;\

margin-bottom : 5px;\

 }\

 .bas$rid { \

text-align : left;\

width : $tlarg;\

height : $thaut;\

font-size: $slib_fontsize$px;\

float : left;\

 }\

 .liaison$rid {\

  fill:none;\

  stroke:black;\

  stroke-width:$slib_linewidth;\

 }\

 /*]]>*/\

</style>\

<svg id="newman$rid" width="$largeur" height="$hauteur" xmlns="http://www.w3.org/2000/svg">\

 <defs>\

   <line id="liaison_dev$rid" x1="0" y1="0" x2="0" y2="$long_liaison_dev">\

   <line id="liaison_der$rid" x1="0" y1="$rayon" x2="0" y2="$long_liaison_dev">\

   <use id="dl1$rid" xlink:href="#liaison_dev$rid" transform="rotate($ang1,0,0)">\

   <use id="dl2$rid" xlink:href="#liaison_dev$rid" transform="rotate($ang2,0,0)">\

   <use id="dl3$rid" xlink:href="#liaison_dev$rid" transform="rotate($ang3,0,0)">\

   <use id="dl4$rid" xlink:href="#liaison_der$rid" transform="rotate($ang4,0,0)">\

   <use id="dl5$rid" xlink:href="#liaison_der$rid" transform="rotate($ang5,0,0)">\

   <use id="dl6$rid" xlink:href="#liaison_der$rid" transform="rotate($ang6,0,0)">\

 </defs>\

   <circle id="cercle$rid" cx="$centre_x" cy="$centre_y" r="$rayon"  class="liaison$rid">\

   <use id="l1$rid" xlink:href="#dl1$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

   <use id="l2$rid" xlink:href="#dl2$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

   <use id="l3$rid" xlink:href="#dl3$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

   <use id="l4$rid" xlink:href="#dl4$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

   <use id="l5$rid" xlink:href="#dl5$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

   <use id="l6$rid" xlink:href="#dl6$rid" x="$centre_x" y="$centre_y" class="liaison$rid">\

\

  <foreignObject class="node" x="$t1_x" y="$t1_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t1$rid" class="haut$rid"> $slib_text1 </div>\

    </body>\

   </foreignObject>\

  <foreignObject class="node" x="$t2_x" y="$t2_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t2$rid" class="gauche$rid"> $slib_text2 </div>\

    </body>\

   </foreignObject>\

  <foreignObject class="node" x="$t3_x" y="$t3_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t3$rid" class="droite$rid" > $slib_text3 </div>\

    </body>\

   </foreignObject>\

  <foreignObject class="node" x="$t4_x" y="$t4_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t4$rid" class="bas$rid" > $slib_text4 </div>\

    </body>\

   </foreignObject>\

  <foreignObject class="node" x="$t5_x" y="$t5_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t5$rid" class="droite$rid"> $slib_text5 </div>\

    </body>\

   </foreignObject>\

  <foreignObject class="node" x="$t6_x" y="$t6_y" width="$tlarg$px" height="$thaut$px">\

    <body xmlns="http://www.w3.org/1999/xhtml">\

     <div id="t6$rid" class="gauche$rid"> $slib_text6 </div>\

    </body>\

   </foreignObject>\

 </svg>