flash.csc

　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

---

＜＜戻る