Mike'sInvariantFrameText vd.atn Mike's invariant frame & text d(TEXTstopStopnullMsgeTEXTThis action places a frame around and text below the image, the frame and text being proportionate in size and position to the image, no matter what size and aspect ratio of the image. Mike Brewer 2004 psa@thebrewerfamily.co.ukCntnboolTEXT duplicate Duplicate DuplicateDplcnullobj EnmrDcmnOrdnFrstTEXTsetSetSetsetdnullobj propLyr BckgT ObjcLyr Nm TEXT Image layerOpctUntF#Prc@YMd enumBlnMNrmlTEXTsetSetSetsetdnullobj propPrprLefxEnmrLyr OrdnTrgtT ObjcLefxScl UntF#Prc@z FrFXObjcFrFXenabboolStylenumFStlCtrFPntTenumFrFlSClrMd enumBlnMNrmlOpctUntF#Prc@YSz UntF#Pxl?Clr ObjcRGBCRd doubGrn doubBl doubTEXTmakeMakeMakeMk nullobj ClssLyr UsngObjcLyr Nm TEXTInner frame layerTEXTmoveMoveMovemovenullobj EnmrLyr OrdnTrgtT obj indxLyr TEXT imageSize Image Size Image SizeImgSWdthUntF#Rlt@zn^TEXT canvasSize Canvas Size Canvas SizeCnvSRltvboolWdthUntF#Rlt@ =pHghtUntF#Rlt@ =pHrznenumHrzLCntrVrtcenumVrtLCntrTEXT imageSize Image Size Image SizeImgSHghtUntF#Rlt@zTEXT canvasSize Canvas Size Canvas SizeCnvSRltvboolWdthUntF#Rlt@ =pHghtUntF#Rlt@ =pHrznenumHrzLCntrVrtcenumVrtLCntrTEXTfillFillFillFl UsngenumFlCnWht OpctUntF#Prc@YMd enumBlnMNrmlTEXTsetSetSetsetdnullobj propPrprLefxEnmrLyr OrdnTrgtT ObjcLefxgaglUntF#Ang@^Scl UntF#Prc@]qIrShObjcIrSh enabboolMd enumBlnMMltpClr ObjcRGBCRd doubGrn doubBl doubOpctUntF#Prc@NuglgboollaglUntF#Ang@^DstnUntF#PxlCkmtUntF#Pxl@>blurUntF#Pxl@(NoseUntF#PrcAntAboolTrnSObjcShpCNm TEXTLinearTEXTmakeMakeMakeMk nullobj ClssLyr UsngObjcLyr Nm TEXT Outer frameTEXTmoveMoveMovemovenullobj EnmrLyr OrdnTrgtT obj indxLyr TEXT imageSize Image Size Image SizeImgSWdthUntF#Rlt@{4[TEXT canvasSize Canvas Size Canvas SizeCnvSRltvboolWdthUntF#Rlt@,HghtUntF#Rlt@,HrznenumHrzLCntrVrtcenumVrtLCntrTEXT imageSize Image Size Image SizeImgSHghtUntF#Rlt@zTEXT canvasSize Canvas Size Canvas SizeCnvSRltvboolWdthUntF#Rlt@,HghtUntF#Rlt@,HrznenumHrzLCntrVrtcenumVrtLCntrTEXT canvasSize Canvas Size Canvas SizeCnvSRltvboolHghtUntF#Rlt@4<ςVrtcenumVrtLTop TEXTfillFillFillFl UsngenumFlCnWht OpctUntF#Prc@YMd enumBlnMNrmlTEXTsetSetSetsetdnullobj propPrprLefxEnmrLyr OrdnTrgtT ObjcLefxScl UntF#Prc@]qIrShObjcIrSh enabboolMd enumBlnMMltpClr ObjcRGBCRd doubGrn doubBl doubOpctUntF#Prc@NuglgboollaglUntF#Ang@^DstnUntF#PxlCkmtUntF#Pxl@>blurUntF#Pxl@(NoseUntF#PrcAntAboolTrnSObjcShpCNm TEXTLinearTEXT imageSize Image Size Image SizeImgSWdthUntF#Rlt@{TEXTstopStopnullMsgeTEXTThe action will now display a caption at the bottom of the frame. You can edit this, change the font, or whatever. For the first run through, I suggest you don't change anything, just so that you can see what it's meant to do.CntnboolTEXTstopStopnullMsgeTEXTIf you want to change the font, make sure your Tool Options bar (just below the menu bar) is visible before continuing. If not, click Stop, unhide the Tool Options bar, then press play in the Actions palette to continue.CntnboolTEXTstopStopnullMsgeTEXTWhen you have finished altering the text, click the big tick in the Tool Options bar (or press Ctrl-Enter) to commit the changes and continue with the action.CntnboolTEXTmakeMakeMakeMk nullobj ClssTxLrUsngObjcTxLr Txt TEXT Michael Brewer 2004warpObjcwarp warpStyleenum warpStylewarpNone warpValuedoubwarpPerspectivedoubwarpPerspectiveOtherdoub warpRotateenumOrntHrznTxtCObjcPnt HrznUntF#Prc@IVrtcUntF#Prc@X? textGriddingenum textGriddingNoneOrntenumOrntHrznAntAenumAnntAnCr textShapeVlLsObjc textShapeTEXTenumTEXTPnt TxttVlLsObjcTxttFromlongT longTxtSObjcTxtS$fontPostScriptNameTEXTTimesNewRomanPSMTFntNTEXTTimes New Roman PS MTFntSTEXTRomanScrplongFntTlongSz UntFB@( syntheticBoldboolsyntheticItalicbool autoLeadingboolHrzSlongdVrtSlongdTrcklongAtKrboolBslnUntFBfontCapsenumfontCapsNrmlbaselineenumbaselineNrmlUndlbool strikethroughboolligatureboololdStyleboolproportionalNumbersboolRtt boolbaselineDirectionenumbaselineDirection withStreammojiZumedoub gridAlignmentenum gridAlignmentromanhyphenationLanguageenumhyphenationLanguageenglishLanguage wariChuCountlong wariChuScaledoub? wariChuWidowlong wariChuOrphanlongnoBreakboolClr ObjcRGBCRd doub@_??Grn doub@_??Bl doub@_??Fl boolStrkbool fillFirstboolverticalUnderlinePositionenumverticalUnderlinePositionverticalUnderlineRightparagraphStyleRangeVlLsObjcparagraphStyleRangeFromlongT longparagraphStyleObjcparagraphStyleAlgnenumAlg CntrfirstLineIndentUntFB startIndentUntFB endIndentUntFB spaceBeforeUntFB spaceAfterUntFB hyphenateboolhyphenateWordSizelonghyphenatePreLengthlonghyphenatePostLengthlonghyphenateLimitlonghyphenationZonedoub@BhyphenateCapitalizedbooljustificationWordMinimumdoub?陙justificationWordDesireddoub?justificationWordMaximumdoub?G justificationLetterMinimumdoubjustificationLetterDesireddoubjustificationLetterMaximumdoubjustificationGlyphMinimumdoub?justificationGlyphDesireddoub?justificationGlyphMaximumdoub? hangingRomanbool burasagariboolpreferredKinsokuOrderenumpreferredKinsokuOrderpushIn mojiKumiNameTEXTNonetextEveryLineComposerboolautoLeadingPercentagedoub?33@ leadingTypeenum leadingType leadingBelowTEXTmakeMakeMakeMk nullobj ClssTxLrUsngObjcTxLr Txt TEXT Michael Brewer 2004warpObjcwarp warpStyleenum warpStylewarpNone warpValuedoubwarpPerspectivedoubwarpPerspectiveOtherdoub warpRotateenumOrntHrznTxtCObjcPnt HrznUntF#Prc@IVrtcUntF#Prc@X? textGriddingenum textGriddingNoneOrntenumOrntHrznAntAenumAnntAnCr textShapeVlLsObjc textShapeTEXTenumTEXTPnt TxttVlLsObjcTxttFromlongT longTxtSObjcTxtS$fontPostScriptNameTEXTTimesNewRomanPSMTFntNTEXTTimes New Roman PS MTFntSTEXTRomanScrplongFntTlongSz UntFB@+\ syntheticBoldboolsyntheticItalicbool autoLeadingboolHrzSlongdVrtSlongdTrcklongAtKrboolBslnUntFBfontCapsenumfontCapsNrmlbaselineenumbaselineNrmlUndlbool strikethroughboolligatureboololdStyleboolproportionalNumbersboolRtt boolbaselineDirectionenumbaselineDirection withStreammojiZumedoub gridAlignmentenum gridAlignmentromanhyphenationLanguageenumhyphenationLanguageenglishLanguage wariChuCountlong wariChuScaledoub? wariChuWidowlong wariChuOrphanlongnoBreakboolClr ObjcRGBCRd doub@_??Grn doub@_??Bl doub@_??Fl boolStrkbool fillFirstboolverticalUnderlinePositionenumverticalUnderlinePositionverticalUnderlineRightparagraphStyleRangeVlLsObjcparagraphStyleRangeFromlongT longparagraphStyleObjcparagraphStyleAlgnenumAlg CntrfirstLineIndentUntFB startIndentUntFB endIndentUntFB spaceBeforeUntFB spaceAfterUntFB hyphenateboolhyphenateWordSizelonghyphenatePreLengthlonghyphenatePostLengthlonghyphenateLimitlonghyphenationZonedoub@BhyphenateCapitalizedbooljustificationWordMinimumdoub?陙justificationWordDesireddoub?justificationWordMaximumdoub?G justificationLetterMinimumdoubjustificationLetterDesireddoubjustificationLetterMaximumdoubjustificationGlyphMinimumdoub?justificationGlyphDesireddoub?justificationGlyphMaximumdoub? hangingRomanbool burasagariboolpreferredKinsokuOrderenumpreferredKinsokuOrderpushIn mojiKumiNameTEXTNonetextEveryLineComposerboolautoLeadingPercentagedoub?33@ leadingTypeenum leadingType leadingBelowTEXT imageSize Image Size Image SizeImgSRsltUntF#Rsl@rTEXTstopStopStopStopMsgeTEXTIn the next dialog, you can alter the scale of the shading effect for the outer frame layer to suit the image. Enter a percentage, or slide the slider according to taste, then click OK. After that will come the inner frame layer, and the image layer.CntnboolTEXTselectSelectSelectslctnullobj nameLyr Outer frameTEXTscaleEffectsEvent Scale Styles Scale StylesscaleEffectsEventScl UntF#Prc@XTEXTstopStopStopStopMsgeTEXT4OK, now the shading effect for inner frame layer...CntnboolTEXTselectSelectSelectslctnullobj nameLyr Inner frame layerTEXTscaleEffectsEvent Scale Styles Scale StylesscaleEffectsEventScl UntF#Prc@XTEXTstopStopStopStopMsgeTEXT5And finally the stroke effect for the image layer...CntnboolTEXTselectSelectSelectslctnullobj nameLyr Image layerTEXTscaleEffectsEvent Scale Styles Scale StylesscaleEffectsEventScl UntF#Prc@XTEXTstopStopStopStopMsgeTEXTThe image is still layered, so you can alter the layer styles, colours and so on to change the look of the frame. When done, flatten the image (or first tick and then play the final action step, which is unticked by default). That's it!CntnboolTEXTstopStopnullMsgeTEXTcComments, suggestions, endowments etc. are welcome! Mike Brewer 2004 psa@thebrewerfamily.co.ukCntnboolTEXT flattenImage Flatten Image