🚀 go-pugleaf

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
_________________________________________________________________________