Rev 4158 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
||
| 3 | !endif |
||
| 4 | slib_title=Format off to xyz |
||
| 5 | slib_parms=1\ |
||
| 6 | ,file at format off |
||
| 7 | slib_author=Bernadette PERRIN-RIOU |
||
| 8 | slib_out=translate format "off" in "xyz" extended (as in LatticeViewer) |
||
| 9 | slib_comment= |
||
| 10 | |||
| 11 | !exit |
||
| 12 | |||
| 13 | :proc |
||
| 14 | slib_data = $wims_read_parm |
||
| 15 | |||
| 16 | slib_option= !item -1 of $wims_read_parm |
||
| 17 | |||
| 18 | slib_out= |
||
| 19 | |||
| 20 | |||
| 21 | !!********** Lecture des données off |
||
| 22 | |||
| 23 | slib_off=$slib_data |
||
| 24 | slib_H=1 |
||
| 25 | slib_u=!line 1 of $slib_off |
||
| 26 | slib_nom=!replace internal # by $empty in $slib_u |
||
| 27 | !while # isin $slib_u |
||
| 28 | !advance slib_H |
||
| 29 | slib_u=!line $slib_H of $slib_off |
||
| 30 | !endwhile |
||
| 31 | |||
| 32 | !distribute word $slib_u into slib_S_cnt, slib_F_cnt, slib_A_cnt |
||
| 33 | |||
| 34 | slib_sommet=!line $[$slib_H+1] to $[$slib_H+$slib_S_cnt] of $slib_off |
||
| 35 | slib_sommet=!nonempty lines $slib_sommet |
||
| 36 | |||
| 37 | |||
| 38 | slib_arete=!line $[$slib_H+$slib_S_cnt+$slib_F_cnt+1] to $[$slib_H+$slib_S_cnt+$slib_F_cnt+$slib_A_cnt] of $slib_off |
||
| 39 | slib_arete=!nonempty line $slib_arete |
||
| 40 | slib_face=!line $[$slib_H+$slib_S_cnt+1] to $[$slib_H+$slib_S_cnt+$slib_F_cnt] of $slib_off |
||
| 41 | slib_face=!nonempty line $slib_face |
||
| 42 | |||
| 43 | |||
| 44 | !!********** code de dessin des sommets |
||
| 45 | |||
| 46 | slib_out= |
||
| 47 | slib_Sommet= |
||
| 48 | !for slib_na=1 to $slib_S_cnt |
||
| 49 | slib_coord=!line $slib_na of $slib_sommet |
||
| 50 | slib_out=!append line X$slib_na $slib_coord to $slib_out |
||
| 51 | slib_Sommet=!append line ATOM X$slib_na 255 0 0 0 to $slib_Sommet |
||
| 52 | !next slib_na |
||
| 53 | |||
| 54 | !!********** code de dessin des arêtes |
||
| 55 | |||
| 56 | !for slib_nb=1 to $slib_A_cnt |
||
| 57 | slib_r=!line $slib_nb of $slib_arete |
||
| 58 | slib_cnt_r=!itemcnt $slib_r |
||
| 59 | slib_lien1=!word 1 of $slib_r |
||
| 60 | slib_lien2=!word 2 to -1 of $slib_r |
||
| 61 | slib_r1=!line $[1+$slib_lien1] of $slib_out |
||
| 62 | slib_r1=$slib_r1 $[1+$slib_lien1] $[1+$slib_lien2] |
||
| 63 | slib_out=!replace internal line number $[1+$slib_lien1] by $slib_r1 in $slib_out |
||
| 64 | !next slib_nb |
||
| 65 | slib_out=$slib_Sommet\ |
||
| 66 | $slib_out |
||
| 67 |