did you try 270?
> On Jun 25, 2017, at 12:51 PM, Peter Mew via 4D_Tech <4d_tech@lists.4d.com> > wrote: > > Hi > I am trying to use Miyako's rotate picture component in v13. > I dont know if its not compatible but It wont run. > So Ive extracted the code and made it a subroutine (Rotate_Picture) > > C_PICTURE($1;$0) > C_REAL($2;$w;$h;$ww;$hh;$s;$c) > > PICTURE PROPERTIES($1;$w;$h) > > $s:=Sin($2*Degree) > $c:=Cos($2*Degree) > > $ww:=($w*$c)+($h*$s) > $hh:=($w*$s)+($h*$c) > > $svg:=SVG_New ($ww;$hh) > $g:=SVG_New_group ($svg) > $image:=SVG_New_embedded_image ($g;$1;($ww/2)-($w/2);($hh/2)-($h/2)) > SVG_SET_TRANSFORM_ROTATE ($g;$2;$ww/2;$hh/2) > > $0:=SVG_Export_to_picture ($svg) > SVG_CLEAR ($svg) > > > I then Call > New_Picture:=Rotate_Picture(Old_Picture;degrees) > > If I call this routine with 90 as the rotation degrees it works, if I try > with -90 degrees it doesnt. Can anyone see why and suggest a modification > to make it so > thanks > -pm > ********************************************************************** > 4D Internet Users Group (4D iNUG) > FAQ: http://lists.4d.com/faqnug.html > Archive: http://lists.4d.com/archives.html > Options: http://lists.4d.com/mailman/options/4d_tech > Unsub: mailto:4d_tech-unsubscr...@lists.4d.com > ********************************************************************** ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:4d_tech-unsubscr...@lists.4d.com **********************************************************************