← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to examples/c/x25c.c

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/c/x25c.c
 
1
/* $Id: x25c.c,v 1.2 2006/05/27 21:06:07 hbabcock Exp $
 
2
 
 
3
        Bar chart demo.
 
4
*/
 
5
 
 
6
#include "plcdemos.h"
 
7
 
 
8
void
 
9
plfbox(PLFLT x0, PLFLT y0);
 
10
 
 
11
/*--------------------------------------------------------------------------*\
 
12
 * main
 
13
 *
 
14
 * Test program for filling polygons and proper clipping
 
15
\*--------------------------------------------------------------------------*/
 
16
 
 
17
int
 
18
main(int argc, char *argv[])
 
19
{
 
20
    int i;
 
21
    int j;
 
22
    int npts = 0;
 
23
    PLFLT xextreme[10][2];
 
24
    PLFLT yextreme[10][2];
 
25
    PLFLT x0[10];
 
26
    PLFLT y0[10];
 
27
 
 
28
/* Parse and process command line arguments */
 
29
 
 
30
    (void) plparseopts(&argc, argv, PL_PARSE_FULL);
 
31
 
 
32
/* Initialize plplot */
 
33
 
 
34
    plssub(3,3);
 
35
    plinit();
 
36
 
 
37
    xextreme[0][0] = -120.0 ; xextreme[0][1] =  120.0 ; yextreme[0][0] = -120.0 ; yextreme[0][1] =  120.0 ;
 
38
    xextreme[1][0] = -120.0 ; xextreme[1][1] =  120.0 ; yextreme[1][0] =   20.0 ; yextreme[1][1] =  120.0 ;
 
39
    xextreme[2][0] = -120.0 ; xextreme[2][1] =  120.0 ; yextreme[2][0] =  -20.0 ; yextreme[2][1] =  120.0 ;
 
40
    xextreme[3][0] =  -80.0 ; xextreme[3][1] =   80.0 ; yextreme[3][0] =  -20.0 ; yextreme[3][1] =  120.0 ;
 
41
    xextreme[4][0] = -220.0 ; xextreme[4][1] = -120.0 ; yextreme[4][0] = -120.0 ; yextreme[4][1] =  120.0 ;
 
42
    xextreme[5][0] =  -20.0 ; xextreme[5][1] =   20.0 ; yextreme[5][0] = -120.0 ; yextreme[5][1] =  120.0 ;
 
43
    xextreme[6][0] =  -20.0 ; xextreme[6][1] =   20.0 ; yextreme[6][0] =  -20.0 ; yextreme[6][1] =   20.0 ;
 
44
    xextreme[7][0] =  -80.0 ; xextreme[7][1] =   80.0 ; yextreme[7][0] =  -80.0 ; yextreme[7][1] =   80.0 ;
 
45
    xextreme[8][0] =   20.0 ; xextreme[8][1] =  120.0 ; yextreme[8][0] = -120.0 ; yextreme[8][1] =  120.0 ;
 
46
 
 
47
    for ( j = 0; j < 4; j ++ )
 
48
    {
 
49
        if ( j == 0 )
 
50
        {
 
51
/* Polygon 1: a diamond */
 
52
           x0[0] =    0 ; y0[0] = -100;
 
53
           x0[1] = -100 ; y0[1] =    0;
 
54
           x0[2] =    0 ; y0[2] =  100;
 
55
           x0[3] =  100 ; y0[3] =    0;
 
56
           npts = 4 ;
 
57
        }
 
58
        if ( j == 1 )
 
59
        {
 
60
/* Polygon 1: a diamond - reverse direction */
 
61
           x0[3] =    0 ; y0[3] = -100;
 
62
           x0[2] = -100 ; y0[2] =    0;
 
63
           x0[1] =    0 ; y0[1] =  100;
 
64
           x0[0] =  100 ; y0[0] =    0;
 
65
           npts = 4 ;
 
66
        }
 
67
        if ( j == 2 )
 
68
        {
 
69
/* Polygon 2: a square with punctures */
 
70
           x0[0] = -100 ; y0[0] = -100;
 
71
           x0[1] = -100 ; y0[1] =  -80;
 
72
           x0[2] =   80 ; y0[2] =    0;
 
73
           x0[3] = -100 ; y0[3] =   80;
 
74
           x0[4] = -100 ; y0[4] =  100;
 
75
           x0[5] =  -80 ; y0[5] =  100;
 
76
           x0[6] =    0 ; y0[6] =   80;
 
77
           x0[7] =   80 ; y0[7] =  100;
 
78
           x0[8] =  100 ; y0[8] =  100;
 
79
           x0[9] =  100 ; y0[9] = -100;
 
80
           npts = 10 ;
 
81
        }
 
82
        if ( j == 3 )
 
83
        {
 
84
/* Polygon 2: a square with punctures - reversed direction */
 
85
           x0[9] = -100 ; y0[9] = -100;
 
86
           x0[8] = -100 ; y0[8] =  -80;
 
87
           x0[7] =   80 ; y0[7] =    0;
 
88
           x0[6] = -100 ; y0[6] =   80;
 
89
           x0[5] = -100 ; y0[5] =  100;
 
90
           x0[4] =  -80 ; y0[4] =  100;
 
91
           x0[3] =    0 ; y0[3] =   80;
 
92
           x0[2] =   80 ; y0[2] =  100;
 
93
           x0[1] =  100 ; y0[1] =  100;
 
94
           x0[0] =  100 ; y0[0] = -100;
 
95
           npts = 10 ;
 
96
        }
 
97
 
 
98
        for ( i = 0; i < 9 ; i ++ )
 
99
        {
 
100
            pladv(0);
 
101
            plvsta();
 
102
            plwind(xextreme[i][0], xextreme[i][1], yextreme[i][0], yextreme[i][1]);
 
103
 
 
104
            plbox("bc", 1.0, 0, "bcnv", 10.0, 0);
 
105
            plcol0(1) ;
 
106
            plpsty(0) ;
 
107
            plfill(npts,x0,y0) ;
 
108
            plcol0(2) ;
 
109
            pllsty(1) ;
 
110
            plline(npts,x0,y0) ;
 
111
        }
 
112
    }
 
113
 
 
114
/* Don't forget to call plend() to finish off! */
 
115
 
 
116
    plend();
 
117
    exit(0);
 
118
}