Rev 16997 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Yves, Noël
slib_comment=crée une projection de Newman
!!exemple à changer ensuite mais sert de test.
slib_example=CH<sub>3</sub>,H<sub>2</sub>N,COOH,Cl,C<sub>2</sub>H<sub>5</sub>,Br,280,2,16\
A,B,C,D,E,F,280,2,16
!exit
:proc
!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=280
!default slib_linewidth=2
!default slib_fontsize=16
!default slib_text1=CH<sub>3</sub>
!default slib_text2=H<sub>2</sub>N
!default slib_text3=COOH
!default slib_text4=Cl
!default slib_text5=C<sub>2</sub>H<sub>5</sub>
!default slib_text6=Br
!set tlarg= !eval 100
!set thaut= !eval 50
!set hachureH_larg=!eval 2*$slib_linewidth
!set hachureH_esp=!eval 4*$slib_linewidth
!set tri_taille=!eval $slib_size/4
!set tri_larg=!eval $slib_size/12
!set largeur= !eval $slib_size
!set hauteur= !eval $slib_size
!set tri_bas= !eval 0.91*$tri_taille
!set tri_taille2= !eval $tri_taille/2
!set tri_gauche= !eval $tri_taille2-$tri_larg/2
!set tri_droite= !eval $tri_taille2+$tri_larg/2
!set hachureH_haut= !eval $hachureH_esp+$hachureH_larg
!set hachureH_haut2= !eval $hachureH_esp+$hachureH_larg/2
!set ang_tri_proch=-20
!set ang_tri_ecart=-30
!set centre_g_x=!eval $slib_size/2-$tri_taille/3
!set centre_g_y=!eval $slib_size/2
!set centre_d_x=!eval $slib_size/2+$tri_taille/3
!set centre_d_y=!eval $slib_size/2
!set centre_g_x2=!eval $centre_g_x+$tri_taille2
!set centre_d_x2=!eval $centre_d_x+$tri_taille2
!set ang_dev_bd= $ang_tri_proch
!set ang_der_bd= !eval $ang_tri_proch + $ang_tri_ecart
!set ang_der_hd= !eval -150
!set ang_dev_hd= !eval -120
!set ang_der_hg= !eval 180+$ang_der_bd
!set ang_dev_hg= !eval 180+$ang_dev_bd
!set ang_dev_bg= !eval 180+$ang_der_hd
!set ang_der_bg= !eval 180+$ang_dev_hd
!set ang_in_bg= !eval ($ang_dev_bg+$ang_der_bg)/2
!set ang_in_bd= !eval ($ang_dev_bd+$ang_der_bd)/2
!set ang_in_hg= !eval ($ang_dev_hg+$ang_der_hg)/2
!set ang_in_hd= !eval ($ang_dev_hd+$ang_der_hd)/2
!set ang_bc= !eval -50
###################################################################
!set c_in_hg= !eval cos($ang_in_hg/180*pi)
!set s_in_hg= !eval sin($ang_in_hg/180*pi)
!set c_in_bd= !eval cos($ang_in_bd/180*pi)
!set s_in_bd= !eval sin($ang_in_bd/180*pi)
!set c_dev_hd= !eval cos($ang_dev_hd/180*pi)
!set s_dev_hd= !eval sin($ang_dev_hd/180*pi)
!set c_der_hd= !eval cos($ang_der_hd/180*pi)
!set s_der_hd= !eval sin($ang_der_hd/180*pi)
!set c_in_hd= !eval cos($ang_in_hd/180*pi)
!set s_in_hd= !eval sin($ang_in_hd/180*pi)
!set c_dev_bd= !eval cos($ang_dev_bd/180*pi)
!set s_dev_bd= !eval sin($ang_dev_bd/180*pi)
!set c_der_bd= !eval cos($ang_der_bd/180*pi)
!set s_der_bd= !eval sin($ang_der_bd/180*pi)
!set c_in_bg= !eval cos($ang_in_bg/180*pi)
!set s_in_bg= !eval sin($ang_in_bg/180*pi)
!set c_dev_hg= !eval cos($ang_dev_hg/180*pi)
!set s_dev_hg= !eval sin($ang_dev_hg/180*pi)
!set c_der_hg= !eval cos($ang_der_hg/180*pi)
!set s_der_hg= !eval sin($ang_der_hg/180*pi)
!set c_in_hg= !eval cos($ang_in_hg/180*pi)
!set s_in_hg= !eval sin($ang_in_hg/180*pi)
!set c_dev_bg= !eval cos($ang_dev_bg/180*pi)
!set s_dev_bg= !eval sin($ang_dev_bg/180*pi)
!set c_der_bg= !eval cos($ang_der_bg/180*pi)
!set s_der_bg= !eval sin($ang_der_bg/180*pi)
!set in_hg_x= !eval $centre_g_x+$tri_taille2-$s_in_hg*$tri_bas-$tlarg
!set in_hg_y= !eval $centre_g_y+ $c_in_hg*$tri_bas-$slib_fontsize/2
!set dev_bg_x= !eval $centre_g_x+$tri_taille2-$s_dev_bg*$tri_bas-$tlarg
!set dev_bg_y= !eval $centre_g_y+$c_dev_bg*$tri_bas-$slib_fontsize/2
!set der_bg_x= !eval $centre_g_x+$tri_taille2-$s_der_bg*$tri_bas-$tlarg
!set der_bg_y= !eval $centre_g_y+$c_der_bg*$tri_bas-$slib_fontsize/2
!set in_bg_x= !eval $centre_g_x+$tri_taille2-$s_in_bg*$tri_bas-$tlarg
!set in_bg_y= !eval $centre_g_y+$c_in_bg*$tri_bas-$slib_fontsize/2
!set dev_hg_x= !eval $centre_g_x+$tri_taille2-$s_dev_hg*$tri_bas-$tlarg
!set dev_hg_y= !eval $centre_g_y+$c_dev_hg*$tri_bas-$slib_fontsize/2
!set der_hg_x= !eval $centre_g_x+$tri_taille2-$s_der_hg*$tri_bas-$tlarg
!set der_hg_y= !eval $centre_g_y+$c_der_hg*$tri_bas-$slib_fontsize/2
!set in_bd_x= !eval $centre_d_x+$tri_taille2-$s_in_bd*$tri_bas
!set in_bd_y= !eval $centre_d_y+$c_in_bd*$tri_bas
!set dev_hd_x= !eval $centre_d_x+$tri_taille2-$s_dev_hd*$tri_bas
!set dev_hd_y= !eval $centre_d_y+$c_dev_hd*$tri_bas-$slib_fontsize/2
!set der_hd_x= !eval $centre_d_x+$tri_taille2-$s_der_hd*$tri_bas
!set der_hd_y= !eval $centre_d_y+$c_der_hd*$tri_bas-$slib_fontsize/2
!set in_hd_x= !eval $centre_d_x+$tri_taille2-$s_in_hd*$tri_bas
!set in_hd_y= !eval $centre_d_y+$c_in_hd*$tri_bas
!set dev_bd_x= !eval $centre_d_x+$tri_taille2-$s_dev_bd*$tri_bas
!set dev_bd_y= !eval $centre_d_y+$c_dev_bd*$tri_bas-$slib_fontsize/2
!set der_bd_x= !eval $centre_d_x+$tri_taille2-$s_der_bd*$tri_bas
!set der_bd_y= !eval $centre_d_y+$c_der_bd*$tri_bas-$slib_fontsize/2
!set px=px
!set slib_out=\
<style>\
.gauche { \
text-align : right;\
width : $tlarg;\
height : $thaut;\
font-size: $slib_fontsize$px;\
margin-right : 5px;\
float : right;\
}\
.droite { \
text-align : left;\
width : $tlarg;\
height : $thaut;\
font-size: $slib_fontsize$px;\
margin-left : 5px;\
float : left;\
}\
.haut { \
text-align : left;\
width : $tlarg;\
height : $thaut;\
font-size: $slib_fontsize$px;\
float : left;\
margin-bottom : 5px;\
}\
.bas { \
text-align : left;\
width : $tlarg;\
height : $thaut;\
font-size: $slib_fontsize$px;\
float : left;\
}\
.liaison {\
fill:none;\
stroke:black;\
stroke-width:$slib_linewidth;\
}\
.plein {\
fill:black; \
fill-opacity:1;\
stroke:none;\
}\
.hachure {\
fill:url(#motifhachureH); \
fill-opacity:1;\
stroke:none;\
}\
</style>\
<svg id="cram" width="$largeur" height="$hauteur" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" >\
<defs>\
<pattern id="motifhachureH" patternUnits="userSpaceOnUse"\
x="0" y="0" width="100" height="$hachureH_haut">\
<line style="stroke:white;stroke-width:1$px; " x1="0" y1="0" x2="100" y2="0">\
<line style="stroke:black;stroke-width:$hachureH_larg$px;"\
x1="0" y1="$hachureH_haut2" x2="100" y2="$hachureH_haut2">\
</pattern> \
<line id="inplane" x1="$tri_taille2" y1="1" x2="$tri_taille2" y2="$tri_bas">\
<polygon id="tri" points="$tri_taille2,1,$tri_gauche,$tri_bas,$tri_droite,$tri_bas">\
<use id="devbc" xlink:href="#tri">\
<use id="derbc" xlink:href="#tri">\
\
<use id="devbd" xlink:href="#tri" transform="rotate($ang_dev_bd,$tri_taille2,1)" class="plein">\
<use id="devhd" xlink:href="#tri" transform="rotate($ang_dev_hd,$tri_taille2,1)" class="plein">\
<use id="derbd" xlink:href="#tri" transform="rotate($ang_der_bd,$tri_taille2,1)" class="hachure">\
<use id="derhd" xlink:href="#tri" transform="rotate($ang_der_hd,$tri_taille2,1)" class="hachure">\
\
<use id="devbg" xlink:href="#tri" transform="rotate($ang_dev_bg,$tri_taille2,1)" class="plein">\
<use id="devhg" xlink:href="#tri" transform="rotate($ang_dev_hg,$tri_taille2,1)" class="plein">\
<use id="derbg" xlink:href="#tri" transform="rotate($ang_der_bg,$tri_taille2,1)" class="hachure">\
<use id="derhg" xlink:href="#tri" transform="rotate($ang_der_hg,$tri_taille2,1)" class="hachure">\
\
<use id="inbd" xlink:href="#inplane" transform="rotate($ang_in_bd,$tri_taille2,1)" class="liaison">\
<use id="inbg" xlink:href="#inplane" transform="rotate($ang_in_bg,$tri_taille2,1)" class="liaison">\
<use id="inhd" xlink:href="#inplane" transform="rotate($ang_in_hd,$tri_taille2,1)" class="liaison">\
<use id="inhg" xlink:href="#inplane" transform="rotate($ang_in_hg,$tri_taille2,1)" class="liaison">\
</defs>\
\
<g id="cram_tot" transform="translate(-$tri_taille2,0)">\
<use xlink:href="#derhd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#devhd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#inbd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#derbg" x="$centre_g_x" y="$centre_g_y">\
<use xlink:href="#devbg" x="$centre_g_x" y="$centre_g_y">\
<use xlink:href="#inhg" x="$centre_g_x" y="$centre_g_y">\
<!--\
<use xlink:href="#derbd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#devbd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#derhg" x="$centre_g_x" y="$centre_g_y">\
<use xlink:href="#devhg" x="$centre_g_x" y="$centre_g_y">\
<use xlink:href="#inhd" x="$centre_d_x" y="$centre_d_y">\
<use xlink:href="#inbg" x="$centre_g_x" y="$centre_g_y">\
-->\
<line x1="$centre_g_x2" y1="$centre_g_y" x2="$centre_d_x2" y2="$centre_d_y" class="liaison">\
\
<foreignObject class="node" x="$in_hg_x" y="$in_hg_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc1" class="gauche">$slib_text4</div>\
</body>\
</foreignObject>\
<foreignObject class="node" x="$dev_bg_x" y="$dev_bg_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc2" class="gauche">$slib_text6</div>\
</body>\
</foreignObject>\
<foreignObject class="node" x="$der_bg_x" y="$der_bg_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc3" class="gauche">$slib_text5</div>\
</body>\
</foreignObject>\
\
\
<foreignObject class="node" x="$in_bd_x" y="$in_bd_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc4" class="droite">$slib_text1</div>\
</body>\
</foreignObject>\
<foreignObject class="node" x="$dev_hd_x" y="$dev_hd_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc5" class="droite">$slib_text2</div>\
</body>\
</foreignObject>\
<foreignObject class="node" x="$der_hd_x" y="$der_hd_y" width="$tlarg$px" height="$thaut$px">\
<body xmlns="http://www.w3.org/1999/xhtml">\
<div id="tc6" class="droite">$slib_text3</div>\
</body>\
</foreignObject>\
</g>\
</svg>