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: Buat Objek shape/vektor di CorelDraw, Supaya hasil akhirnya bagus, anda bisa menambahkan Efek transparansi, Lens dll. SELEKSI objek yang anda buat. Jalankan Macronya Note: Semakin Banyak node semakin lama prosesnya, perulangan dilakukan 3 kali, anda bisa memodifikasinya. Selamat Mencoba.