[Plplot-devel] extcairo w/ GtkAda

[Sundelin Henri]

Hi,

I’ve been trying to get the extcairo driver to work with GtkAda. I’ve been 
trying to replicate the ext-cairo-test.c example, but I haven’t been yet 
succesful, I get a segfault.. Everything works fine with pdfcairo driver though.

I had to expand the Ada binding a bit, since pl_cmd was not available. Added 
this to plplot_thin.ads:
   procedure pl_cmd(cmd: PLINT; arg : System.Address);
   pragma Import(C, pl_cmd, "pl_cmd");

The code I’m trying is very simple:
…
   function Convert is new Ada.Unchecked_Conversion (Source => 
Cairo_Context,
 Target => System.Address);

…
   — init gtkada etc..
…
   Cr := Cairo.Create (surface);

  Set_Device_Name("extcairo");
  pl_cmd( PLESC_DEVINIT,Convert(Cr) );
  Put_line("Cr "&System.Address_Image(Convert(Cr)));
  Initialize_PLplot;
  Simple_Plot(X=>Pt.X, Y1=>Pt.Y,  X_Label=>To_String(Pt.X_Label),
  
Y_Label=>To_String(Pt.Y_Label),Title_Label=>To_String(Pt.Title));
  End_PLplot;
..
Simple_Plot segfaults. The address printed looks valid.

I’m developing on OSX, haven’t yet tried on Linux if it makes any difference.

Thoughts?

//Henri

--
___
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel

Re: [Plplot-devel] extcairo w/ GtkAda

[James Tappin]

>From a quick check of one of the Fortran exmples in gtk-fortran, I think
that the problem is that the call is too early. The call to pl_cmd needs to
come AFTER the call to plinit or plstar (it seems counter-intuitive but
that seems to be the case) -- here is the relevant bit from the gtk version
of example one:

call plscmap0(rval, gval, bval)
call plsdev("extcairo")

! By default the "extcairo" driver does not reset the background
! This is equivalent to the command line option "-drvopt
set_background=1"
call plsetopt("drvopt", "set_background=1")

! The "extcairo" device doesn't read the size from the context.
write(geometry, "(I0,'x',I0)") width, height
call plsetopt("geometry",  geometry)

!  Divide page into 2x2 plots
call plstar(2,2)

! Tell the "extcairo" driver where the context is located. This must be
! done AFTER the plstar or plinit call.

call pl_cmd(PLESC_DEVINIT, cc)


!  Do a plot
call plot1()

Since I don't know exactly what is in your Initialize_PLplot; routine, I
can't tell if the pl_cmd needs to come in there or if it can come after.

On 12 June 2015 at 21:24, Sundelin Henri  wrote:

>  Hi,
>
>  I’ve been trying to get the extcairo driver to work with GtkAda. I’ve
> been trying to replicate the ext-cairo-test.c example, but I haven’t been
> yet succesful, I get a segfault.. Everything works fine with pdfcairo
> driver though.
>
>  I had to expand the Ada binding a bit, since pl_cmd was not available.
> Added this to plplot_thin.ads:
> procedure pl_cmd(cmd: PLINT; arg : System.Address);
>pragma Import(C, pl_cmd, "pl_cmd");
>
>  The code I’m trying is very simple:
> …
> function Convert is new Ada.Unchecked_Conversion (Source =>
> Cairo_Context,
>  Target =>
> System.Address);
>
>  …
>— init gtkada etc..
> …
> Cr := Cairo.Create (surface);
>
>   Set_Device_Name("extcairo");
>   pl_cmd( PLESC_DEVINIT,Convert(Cr) );
>   Put_line("Cr "&System.Address_Image(Convert(Cr)));
>   Initialize_PLplot;
>   Simple_Plot(X=>Pt.X, Y1=>Pt.Y,  X_Label=>To_String(Pt.X_Label),
>
> Y_Label=>To_String(Pt.Y_Label),Title_Label=>To_String(Pt.Title));
>   End_PLplot;
>  ..
> Simple_Plot segfaults. The address printed looks valid.
>
>  I’m developing on OSX, haven’t yet tried on Linux if it makes any
> difference.
>
>  Thoughts?
>
>  //Henri
>
>
>
> --
>
> ___
> Plplot-devel mailing list
> Plplot-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/plplot-devel
>
>
--
___
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel

Re: [Plplot-devel] extcairo w/ GtkAda

[Sundelin Henri]

Hi,

Yes, that actually helped, seems to be working now! The initialize function is 
the default one that comes with the thick Ada binding.

Thanks!

Lähettäjä: James Tappin mailto:jtap...@gmail.com>>
Päivämäärä: Saturday 13 June 2015 00:12
Vastaanottaja: Henri Sundelin 
mailto:henri.sunde...@aalto.fi>>
Kopio: 
"plplot-devel@lists.sourceforge.net" 
mailto:plplot-devel@lists.sourceforge.net>>
Aihe: Re: [Plplot-devel] extcairo w/ GtkAda

>From a quick check of one of the Fortran exmples in gtk-fortran, I think that 
>the problem is that the call is too early. The call to pl_cmd needs to come 
>AFTER the call to plinit or plstar (it seems counter-intuitive but that seems 
>to be the case) -- here is the relevant bit from the gtk version of example 
>one:

call plscmap0(rval, gval, bval)
call plsdev("extcairo")

! By default the "extcairo" driver does not reset the background
! This is equivalent to the command line option "-drvopt set_background=1"
call plsetopt("drvopt", "set_background=1")

! The "extcairo" device doesn't read the size from the context.
write(geometry, "(I0,'x',I0)") width, height
call plsetopt("geometry",  geometry)

!  Divide page into 2x2 plots
call plstar(2,2)

! Tell the "extcairo" driver where the context is located. This must be
! done AFTER the plstar or plinit call.

call pl_cmd(PLESC_DEVINIT, cc)


!  Do a plot
call plot1()

Since I don't know exactly what is in your Initialize_PLplot; routine, I can't 
tell if the pl_cmd needs to come in there or if it can come after.

On 12 June 2015 at 21:24, Sundelin Henri 
mailto:henri.sunde...@aalto.fi>> wrote:
Hi,

I’ve been trying to get the extcairo driver to work with GtkAda. I’ve been 
trying to replicate the ext-cairo-test.c example, but I haven’t been yet 
succesful, I get a segfault.. Everything works fine with pdfcairo driver though.

I had to expand the Ada binding a bit, since pl_cmd was not available. Added 
this to plplot_thin.ads:
   procedure pl_cmd(cmd: PLINT; arg : System.Address);
   pragma Import(C, pl_cmd, "pl_cmd");

The code I’m trying is very simple:
…
   function Convert is new Ada.Unchecked_Conversion (Source => 
Cairo_Context,
 Target => System.Address);

…
   — init gtkada etc..
…
   Cr := Cairo.Create (surface);

  Set_Device_Name("extcairo");
  pl_cmd( PLESC_DEVINIT,Convert(Cr) );
  Put_line("Cr "&System.Address_Image(Convert(Cr)));
  Initialize_PLplot;
  Simple_Plot(X=>Pt.X, Y1=>Pt.Y,  X_Label=>To_String(Pt.X_Label),
  
Y_Label=>To_String(Pt.Y_Label),Title_Label=>To_String(Pt.Title));
  End_PLplot;
..
Simple_Plot segfaults. The address printed looks valid.

I’m developing on OSX, haven’t yet tried on Linux if it makes any difference.

Thoughts?

//Henri


--

___
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel


--
___
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel