Conference bulova::decw_jan-89_to_nov-90

2422.0. "Dashed line problem in Firefox" by TAV02::CORFAS (Israel-never a dull moment) Fri Mar 09 1990 14:51

	The following (after the <FF>) program, used to draw various types
of lines on a workstation screen, does not show the dashed lines when the
display is done on a Firefox (up to VMS 5.2). When displaying on other
workstations (GPX, PVAX), it works alright. This seems to be strictly a
DW-server problem, since there is no change in the application's behaviour
when it runs on different stations: the difference is related to the display
server.

	Perhaps somebody knows what is the reason? Any help would be GREATLY
appreciated, since the fate of a score of VS3520s sale depends on us solving
this problem *very* fast. In addition, could someone point me to the Firefox
product manager's name, so I can further ellucidate this problem?


	Thanks in advance,

		Avi


P.S. Cross-posted in DECWindows and Firefox conferences


------------------------------------------------------
-- Program to test drawing speed of lines using DMR --
------------------------------------------------------

with DMR ; use DMR ;
with DMR_Graphics ; use DMR_Graphics ;
with UTL_Logger ;
with CONDITION_HANDLING;
with SYS_RTL; use SYS_RTL;

procedure Lines is

    ST	    : CONDITION_HANDLING.COND_VALUE_TYPE ;
    Id_1    : DMR_Window_Id_Type ;
    Ob	    : DMR_Object_Pointer_Type := new DMR_Object_Type(8) ;
    Stat    : Boolean ;

    Line_Style : constant array (DMR_Field_Number_type range 1..8) of 
	DMR_Line_Style_type :=  (Solid, Dot, Dot_Dash, Short_Dash, Long_Dash,
				 Three_Dots_Long_Dash, Short_Dash_Long_Dash,
				 Dash);
begin

    DMR_Create_Display ( ( 3, 3, 2), Stat ) ;

    DMR_Lock_Display ( high ) ;

    dmr_set_color_map (Layer_1, "color2$data");

    DMR_Create_Window ( Window   => ((0,0) , (4000,3000)),
			Viewport => ((0,0) , (4000,3000)),
			Priority => 4,
			Border_Color => 1,
			Erase_Flag   => true,
			Window_Id    => Id_1 ) ;

    Ob.Header := ( Id => 1,
		   Position => ( 0,0 ) ) ;	

    for I in Ob.Fields'range loop
	Ob.Fields(I) := new DMR_Graphic_Field_Type'(
	    primitive => vector,
	    Vector_info => ( Color => 1,
			    Points => new DMR_Points_Array_type (1..1000),
			    style  => Line_Style (I),
			    Width  => 1,
			    Number_of_points => 1000 )) ;

	for J in Ob.Fields (I).Vector_Info.Points'range loop
	    Ob.Fields (I).Vector_Info.Points (J) :=
			 (DMR_Coordinate_type (J) * 10, 
			  DMR_Coordinate_type (I) * 100);
	end loop;
    end loop;

    DMR_Create_Object ( ob , (1..8 => visible) , true ) ;
    
    DMR_Set_Object_Visibility ( Ob, Visible, Id_1, Layer_1 ) ;
			    
    Init_Timer (St);
    DMR_Update ( Layer_1 ) ;
    Show_Timer (St);

    Init_Timer (St);
    DMR_Update ( Layer_1 ) ;
    Show_Timer (St);

    Init_Timer (St);
    DMR_Update ( Layer_1 ) ;
    Show_Timer (St);

    Init_Timer (St);
    DMR_Update ( Layer_1 ) ;
    Show_Timer (St);

    delay 10.0 ;
    DMR_Delete_Window (ID_1);
    DMR_Unlock_Display ;
    DMR_Close_Display ;

end;

You haven't posted any X calls so this code fragment does (me) no good.

The questions I have are:

	What is the dash pattern being specified in the GC?  What is
	the dash offset (if any).  In other words, what are the exact
	GC settings that cause the failure?

	Is the line vertical, horizontal or diagonal?  Can you tell
	us the XDrawLine arguments?

If you can track this information down there would be a much better chance of
finding a workaround.  I suspect that there is some out-of-bounds parameter
that is tolerated by some servers and not by others.

-steve-