← Back to branch summary

~statik/ubuntu/maverick/erlang/erlang-merge-testing

« back to all changes in this revision

Viewing changes to lib/percept/src/egd_png.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-01 10:14:38 UTC
  • mfrom: (3.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20090501101438-6qlr6rsdxgyzrg2z
Tags: 1:13.b-dfsg-2
* Cleaned up patches: removed unneeded patch which helped to support
  different SCTP library versions, made sure that changes for m68k
  architecture applied only when building on this architecture.
* Removed duplicated information from binary packages descriptions.
* Don't require libsctp-dev build-dependency on solaris-i386 architecture
  which allows to build Erlang on Nexenta (thanks to Tim Spriggs for
  the suggestion).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/percept/src/egd_png.erl
1
 
%% ``The contents of this file are subject to the Erlang Public License,
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
 
5
%% 
 
6
%% The contents of this file are subject to the Erlang Public License,
2
7
%% Version 1.1, (the "License"); you may not use this file except in
3
8
%% compliance with the License. You should have received a copy of the
4
9
%% Erlang Public License along with this software. If not, it can be
5
 
%% retrieved via the world wide web at http://www.erlang.org/.
 
10
%% retrieved online at http://www.erlang.org/.
6
11
%% 
7
12
%% Software distributed under the License is distributed on an "AS IS"
8
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
9
14
%% the License for the specific language governing rights and limitations
10
15
%% under the License.
11
16
%% 
12
 
%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
13
 
%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
14
 
%% AB. All Rights Reserved.''
15
 
%% 
16
 
%%     $Id$
17
 
%% 
 
17
%% %CopyrightEnd%
 
18
 
18
19
 
19
20
%% This code was originally written by Dan Gudmundsson for png-handling in
20
21
%% wings3d (e3d__png).
87
88
filter_row(Row,_RowLen) ->
88
89
    [0,Row].
89
90
 
90
 
png_type(g8) -> ?GREYSCALE;
91
 
png_type(a8) -> ?GREYSCALE;
92
 
png_type(r8g8b8) -> ?TRUECOLOUR;
93
 
png_type(r8g8b8a8) -> ?TRUECOLOUR_A.
 
91
% dialyzer warnings
 
92
%png_type(g8) -> ?GREYSCALE;
 
93
%png_type(a8) -> ?GREYSCALE;
 
94
%png_type(r8g8b8a8) -> ?TRUECOLOUR_A;
 
95
png_type(r8g8b8) -> ?TRUECOLOUR.
94
96
 
95
 
%rgb_order(#e3d_image{type=b8g8r8}) -> r8g8b8;
96
 
%rgb_order(#e3d_image{type=b8g8r8a8}) -> r8g8b8a8;
97
 
%rgb_order(#e3d_image{type=Type}) -> Type.
98
 
    
99
97
create_chunk(Bin,Z) when is_list(Bin) ->
100
98
    create_chunk(list_to_binary(Bin),Z);
101
99
create_chunk(Bin,Z) when is_binary(Bin) ->