![]() ![]() If linePos 255 then 255 else linePos - 1 do writeon( s_w := 0, line( c // 1 ) ) Line( linePos // 1 ) := shades( intensity // 1 ) If tmp maxShades then intensity := maxShades Real procedure dot( real array x, y ( * ) ) ![]() % returns the absolute value of the dot product of x and y or 0 if it is not negative % % returns the next integer larger than x or x if x is an integer % Destroy ( Pat ) Status_Out := Write_To_Png ( Surface, "SphereAda.png" ) pragma Assert ( Status_Out = Cairo_Status_Success ) end Sphere Pi ) begin Surface := Create ( Cairo_Format_ARGB32, 512, 512 ) Cr := Create ( Surface ) Pat := Cairo. Gdouble Surface : Cairo_Surface Cr : Cairo_Context Pat : Cairo_Pattern Status_Out : Cairo_Status M_Pi : constant Dub := Dub ( Ada. With Glib use Glib with Cairo use Cairo with Cairo.Png use Cairo.Png with Cairo.Pattern use Cairo.Pattern with Cairo.Image_Surface use Cairo.Image_Surface with Ada.Numerics procedure Sphere is subtype Dub is Glib. ![]()
0 Comments
Leave a Reply. |