rana@cs.uwa.oz.au (Ranadeva Peries) (06/05/91)
HELP !!!
I am sorry, if you are reading the message for the second
time. The first time I posted this, it did not appear or
I did not get any responses. This is urgent and any help
iwill be most appreciated.
I am debugging some SunView (SunCore) programs written
in Fortran.
This is a fairly simple program and used to work well
under SunOS 4.0.3. But it does not work properly in
SunOS 4.1.1. I think the problem is with the
VWSURFNEWFLG.
The program used to bring up a new window previously.
However, now it creates the view surface in the same
window that I run the programs.
If this is caused by new flags added for the flags
field in the vwsurf structure, what are the new values
that can be used.
As a test I have used the following C program from the SunCore
manual which draws a glass on a new view surface. This program
also produces the wrong results under SunOS 4.1.1 but brings
up the new View Surface under SunOS 4.0.3.
#include <usercore.h>
static float glassdx[] = { -10.0, 9.0, 0.0, -14.0, 30.0,
-14.0, 0.0, 9.0, -10.0 };
static float glassdy[] = { 0.0, 1.0, 19.0, 15.0, 0.0,
-15.0, -19,0, -1.0, 0.0 };
int cgpixwindd();
struct vwsurf vwsurf = DEFAULT_VWSURF(cgpixwindd);
main(argc, argv)
int argc;
char **argv;
{
struct vwsurf *surf = &vwsurf;
initialize_core(BASIC, NOINPUT, TWOD);
surf->flags = 1;
initialize_view_surface(surf, FALSE);
select_view_surface(surf);
set_viewport_2(0.125, 0.875, 0.125, 0.75);
set_window(-50.0, 50.0, -10.0, 80.0);
create_temporary_segment();
move_abs_2(0.0, 0.0);
polyline_rel_2(glassdx, glassdy, 9);
move_rel_2(-12.0, 33.0);
line_rel_2(24.0, 0.0);
close_temporary_segment();
sleep(10);
deselect_view_surface(surf);
terminate_core();
}
Thank you in advance for any help. Please mail me direct.
_________________________________________________________________________
Ranadeva Peries (Rana) | Internet: rana@cs.uwa.oz.au
Unix Programmer |
Department of Computer Science |
The University of Western Australia |
Nedlands 6009, | Tel: +61-9-3802878
W. Australia. | FAX: +61-9-3821688
_________________________________________________________________________