Cropping invisible images

[jbv at souslelogo.com]

Sorry for the multiple messages, but I found the solution
to my problem :
after resizing an image, it seems necessary to update its
imagedata before cropping it :

     put width of img 1 into w
     put height of img 1 into h
     put w/h into tratio
     set width of img 1 to 150
     set height of img 1 to 150/tratio

     get the imagedata of img 1
     set imagedata of img 1 to it
--  then crop works as expected

LC 9.6.9 on Mac 10.15