Corel Users' Club/Graphicsメーリングリストで生まれた「プロジェクト・ロゴポン!」 第1弾
DTP WORLD 12月号に出ていた池田さんの作例「FlashGhost」のイメージをベースに作ってみました。
適当なバックグラウンドの上にロゴのオブジェクトを置き、ロゴを選択した状態で走らせてください。
'Corel PHOTO-PAINT Version 9.439 'Copyright by Albatross '2000/12/3 Version 1.00 WITHOBJECT "CorelPhotoPaint.Automation.9" if .getdocumentcount()=0 then message "ドキュメントがありません" end endif if .getobjectcount()=0 then message "オブジェクトがありません" end endif .setdocumentinfo 640,480 .GetPaperColor cm&,C1&,C2&,C3&,C4& .ObjectDuplicate .ObjectSelectNone .ObjectSelect 1, TRUE .EndObject .objectmerge false .ObjectSelectNone .ObjectSelect 2, TRUE .EndObject .MaskCreate TRUE, 0 .ObjectSelectNone .ObjectSelect 1, TRUE .EndMaskCreate .MaskChannelAdd "alpha1" .objectedit 0,false .EffectAddNoise 100, 100, FALSE, 2, 2, cm&, c1&, c2&, c3&, c4& .EndColorEffect .MaskRemove for c=1 to 3 .EffectZoom 100, 320,240 next c .ImageLevelThreshold 0, 0, 150, 255, 1 .EndColorEffect .ObjectEdit 1, FALSE .MaskChannelToMask 0, 0 .MaskFeather 15, 2, 0 .EffectGaussianBlur 8.4 .maskremove END WITHOBJECT