Random Dot Pattern Tool?

Can someone tell me if there is a way to generate quickly in CorelDraw X7 a random dot pattern? I mean something akin to what you see in illustrations for "snowy skies" or star fields. I'm hoping there is a way to do so with random position and size of dots, and could have sworn there was a way to do this, but my lack of CorelDraw skill is shining through. lol

TIA

Parents
  • Might try this macro. It takes whatever shape you select (circle or other) and randomly fills the page with different sizes of that shape. Might take some practice but one could either alter the code or run the macro several times to get what you want.

    Sub FillRandShapes()
    Const MaxSize = 15
    Const MinSize = 5
    Dim s As Shape, X#, Y#, w#, h#, z&
    ActiveDocument.Unit = cdrMillimeter
    ActivePage.GetBoundingBox X, Y, w, h
    Randomize
    Set s = ActiveShape: If s Is Nothing Then Exit Sub

    For z = 1 To 100
    Set s = s.Duplicate
    s.SetPosition X + Rnd * w, Y + Rnd * h
    s.SetSize Rnd * MaxSize + MinSize
    Next
    End Sub

Reply Children