Topic: AppGraphics - problem with line thickness
I have been experimenting a bit with AppGraphics and I got some problems with the line thickness setting. When I use lines with a larger than the minimum thickness, everything seems to be fine, except for horizontal and for vertical lines: these have the minimum thickness, whatever thickness parameter I use. For demonstration here a test program that draws a few thick lines (very thick for demonstration purposes). The first one is exactly horizontal, the next ones have an increasingly large inclination. With the inclination, the thickness increases, although the line is also a bit cigar-shaped. This can be seen on the first photo. However, sometimes the program for no apparent reason suddenly produces the correct thick lines, as can be seen in the second photo. Is this a bug, or did I forget to set some other parameter?
integer (kind=c_short):: upattern
myscreen = initwindow(1920, 1200, closeflag=.TRUE.)
kleurv = creatergb (0,140,240)
call setlinestyle (SOLID_LINE,upattern, 20)
call setcolor (kleurv)
call line (0, 100, 1800, 100) ! Horizontal line
call line (0, 300, 1800, 301) ! Lines with increasing inclination
call line (0, 500, 1800, 510) ! ..
call line (0, 700, 1800, 720) ! ..
call line (0, 900, 1800, 950) ! ..
Oh, the second photo is refused... I'll send it in a second message.