Hello David,
here is the code I used for dash line:
type Dash_Array is array (Positive range <>) of Natural;
Empty_Dash_List : constant Dash_Array (1 .. 0) := (others => 0);
Dotted_Dash_List : constant Dash_Array := (2, 2);
Center_Dash_List : constant Dash_Array := (4, 3, 6, 3);
Dashed_Dash_List : constant Dash_Array := (5, 3);
procedure Set_Line_Dash (Dash_List : Dash_Array) is
function Dash_String (Ind : Natural) return String is
begin
if Ind > Dash_List'Last then
return "";
elsif Ind = Dash_List'Last then
return Natural'Image (Dash_List (Ind));
else
return Natural'Image (Dash_List (Ind)) & ',' & Dash_String (Ind
+ 1);
end if;
end Dash_String;
begin
Cr.Execute ("setLineDash([" & Dash_String (Dash_List'First) & "]);");
end Set_Line_Dash;
And the result:
HTH, Pascal.
http://blady.pagesperso-orange.fr
Le 22 déc. 2014 à 10:35, Pascal <[email protected]> a écrit :
> Hello David,
>
> The last argument of Arc_Radians and Arc_Degrees should better named
> Anti_Clockwise instead of Counter_Clockwise as I've found API name in:
> http://www.html5canvastutorials.com/tutorials/html5-canvas-arcs/
> What is your feedback?
>
> For dash line, I'll try setdashline:
> http://www.w3.org/TR/2dcontext/#dom-context-2d-setlinedash
>
> Regards, Pascal.
> http://blady.pagesperso-orange.fr
>
>
> Le 22 déc. 2014 à 03:05, Rabbi David Botton <[email protected]> a écrit :
>
>> Thanks David for color URL.
>> When I tried I've got a error (missing ending #) corrected by attached patch:
>>
>>
>> Sorry, that's an error that should have never happened... Correction in git.
>>
>> I've not better demo because there are some curious behaviors.
>>
>> Looking forward to it when ready. Ask if anything.
>>
>>
>> So mouse wheel support is not high priority.
>>
>> Ok. My goal is 1.0 before the by end of this month. So I'll make sure first
>> thing in after that and then touch controls.
>>
>> David Botton
>>
>>
>> ------------------------------------------------------------------------------
>> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
>> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
>> with Interactivity, Sharing, Native Excel Exports, App Integration & more
>> Get technology previously reserved for billion-dollar corporations, FREE
>> http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk_______________________________________________
>> Gnoga-list mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/gnoga-list
>
>
> ------------------------------------------------------------------------------
> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
> with Interactivity, Sharing, Native Excel Exports, App Integration & more
> Get technology previously reserved for billion-dollar corporations, FREE
> http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
> _______________________________________________
> Gnoga-list mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/gnoga-list
------------------------------------------------------------------------------
Dive into the World of Parallel Programming! The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net
_______________________________________________
Gnoga-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gnoga-list
