Posted to tcl by FM at Mon Aug 10 18:47:58 GMT 2026view raw

  1. # ex : affine transforms
  2. % proc rotation angle (a=\$angle/180.0*acos(-1)\;c=cos(\$a),s=sin(\$a),-\$s,\$c,0,0)
  3. % proc translation {dx dy} (1,0,0,1,\$dx,\$dy)
  4. % proc reflect-x {} (1,0,0,-1,0,0)
  5. % proc reflect-y {} (-1,0,0,1,0,0)
  6. % proc shear {sx sy} (1,\$sx,\$sy,1,0,0)
  7. % rotation 45
  8. 0.7071067811865476 0.7071067811865475 -0.7071067811865475 0.7071067811865476 0 0
  9. % translation 100 200
  10. 1 0 0 1 100 200
  11.  

Comments

Posted by FM at Mon Aug 10 18:51:29 GMT 2026 [text] [code]

you may use brace-parenthese {( ..... )} around the body to avoid all those backslash

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week