Monkeybread Software - MBS FileMaker Plugin: Correct Image Orientation

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

Correct Image Orientation

All examples are included with download of MBS FileMaker Plugin.

Correct Image Orientation.fmp12

Overview
Tables	1
Relationships	0
Layouts	1
Scripts	1
Value Lists	0
Custom Functions	0
Custom Menus	0

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
Correct Image Orientation	6 fields defined, 1 record	Correct Image Orientation

Fields

Table Name: Correct Image Orientation - 6 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Input	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Correct Image Orientation		Fix Orientation
Output	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Correct Image Orientation		Fix Orientation
Input Name	Normal, Text	Auto-Enter: Always evaluate Context table: Correct Image Orientation Calculation: GetAsText(Correct Image Orientation::Input) Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Correct Image Orientation
Output Name	Normal, Text	Auto-Enter: Always evaluate Context table: Correct Image Orientation Calculation: GetAsText(Correct Image Orientation::Output) Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Correct Image Orientation
Input Orientation	Normal, Text	Auto-Enter: Context table: Correct Image Orientation Calculation: Let ( [ image = MBS( "GMImage.NewFromContainer"; Correct Image Orientation::Input ); orientation = If ( MBS("IsError"); ""; MBS( "GMImage.GetOrientation"; image )); r = MBS( "GMImage.Destroy"; image ) ]; orientation ) Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Correct Image Orientation
Output Orientation	Normal, Text	Auto-Enter: Context table: Correct Image Orientation Calculation: Let ( [ image = MBS( "GMImage.NewFromContainer"; Correct Image Orientation::Output ); orientation = If ( MBS("IsError"); ""; MBS( "GMImage.GetOrientation"; image )); r = MBS( "GMImage.Destroy"; image ) ]; orientation ) Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Correct Image Orientation

Layout Objects: Correct Image Orientation

Regular Fields

Field Name: Correct Image Orientation::Input

Layout Name:

Correct Image Orientation

Top: 90 pt
Left: 59 pt
Bottom: 319 pt
Right: 558 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Field Name: Correct Image Orientation::Output

Layout Name:

Correct Image Orientation

Top: 328 pt
Left: 59 pt
Bottom: 557 pt
Right: 558 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Field Name: Correct Image Orientation::Input Name

Layout Name:

Correct Image Orientation

Top: 179 pt
Left: 581 pt
Bottom: 200 pt
Right: 692 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Correct Image Orientation::Output Name

Layout Name:

Correct Image Orientation

Top: 417 pt
Left: 581 pt
Bottom: 438 pt
Right: 692 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Correct Image Orientation::Input Orientation

Layout Name:

Correct Image Orientation

Top: 225 pt
Left: 581 pt
Bottom: 246 pt
Right: 692 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: Correct Image Orientation::Output Orientation

Layout Name:

Correct Image Orientation

Top: 463 pt
Left: 581 pt
Bottom: 484 pt
Right: 692 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Fix Orientation

Layout Name:

Correct Image Orientation

Top: 308 pt
Left: 581 pt
Bottom: 339 pt
Right: 716 pt

Anchoring: Left, Top

Perform Script [ “Fix Orientation” ]

Scripts:

Fix Orientation

Script Hierarchy

Fix Orientation

Script Name	Fix Orientation
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Correct Image Orientation
Scripts that use this script
Script Definition
Script Steps	#We determin the orientation of the input picture and rotate and flip it in the right orientation #load image Set Variable [ $Image; Value:MBS( "GMImage.NewFromContainer"; Correct Image Orientation::Input ) ] If [ MBS("IsError") = 0 ] Set Variable [ $orientation; Value:MBS( "GMImage.GetOrientation"; $Image ) ] If [ $orientation > 0 ] If [ $orientation = 1 ] #TopLeftOrientation = 1, (Line direction: Left to right, Frame Direction: Top to bottom) #nothing to do Else If [ $orientation = 2 ] #TopRightOrientation = 2, (Line direction: Right to left, Frame Direction: Top to bottom) #Flip horizontally Set Variable [ $r; Value:MBS( "GMImage.Flop"; $Image ) ] Else If [ $orientation = 3 ] #BottomRightOrientation = 3, (Line direction: Right to left, Frame Direction: Bottom to top) #Rotate 180° Set Variable [ $r; Value:MBS( "GMImage.Rotate"; $Image; 180 ) ] Else If [ $orientation = 4 ] #BottomLeftOrientation = 4, (Line direction: Left to right, Frame Direction: Bottom to top) #Flip vertically Set Variable [ $r; Value:MBS( "GMImage.Flip"; $Image ) ] Else If [ $orientation = 5 ] #LeftTopOrientation = 5, (Line direction: Top to bottom, Frame Direction: Left to right) #Rotate 90° and flip horizontally Set Variable [ $r; Value:MBS( "GMImage.Rotate"; $Image; 90 ) ] Set Variable [ $r; Value:MBS( "GMImage.Flop"; $Image ) ] Else If [ $orientation = 6 ] #RightTopOrientation = 6, (Line direction: Top to bottom, Frame Direction: Right to left) #Rotate 90° Set Variable [ $r; Value:MBS( "GMImage.Rotate"; $Image; 90 ) ] Else If [ $orientation = 7 ] #RightBottomOrientation = 7, (Line direction: Bottom to top, Frame Direction: Right to left) #Rotate -90° and flip horizontally Set Variable [ $r; Value:MBS( "GMImage.Rotate"; $Image; -90 ) ] Set Variable [ $r; Value:MBS( "GMImage.Flop"; $Image ) ] Else If [ $orientation = 8 ] #LeftBottomOrientation = 8 (Line direction: Bottom to top, Frame Direction: Left to right) #Rotate -90° Set Variable [ $r; Value:MBS( "GMImage.Rotate"; $Image; -90 ) ] End If Set Variable [ $r; Value:MBS( "GMImage.SetOrientation"; $Image; 1 ) ] Set Variable [ $r; Value:MBS( "GMImage.SetEXIFOrientation"; $Image; 1 ) ] End If # Write back to new field Set Field [ Correct Image Orientation::Output; MBS( "GMImage.WriteToJPEGContainer"; $Image; GetAsText(Correct Image Orientation::Input)) ] #free memory Set Variable [ $r; Value:MBS( "GMImage.Free"; $Image) ] End If
Fields used in this script	Correct Image Orientation::Input Correct Image Orientation::Output
Scripts used in this script
Layouts used in this script
Tables used in this script	Correct Image Orientation
Table occurrences used by this script	Correct Image Orientation
Custom Functions used by this script
Custom menu set used by this script

Download example: Correct Image Orientation

Used functions: