Macro Efek Fractal - Background Fraktal CorelDraw

Fraktal / Fractal adalah benda geometris yang mempunyai susunan bentuk yang sama dari objek aslinya, lebih lengkap kunjungi http://id.wikipedia.org/wiki/Fraktal :D Berikut ini contoh screenshotnya:

Berikut kode Macro untuk Efek Fractal tersebut:

Sub FractalGRAFISin()
'Code Oleh : Ade Sanusi
'Web : www.GRAFISin.com
'Created: 08 Januari 2015

'Deklarasi variabel
Dim s As Shape
Dim s2 As Shape
Dim s3 As Shape
Dim s4 As Shape
Dim sh As ShapeRange
Dim jumlah_node As Integer
Dim x As Double, y As Double

'Mengatur Pusat Koordinat di Tengah Objek

ActiveDocument.ReferencePoint = cdrCenter
Set sh = ActiveSelectionRange
sh.Cut
Set s = ActiveLayer.Paste
s.ConvertToCurves
jumlah_node = s.Curve.Nodes.Count

For i = 1 To jumlah_node
    s.Curve.Nodes(i).GetPosition x, y
    Set s2 = s.Duplicate
    s2.Stretch 0.5, 0.5
    s2.SetPosition x, y
    s2.OrderToBack
        For j = 1 To jumlah_node
            s2.Curve.Nodes(j).GetPosition x, y
            Set s3 = s2.Duplicate
            s3.Stretch 0.5, 0.5
            s3.SetPosition x, y
            s3.OrderToBack
                For k = 1 To jumlah_node
                    s3.Curve.Nodes(k).GetPosition x, y
                    Set s4 = s3.Duplicate
                    s4.Stretch 0.5, 0.5
                    s4.SetPosition x, y
                    s4.OrderToBack
                 Next k
        Next j
Next i
End Sub

Silahkan jalankan pada Module GlobalMacros di Macro Editor Anda.

Cara Penggunaan:

1. Buat Objek shape/vektor di CorelDraw,
2. Supaya hasil akhirnya bagus, anda bisa menambahkan Efek transparansi, Lens dll.
3. SELEKSI objek yang anda buat.
4. Jalankan Macronya

Note: Semakin Banyak node semakin lama prosesnya, perulangan dilakukan 3 kali, anda bisa memodifikasinya.

Selamat Mencoba. #GRAFISin.