source: libcaca/trunk/caca/conic.c @ 3952

Last change on this file since 3952 was 2826, checked in by Sam Hocevar, 12 years ago

Continue the libcaca/libcucul merge. Source and binary compatibility
are almost there.

  • Property svn:keywords set to Id
File size: 8.3 KB
RevLine 
[35]1/*
[2821]2 *  libcaca       Colour ASCII-Art library
[527]3 *  Copyright (c) 2002-2006 Sam Hocevar <sam@zoy.org>
[268]4 *                All Rights Reserved
[35]5 *
[769]6 *  $Id: conic.c 2826 2008-09-27 15:43:01Z sam $
7 *
[1462]8 *  This library is free software. It comes without any warranty, to
[1452]9 *  the extent permitted by applicable law. You can redistribute it
10 *  and/or modify it under the terms of the Do What The Fuck You Want
11 *  To Public License, Version 2, as published by Sam Hocevar. See
[522]12 *  http://sam.zoy.org/wtfpl/COPYING for more details.
[35]13 */
[17]14
[769]15/*
[268]16 *  This file contains ellipse and circle drawing functions, both filled
17 *  and outline.
[205]18 */
19
[97]20#include "config.h"
21
[568]22#if !defined(__KERNEL__)
23#   include <stdlib.h>
24#endif
[17]25
[2821]26#include "caca.h"
27#include "caca_internals.h"
[17]28
[2821]29static void ellipsepoints(caca_canvas_t *, int, int, int, int, uint32_t, int);
[135]30
[773]31/** \brief Draw a circle on the canvas using the given character.
[257]32 *
[870]33 *  This function never fails.
34 *
[2821]35 *  \param cv The handle to the libcaca canvas.
[773]36 *  \param x Center X coordinate.
37 *  \param y Center Y coordinate.
38 *  \param r Circle radius.
[1330]39 *  \param ch UTF-32 character to be used to draw the circle outline.
[870]40 *  \return This function always returns 0.
[257]41 */
[2821]42int caca_draw_circle(caca_canvas_t *cv, int x, int y, int r, uint32_t ch)
[17]43{
44    int test, dx, dy;
45
46    /* Optimized Bresenham. Kick ass. */
[87]47    for(test = 0, dx = 0, dy = r ; dx <= dy ; dx++)
[17]48    {
[2255]49        ellipsepoints(cv, x, y, dx, dy, ch, 1);
50        ellipsepoints(cv, x, y, dy, dx, ch, 1);
[17]51
52        test += test > 0 ? dx - dy-- : dx;
53    }
[870]54
55    return 0;
[17]56}
57
[773]58/** \brief Fill an ellipse on the canvas using the given character.
[257]59 *
[870]60 *  This function never fails.
61 *
[2821]62 *  \param cv The handle to the libcaca canvas.
[773]63 *  \param xo Center X coordinate.
64 *  \param yo Center Y coordinate.
65 *  \param a Ellipse X radius.
66 *  \param b Ellipse Y radius.
[1330]67 *  \param ch UTF-32 character to be used to fill the ellipse.
[870]68 *  \return This function always returns 0.
[257]69 */
[2821]70int caca_fill_ellipse(caca_canvas_t *cv, int xo, int yo, int a, int b,
[2303]71                       uint32_t ch)
[151]72{
73    int d2;
74    int x = 0;
75    int y = b;
76    int d1 = b*b - (a*a*b) + (a*a/4);
77
[165]78    while(a*a*y - a*a/2 > b*b*(x+1))
[151]79    {
80        if(d1 < 0)
81        {
82            d1 += b*b*(2*x+1); /* XXX: "Computer Graphics" has + 3 here. */
83        }
84        else
85        {
86            d1 += b*b*(2*x*1) + a*a*(-2*y+2);
[2821]87            caca_draw_line(cv, xo - x, yo - y, xo + x, yo - y, ch);
88            caca_draw_line(cv, xo - x, yo + y, xo + x, yo + y, ch);
[151]89            y--;
90        }
91        x++;
92    }
93
[2821]94    caca_draw_line(cv, xo - x, yo - y, xo + x, yo - y, ch);
95    caca_draw_line(cv, xo - x, yo + y, xo + x, yo + y, ch);
[151]96
97    d2 = b*b*(x+0.5)*(x+0.5) + a*a*(y-1)*(y-1) - a*a*b*b;
98    while(y > 0)
99    {
100        if(d2 < 0)
101        {
102            d2 += b*b*(2*x+2) + a*a*(-2*y+3);
103            x++;
104        }
105        else
106        {
107            d2 += a*a*(-2*y+3);
108        }
109
110        y--;
[2821]111        caca_draw_line(cv, xo - x, yo - y, xo + x, yo - y, ch);
112        caca_draw_line(cv, xo - x, yo + y, xo + x, yo + y, ch);
[151]113    }
[870]114
115    return 0;
[151]116}
117
[773]118/** \brief Draw an ellipse on the canvas using the given character.
[257]119 *
[870]120 *  This function never fails.
121 *
[2821]122 *  \param cv The handle to the libcaca canvas.
[773]123 *  \param xo Center X coordinate.
124 *  \param yo Center Y coordinate.
125 *  \param a Ellipse X radius.
126 *  \param b Ellipse Y radius.
[1330]127 *  \param ch UTF-32 character to be used to draw the ellipse outline.
[870]128 *  \return This function always returns 0.
[257]129 */
[2821]130int caca_draw_ellipse(caca_canvas_t *cv, int xo, int yo, int a, int b,
[2303]131                       uint32_t ch)
[131]132{
133    int d2;
134    int x = 0;
135    int y = b;
136    int d1 = b*b - (a*a*b) + (a*a/4);
137
[2255]138    ellipsepoints(cv, xo, yo, x, y, ch, 0);
[131]139
[165]140    while(a*a*y - a*a/2 > b*b*(x+1))
[131]141    {
142        if(d1 < 0)
143        {
144            d1 += b*b*(2*x+1); /* XXX: "Computer Graphics" has + 3 here. */
145        }
146        else
147        {
148            d1 += b*b*(2*x*1) + a*a*(-2*y+2);
149            y--;
150        }
151        x++;
[2255]152        ellipsepoints(cv, xo, yo, x, y, ch, 0);
[131]153    }
154
155    d2 = b*b*(x+0.5)*(x+0.5) + a*a*(y-1)*(y-1) - a*a*b*b;
156    while(y > 0)
157    {
158        if(d2 < 0)
159        {
160            d2 += b*b*(2*x+2) + a*a*(-2*y+3);
161            x++;
162        }
163        else
164        {
165            d2 += a*a*(-2*y+3);
166        }
167
168        y--;
[2255]169        ellipsepoints(cv, xo, yo, x, y, ch, 0);
[131]170    }
[870]171
172    return 0;
[131]173}
174
[773]175/** \brief Draw a thin ellipse on the canvas.
[257]176 *
[870]177 *  This function never fails.
178 *
[2821]179 *  \param cv The handle to the libcaca canvas.
[773]180 *  \param xo Center X coordinate.
181 *  \param yo Center Y coordinate.
182 *  \param a Ellipse X radius.
183 *  \param b Ellipse Y radius.
[870]184 *  \return This function always returns 0.
[257]185 */
[2821]186int caca_draw_thin_ellipse(caca_canvas_t *cv, int xo, int yo, int a, int b)
[151]187{
188    /* FIXME: this is not correct */
189    int d2;
190    int x = 0;
191    int y = b;
192    int d1 = b*b - (a*a*b) + (a*a/4);
193
[2255]194    ellipsepoints(cv, xo, yo, x, y, '-', 1);
[151]195
[165]196    while(a*a*y - a*a/2 > b*b*(x+1))
[151]197    {
198        if(d1 < 0)
199        {
200            d1 += b*b*(2*x+1); /* XXX: "Computer Graphics" has + 3 here. */
[2255]201            ellipsepoints(cv, xo, yo, x + 1, y, '0', 1);
[151]202        }
203        else
204        {
205            d1 += b*b*(2*x*1) + a*a*(-2*y+2);
206            y--;
[2255]207            ellipsepoints(cv, xo, yo, x + 1, y, '1', 1);
[151]208        }
209        x++;
[2826]210
211
[151]212    }
213
214    d2 = b*b*(x+0.5)*(x+0.5) + a*a*(y-1)*(y-1) - a*a*b*b;
215    while(y > 0)
216    {
217        if(d2 < 0)
218        {
219            d2 += b*b*(2*x+2) + a*a*(-2*y+3);
220            x++;
[2255]221            ellipsepoints(cv, xo, yo, x , y - 1, '2', 1);
[151]222        }
223        else
224        {
225            d2 += a*a*(-2*y+3);
[2255]226            ellipsepoints(cv, xo, yo, x , y - 1, '3', 1);
[151]227        }
228
229        y--;
[2826]230
231
[151]232    }
[870]233
234    return 0;
[151]235}
236
[2821]237static void ellipsepoints(caca_canvas_t *cv, int xo, int yo, int x, int y,
[2255]238                          uint32_t ch, int thin)
[135]239{
[137]240    uint8_t b = 0;
241
[811]242    if(xo + x >= 0 && xo + x < (int)cv->width)
[137]243        b |= 0x1;
[811]244    if(xo - x >= 0 && xo - x < (int)cv->width)
[137]245        b |= 0x2;
[811]246    if(yo + y >= 0 && yo + y < (int)cv->height)
[137]247        b |= 0x4;
[811]248    if(yo - y >= 0 && yo - y < (int)cv->height)
[137]249        b |= 0x8;
250
[2255]251    if((b & (0x1|0x4)) == (0x1|0x4)) {
[2256]252        uint32_t c = ch;
[2826]253
[2255]254        if(thin) {
255            switch(c) {
256            case '0':
257                c = '-';
258                break;
259            case '1':
260                c = ',';
261                break;
262            case '2':
263                c = '/';
264                break;
265            case '3':
266                c = '|';
267                break;
268            }
[137]269
[2255]270        }
[2821]271        caca_put_char(cv, xo + x, yo + y, c);
[2255]272    }
273    if((b & (0x2|0x4)) == (0x2|0x4)) {
[2256]274        uint32_t c = ch;
[2826]275
[2255]276        if(thin) {
277            switch(c) {
278            case '0':
279                c = '-';
280                break;
281            case '1':
282                c = '.';
283                break;
284            case '2':
285                c = '\\';
286                break;
287            case '3':
288                c = '|';
289                break;
290            }
[137]291
[2255]292        }
[2821]293        caca_put_char(cv, xo - x, yo + y, c);
[2255]294    }
[137]295
[2255]296
297    if((b & (0x1|0x8)) == (0x1|0x8)) {
[2256]298        uint32_t c = ch;
[2826]299
[2255]300        if(thin) {
301            switch(c) {
302            case '0':
303                c = '-';
304                break;
305            case '1':
306                c = '`';
307                break;
308            case '2':
309                c = '\\';
310                break;
311            case '3':
312                c = '|';
313                break;
314            }
315
316        }
[2821]317        caca_put_char(cv, xo + x, yo - y, c);
[2255]318    }
319
320    if((b & (0x2|0x8)) == (0x2|0x8)) {
[2256]321        uint32_t c = ch;
[2826]322
[2255]323        if(thin) {
324            switch(c) {
325            case '0':
326                c = '-';
327                break;
328            case '1':
329                c = '\'';
330                break;
331            case '2':
332                c = '/';
333                break;
334            case '3':
335                c = '|';
336                break;
337            }
338
339        }
[2821]340        caca_put_char(cv, xo - x, yo - y, c);
[2255]341    }
[135]342}
343
[2826]344/*
345 * XXX: The following functions are aliases.
346 */
347
348int cucul_draw_circle(cucul_canvas_t *, int, int, int, uint32_t)
349         CACA_ALIAS(caca_draw_circle);
350int cucul_draw_ellipse(cucul_canvas_t *, int, int, int, int, uint32_t)
351         CACA_ALIAS(caca_draw_ellipse);
352int cucul_draw_thin_ellipse(cucul_canvas_t *, int, int, int, int)
353         CACA_ALIAS(caca_draw_thin_ellipse);
354int cucul_fill_ellipse(cucul_canvas_t *, int, int, int, int, uint32_t)
355         CACA_ALIAS(caca_fill_ellipse);
356
Note: See TracBrowser for help on using the repository browser.