DanRRight
Joined: 10 Mar 2008
Posts: 2923
Location: South Pole, Antarctica
|
 Posted: Fri Sep 05, 2014 4:08 am Post subject: Does this code compile in 7.1 ? |
 |
|
Please check. The code is from cwplus.enh, also as a separate file in same directory and is called some.f95. Worked before in 7.0.
| Code: |
winapp
program main
include <windows.ins>
c_external nARGB@ '__nargb'(VAL,VAL,VAL,VAL):integer
c_external SET_SMOOTHING_MODE@ '__set_smoothing_mode'(VAL):integer
iw = winio@("%gr&",450,200)
call set_line_width@(8)
call set_line_style@(PS_GEOMETRIC+PS_ENDCAP_SQUARE)
call draw_line_between@(5,4,5,108, nARGB@(255,0,0,255))
call draw_line_between@(25,4,25,108, RGB@(255,0,0))
call draw_line_between@(5,10,25,10, nARGB@(255,0,255,0))
call draw_line_between@(5,30,25,30, nARGB@(192,0,255,0))
call draw_line_between@(5,50,25,50, RGB@(255,0,255))
call set_line_style@(PS_GEOMETRIC+PS_ENDCAP_FLAT)
call set_line_width@(16)
iw = set_smoothing_mode@(5) !SmoothingModeAntiAlias8x8
call draw_line_between@(50,4,150,104, RGB@(255,0,0))
call draw_line_between@(150,4,50,104, nARGB@(192,0,0,255))
call draw_ellipse@(225,60,50,50, nARGB@(255,0,255,0))
call draw_filled_ellipse@(225,60,50,50, nARGB@(192,255,0,0))
call draw_rectangle@(320,10,420,110, nARGB@(255,255,0,0))
call draw_filled_rectangle@(320,10,420,110, nARGB@(192,0,255,0))
call select_font@("Arial")
call size_in_pixels@(24,0)
call italic_font@(1)
call bold_font@(1)
call draw_characters@("AntiAlias Smoothing", 65, 150, RGB@(255,0,0,255))
iw = winio@(" ")
end |
call size_in_pixels@192,255,0,0 |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
