Rev 13593 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13593 | Rev 14850 | ||
|---|---|---|---|
| Line 53... | Line 53... | ||
| 53 | slib_a=cos($slib_phi); slib_b=sin($slib_phi); slib_c=cos($slib_theta); slib_d=sin($slib_theta);\ |
53 | slib_a=cos($slib_phi); slib_b=sin($slib_phi); slib_c=cos($slib_theta); slib_d=sin($slib_theta);\ |
| 54 | P = Mat([slib_a*slib_c,-slib_d,-slib_b*slib_c;slib_a*slib_d,slib_c,-slib_b*slib_d;slib_b,0,slib_a]);\ |
54 | P = Mat([slib_a*slib_c,-slib_d,-slib_b*slib_c;slib_a*slib_d,slib_c,-slib_b*slib_d;slib_b,0,slib_a]);\ |
| 55 | vecextract(mattranspose(P^(-1)*M+T),[2,3]) |
55 | vecextract(mattranspose(P^(-1)*M+T),[2,3]) |
| 56 | 56 | ||
| 57 | slib_axe=!exec pari vecextract(mattranspose( $slib_size*P^(-1)+matrix(3,3,i,j,slib_G[i]+0.5)),[2,3]) |
57 | slib_axe=!exec pari vecextract(mattranspose( $slib_size*P^(-1)+matrix(3,3,i,j,slib_G[i]+0.5)),[2,3]) |
| 58 | - | ||
| 59 | - | ||
| 60 | 58 | ||
| 61 | slib_axe=!translate internal ; to $\ |
59 | slib_axe=!translate internal ; to $\ |
| 62 | $ in $slib_axe |
60 | $ in $slib_axe |
| 63 | !distribute line $slib_axe into slib_ox, slib_oy, slib_oz |
61 | !distribute line $slib_axe into slib_ox, slib_oy, slib_oz |
| 64 | 62 | ||