dimar has asked for the wisdom of the Perl Monks concerning the following question:
### Problem: Q has a very simple representation of 2d geometric shape coordinates, and he wants to pass them into some functions to do very basic transformations. This is just for a quick number-crunching throwaway script to generate sample data.
### Question: A quick search on CPAN doesn't seem to reveal anything that directly addresses this simple need, and PDL looks like extreme overkill. Can anyone suggest some very straightfoward and basic code to do coordinate transformations indicated below (i.e., does it already exist or is this a 'write it yourself' problem).
### init $aCoords = [0,0 10,0 10,10 0,10]; ### a square $bCoords = rotate($aCoords,45); ### a diamond $cCoords = scale($aCoords,2.00); ### a bigger square $dCoords = skew(...); ### etc. $eCoords = translate(...);
The goal is simply to get a handful of small functions like that to enable quick output of the new coordinates to generate sample data. This isn't math homework, and Q is not a whiz with matrix multiplications, hence the inquiry.