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 |