Posted to tcl by FM at Mon Aug 10 18:47:58 GMT 2026view pretty
# ex : affine transforms
% proc rotation angle (a=\$angle/180.0*acos(-1)\;c=cos(\$a),s=sin(\$a),-\$s,\$c,0,0)
% proc translation {dx dy} (1,0,0,1,\$dx,\$dy)
% proc reflect-x {} (1,0,0,-1,0,0)
% proc reflect-y {} (-1,0,0,1,0,0)
% proc shear {sx sy} (1,\$sx,\$sy,1,0,0)
% rotation 45
0.7071067811865476 0.7071067811865475 -0.7071067811865475 0.7071067811865476 0 0
% translation 100 200
1 0 0 1 100 200
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