forked from CarlWright/NGerlguten
/
eg_test12.erl
51 lines (42 loc) · 1.99 KB
/
eg_test12.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
%%==========================================================================
%% Copyright (C) 2010 Carl Wright
%%
%% Permission is hereby granted, free of charge, to any person obtaining a
%% copy of this software and associated documentation files (the
%% "Software"), to deal in the Software without restriction, including
%% without limitation the rights to use, copy, modify, merge, publish,
%% distribute, sublicense, and/or sell copies of the Software, and to permit
%% persons to whom the Software is furnished to do so, subject to the
%% following conditions:
%%
%% The above copyright notice and this permission notice shall be included
%% in all copies or substantial portions of the Software.
%%
%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
%% OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
%% MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
%% NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
%% DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
%% OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
%% USE OR OTHER DEALINGS IN THE SOFTWARE.
%%
%% Authors: Carl Wright <wright@servicelevel.net>
%% Purpose: PNG image testing
%%==========================================================================
-module(eg_test12).
-export([test/0]).
%% ============================================================================
test()->
PDF = eg_pdf:new(),
eg_pdf:set_pagesize(PDF,a4),
eg_pdf:set_page(PDF,1),
eg_pdf:set_font(PDF, "Victorias-Secret", 14),
eg_pdf_lib:moveAndShow(PDF, 50, 20, "Type 6"),
eg_pdf:save_state(PDF),
eg_pdf:set_fill_color(PDF,gainsboro),
eg_pdf:rectangle(PDF, 50,35,240,320, fill),
eg_pdf:image(PDF,"../test/images/dice.png",{50,35}, {240,320}),
eg_pdf:restore_state(PDF),
{Serialised, _PageNo} = eg_pdf:export(PDF),
file:write_file("../test/eg_test12.pdf",[Serialised]),
eg_pdf:delete(PDF).