[Bug 4785] Network Notepad - Lightning link style and arrow heads not drawn correctly or causes error.

[Wine Bugs]

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

------- Additional Comments From [e-mail]  2006-11-03 02:42 -------
Update. I have run some tests and I'm happy it's not the sin() and cos()
functions that are the issue. At least part of the problem is to do with 
variable types and or variable declarations. The following vb test code gives 
different results between Wine and Windows:

Private Sub Command1_Click()
 Label1.Caption = testfunction(2100, 1845, 3960, 2460)
End Sub
Public Function testfunction(x1, y1, x2, y2)
 'slope calculation
 tmp1 = y1 - y2
 tmp2 = x1 - x2
 tmp3 = tmp1 / tmp2
 testfunction = tmp3
End Function

On windows it returns the result 0.330645161290323, whereas under Wine it 
returns 0.
The workaround is to declare the variable types passed to the testfunction eg.

Public Function testfunction(x1 as double, y1 as double, x2 as double, y2 as 
double)
 'slope calculation
 ...

The following declaration also returns 0 under Wine:

Public Function testfunction(x1, y1, x2, y2) As Double
 'slope calculation
 ...