diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2016-12-15 13:30:14 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2016-12-15 13:30:14 +0100 |
| commit | 5794bc103abddca70e198857260390b896d737a7 (patch) | |
| tree | 1f996d1c55e12b1282068d0914ab64c787de7c92 /lib/percept/doc/src/img_esi.erl | |
| parent | 6cc04a974724f0e115b2c8caa111418ecbd3db97 (diff) | |
| download | otp-5794bc103abddca70e198857260390b896d737a7.tar.gz otp-5794bc103abddca70e198857260390b896d737a7.tar.bz2 otp-5794bc103abddca70e198857260390b896d737a7.zip | |
percept: Remove application
Diffstat (limited to 'lib/percept/doc/src/img_esi.erl')
| -rw-r--r-- | lib/percept/doc/src/img_esi.erl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/percept/doc/src/img_esi.erl b/lib/percept/doc/src/img_esi.erl deleted file mode 100644 index e9796819c0..0000000000 --- a/lib/percept/doc/src/img_esi.erl +++ /dev/null @@ -1,25 +0,0 @@ --module(img_esi). - --export([image/3]). - -image(SessionID, _Env, _Input) -> - mod_esi:deliver(SessionID, header()), - Binary = my_image(), - mod_esi:deliver(SessionID, binary_to_list(Binary)). - -my_image() -> - Im = egd:create(300,20), - Black = egd:color({0,0,0}), - Red = egd:color({255,0,0}), - egd:filledRectangle(Im, {30,14}, {270,19}, Red), - egd:rectangle(Im, {30,14}, {270,19}, Black), - - Filename = filename:join([code:priv_dir(percept), "fonts", "6x11_latin1.wingsfont"]), - Font = egd_font:load(Filename), - egd:text(Im, {30, 0}, Font, "egd with esi callback", Black), - Bin = egd:render(Im, png), - egd:destroy(Im), - Bin. - -header() -> - "Content-Type: image/png\r\n\r\n". |