Topics   All   MacOS (Only)   Windows (Only)   Linux (Only, Not)   iOS (Only, Not)  
Components   Crossplatform Mac & Win   Server   Client   Old   Deprecated   Guides   Examples   Videos
New in version: 11.3   11.4   11.5   12.0   12.1   12.2   12.3   12.4   12.5   13.0    Statistic    FMM    Blog  

GMImage.Rotate

Rotate image by specified number of degrees.

Parameters

Parameter	Description	Example
ImageRef	The image reference number.	1
degrees	The angle in degrees.	90

Result

Returns "OK" on success.

Description

Examples

Rotates image by 90 degree to right

Let (
[
$Image = MBS("GMImage.NewFromContainer"; GraphicsMagick::image);
$RotateResult = MBS("GMImage.Rotate"; $Image; 90);
$Result = MBS("GMImage.WriteToPNGContainer"; $Image);
$DestroyResult = MBS("GMImage.Release";$Image)
];
$Result)

Custom function to rotate image:

/*
MBS_Image_Rotate (Picture; rotation)

Picture: Container 'MyTable::MyField"
rotation: Grad ° - numeric Value, positiv OR negative

Benjamin Fehr, EfficientBizz GmbH
http://www.efficientbizz.com
*/


Let (
[
$Image = MBS("GMImage.NewFromContainer"; Picture);
$RotateResult = MBS("GMImage.Rotate"; $Image; rotation);
$Result = MBS("GMImage.WriteToPNGContainer"; $Image);
$DestroyResult = MBS("GMImage.Release";$Image)
];

$Result)

Rotate with script and error checking:

# Read image into variable
Set Variable [ $image ; Value: LiveStream::Image ]
If [ IsEmpty ( $image ) ]
    # nothing to do
    Exit Script [ Text Result: ]
End If

# load image
Set Variable [ $ImageRef ; Value: MBS("GMImage.NewFromContainer"; $image) ]
If [ MBS("IsError") ]
    Show Custom Dialog [ "Failed to load image." ; $ImageRef ]
    Exit Script [ Text Result: ]
End If

# rotate it
Set Variable [ $RotationResult ; Value: MBS("GMImage.Rotate"; $ImageRef; 90) ]
If [ MBS("IsError") ]
    Set Variable [ $r ; Value: MBS("GMImage.Release";$ImageRef) ]
    Show Custom Dialog [ "Failed to rotate image." ; $RotationResult ]
    Exit Script [ Text Result: ]
End If

# write back
Set Variable [ $NewImage ; Value: MBS("GMImage.WriteToPNGContainer"; $ImageRef) ]
If [ MBS("IsError") ]
    Set Variable [ $r ; Value: MBS("GMImage.Release";$ImageRef) ]
    Show Custom Dialog [ "Failed to rotate image." ; $NewImage ]
    Exit Script [ Text Result: ]
End If

# if not error, put it back to record
Set Field [ LiveStream::Image ; $NewImage ]
Set Variable [ $r ; Value: MBS("GMImage.Release";$ImageRef) ]

See also

• GMImage.Modulate
• GMImage.NewFromContainer
• GMImage.Release
• GMImage.Repage
• GMImage.Resize
• GMImage.Rotating
• GMImage.SetMatte
• GMImage.SetPage
• GMImage.WriteToPNGContainer
• IsError

Example Databases

• GraphicsMagick/Correct Image Orientation
• GraphicsMagick/GraphicsMagick Sample

Blog Entries

• Correct Image Orientation in FileMaker

Created 18th August 2014, last changed 24th February 2022

GMImage.Rollxy - GMImage.Rotating

Feedback: Report problem or ask question.