[Bug 5174] macom2.dll does not work with wine dcom

http://bugs.winehq.org/show_bug.cgi?id=5174

--- Comment #24 from Ulf Mehlig   2008-04-09 12:51:55 ---
#!/usr/local/bin/wine /home/ulf/.wine/drive_c/Program
Files/python25/pythonw.exe
# -*- coding: utf-8 -*-

import win32com.client
import random

m = win32com.client.Dispatch('MaCom2.Mangroven')
m.Init(w=110, h=110, scale=3)

m.DefaultColor(1, m.MakeColor(255,   0,   0, 0))
m.DefaultColor(2, m.MakeColor(  0, 255,   0, 0))
m.DefaultColor(3, m.MakeColor(  0,   0, 255, 0))

m.Show(_MIDL_0011_=4, x1=-10, y1=-10, x2=110, y2=110)

for i in range(0, 10):
    x = random.uniform(61, 90)
    y = random.uniform( 0, 30)
    m.Trees().Add (x=x, y=y, type=1)

x = random.uniform(31, 60)
    y = random.uniform(31, 60)
    m.Trees().Add (x=x, y=y, type=2)

x = random.uniform( 0, 30)
    y = random.uniform(61, 90)
    m.Trees().Add (x=x, y=y, type=3)

for ts in range(0, 221):
    m.Title = 'Time step ' + str(ts)

for tree in m.Trees():
        tree.age = ts
        tree.Grow(koorFakt=1.0)

m.Update()

m.WaitForClose()