File Coverage

lib/PDL/Image2D-pp-pnpolyfill_pp.c
Criterion Covered Total %
statement 39 183 21.3
branch 37 586 6.3
condition n/a
subroutine n/a
pod n/a
total 76 769 9.8


line stmt bran cond sub pod time code
1              
2             #line 453 "lib/PDL/PP.pm"
3             /*
4             * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Image2D.pd! Do not modify!
5             */
6              
7             #define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8             if (destroy) { \
9             comp_free_code \
10             } \
11             if ((trans)->dims_redone) { \
12             ntpriv_free_code \
13             }
14              
15             #include "EXTERN.h"
16             #include "perl.h"
17             #include "XSUB.h"
18             #include "pdl.h"
19             #include "pdlcore.h"
20             #define PDL PDL_Image2D
21             extern Core* PDL; /* Structure hold core C functions */
22              
23             #line 1857 "lib/PDL/PP.pm"
24             pdl_error pdl_pnpolyfill_pp_readdata(pdl_trans *__privtrans) {
25             pdl_error PDL_err = {0, NULL, 0};
26             #line 27 "lib/PDL/Image2D-pp-pnpolyfill_pp.c"
27 1           register PDL_Indx __l_size = __privtrans->ind_sizes[1];
28 1           register PDL_Indx __m_size = __privtrans->ind_sizes[2];
29 1           register PDL_Indx __n_size = __privtrans->ind_sizes[3];
30 1 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in pnpolyfill_pp:" "broadcast.incs NULL");
31             /* broadcastloop declarations */
32             int __brcloopval;
33             register PDL_Indx __tind0,__tind1; /* counters along dim */
34 1           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
35             /* dims here are how many steps along those dims */
36 1           register PDL_Indx __tinc0_ps = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
37 1           register PDL_Indx __tinc0_col = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
38 1           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
39 1           register PDL_Indx __tinc1_ps = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
40 1           register PDL_Indx __tinc1_col = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
41 1           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
42             #define PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata PDL_BROADCASTLOOP_START( \
43             readdata, \
44             __privtrans->broadcast, \
45             __privtrans->vtable, \
46             ps_datap += __offsp[0]; \
47             col_datap += __offsp[1]; \
48             a_datap += __offsp[2]; \
49             , \
50             ( ,ps_datap += __tinc1_ps - __tinc0_ps * __tdims0 \
51             ,col_datap += __tinc1_col - __tinc0_col * __tdims0 \
52             ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
53             ), \
54             ( ,ps_datap += __tinc0_ps \
55             ,col_datap += __tinc0_col \
56             ,a_datap += __tinc0_a \
57             ) \
58             )
59             #define PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata PDL_BROADCASTLOOP_END( \
60             __privtrans->broadcast, \
61             ps_datap -= __tinc1_ps * __tdims1 + __offsp[0]; \
62             col_datap -= __tinc1_col * __tdims1 + __offsp[1]; \
63             a_datap -= __tinc1_a * __tdims1 + __offsp[2]; \
64             )
65 1           register PDL_Indx __inc_a_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_a_m;register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,1)]; (void)__inc_a_n;
66 1           register PDL_Indx __inc_ps_k = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_ps_k;register PDL_Indx __inc_ps_l = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,1)]; (void)__inc_ps_l;
67             #ifndef PDL_DECLARE_PARAMS_pnpolyfill_pp_1
68             #define PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_col,PDL_PPSYM_PARAM_col) \
69             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, ps, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
70             PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_col, col, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_col) \
71             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, a, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
72             #endif
73             #define PDL_IF_BAD(t,f) f
74 1           switch (__privtrans->__datatype) { /* Start generic switch */
75 0           case PDL_SB: {
76 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_SByte,A,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
77             {
78             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
79             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
80              
81 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
82 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
83 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
84 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
85 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
86 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
87 0           c = !c;
88 0           j = l;
89             }} /* Close l */
90 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
91             }} /* Close n */}} /* Close m */
92 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
93              
94             #undef VERTX
95             #undef VERTY
96             }
97 0           } break;
98 0           case PDL_B: {
99 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Byte,B,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
100             {
101             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
102             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
103              
104 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
105 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
106 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
107 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
108 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
109 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
110 0           c = !c;
111 0           j = l;
112             }} /* Close l */
113 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
114             }} /* Close n */}} /* Close m */
115 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
116              
117             #undef VERTX
118             #undef VERTY
119             }
120 0           } break;
121 0           case PDL_S: {
122 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Short,S,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
123             {
124             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
125             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
126              
127 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
128 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
129 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
130 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
131 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
132 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
133 0           c = !c;
134 0           j = l;
135             }} /* Close l */
136 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
137             }} /* Close n */}} /* Close m */
138 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
139              
140             #undef VERTX
141             #undef VERTY
142             }
143 0           } break;
144 0           case PDL_US: {
145 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Ushort,U,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
146             {
147             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
148             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
149              
150 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
151 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
152 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
153 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
154 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
155 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
156 0           c = !c;
157 0           j = l;
158             }} /* Close l */
159 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
160             }} /* Close n */}} /* Close m */
161 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
162              
163             #undef VERTX
164             #undef VERTY
165             }
166 0           } break;
167 0           case PDL_L: {
168 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Long,L,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
169             {
170             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
171             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
172              
173 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
174 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
175 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
176 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
177 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
178 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
179 0           c = !c;
180 0           j = l;
181             }} /* Close l */
182 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
183             }} /* Close n */}} /* Close m */
184 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
185              
186             #undef VERTX
187             #undef VERTY
188             }
189 0           } break;
190 0           case PDL_UL: {
191 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_ULong,K,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
192             {
193             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
194             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
195              
196 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
197 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
198 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
199 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
200 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
201 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
202 0           c = !c;
203 0           j = l;
204             }} /* Close l */
205 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
206             }} /* Close n */}} /* Close m */
207 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
208              
209             #undef VERTX
210             #undef VERTY
211             }
212 0           } break;
213 0           case PDL_IND: {
214 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Indx,N,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
215             {
216             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
217             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
218              
219 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
220 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
221 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
222 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
223 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
224 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
225 0           c = !c;
226 0           j = l;
227             }} /* Close l */
228 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
229             }} /* Close n */}} /* Close m */
230 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
231              
232             #undef VERTX
233             #undef VERTY
234             }
235 0           } break;
236 0           case PDL_ULL: {
237 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_ULongLong,P,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
238             {
239             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
240             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
241              
242 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
243 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
244 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
245 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
246 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
247 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
248 0           c = !c;
249 0           j = l;
250             }} /* Close l */
251 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
252             }} /* Close n */}} /* Close m */
253 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
254              
255             #undef VERTX
256             #undef VERTY
257             }
258 0           } break;
259 0           case PDL_LL: {
260 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_LongLong,Q,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
261             {
262             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
263             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
264              
265 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
266 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
267 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
268 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
269 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
270 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
271 0           c = !c;
272 0           j = l;
273             }} /* Close l */
274 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
275             }} /* Close n */}} /* Close m */
276 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
277              
278             #undef VERTX
279             #undef VERTY
280             }
281 0           } break;
282 0           case PDL_F: {
283 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Float,F,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
284             {
285             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
286             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
287              
288 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
289 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
290 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
291 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
292 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
293 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
294 0           c = !c;
295 0           j = l;
296             }} /* Close l */
297 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
298             }} /* Close n */}} /* Close m */
299 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
300              
301             #undef VERTX
302             #undef VERTY
303             }
304 0           } break;
305 1           case PDL_D: {
306 1 50         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_Double,D,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
307             {
308             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
309             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
310              
311 4 50         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    50          
    50          
    50          
    50          
    100          
    100          
312 31 100         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    100          
313 25           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
314 100 100         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
315 75 100         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
316 40 100         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
317 11           c = !c;
318 75           j = l;
319             }} /* Close l */
320 25 100         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
321             }} /* Close n */}} /* Close m */
322 1 50         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    50          
323              
324             #undef VERTX
325             #undef VERTY
326             }
327 1           } break;
328 0           case PDL_LD: {
329 0 0         PDL_DECLARE_PARAMS_pnpolyfill_pp_1(PDL_LDouble,E,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
330             {
331             #define VERTX(q) (ps_datap)[0+(__inc_ps_k*(0))+(__inc_ps_l*(q))]
332             #define VERTY(q) (ps_datap)[0+(__inc_ps_k*(1))+(__inc_ps_l*(q))]
333              
334 0 0         PDL_BROADCASTLOOP_START_pnpolyfill_pp_readdata
    0          
    0          
    0          
    0          
    0          
    0          
335 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
    0          
336 0           PDL_Indx j = __privtrans->ind_sizes[1]-1, c = 0;
337 0 0         {/* Open l */ PDL_EXPAND2(register PDL_Indx l=0, __l_stop=(__l_size)); for(; l<__l_stop; l+=1) {
338 0 0         if ( ((VERTY(l)>n) != (VERTY(j)>n)) &&
339 0 0         (m < (VERTX(j)-VERTX(l)) * (n-VERTY(l)) / (VERTY(j)-VERTY(l)) + VERTX(l)) )
340 0           c = !c;
341 0           j = l;
342             }} /* Close l */
343 0 0         if(c) { (a_datap)[0+(__inc_a_m*(m))+(__inc_a_n*(n))] = (col_datap)[0]; }
344             }} /* Close n */}} /* Close m */
345 0 0         PDL_BROADCASTLOOP_END_pnpolyfill_pp_readdata
    0          
346              
347             #undef VERTX
348             #undef VERTY
349             }
350 0           } break;
351 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in pnpolyfill_pp: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
352             }
353             #undef PDL_IF_BAD
354 1           return PDL_err;
355             }
356              
357             static pdl_datatypes pdl_pnpolyfill_pp_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
358             static PDL_Indx pdl_pnpolyfill_pp_vtable_realdims[] = { 2, 0, 2 };
359             static char *pdl_pnpolyfill_pp_vtable_parnames[] = { "ps","col","a" };
360             static short pdl_pnpolyfill_pp_vtable_parflags[] = {
361             0,
362             PDL_PARAM_ISTYPED,
363             PDL_PARAM_ISWRITE
364             };
365             static pdl_datatypes pdl_pnpolyfill_pp_vtable_partypes[] = { -1, PDL_L, -1 };
366             static PDL_Indx pdl_pnpolyfill_pp_vtable_realdims_starts[] = { 0, 2, 2 };
367             static PDL_Indx pdl_pnpolyfill_pp_vtable_realdims_ind_ids[] = { 0, 1, 2, 3 };
368             static char *pdl_pnpolyfill_pp_vtable_indnames[] = { "k","l","m","n" };
369             pdl_transvtable pdl_pnpolyfill_pp_vtable = {
370             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADIGNORE, 0, pdl_pnpolyfill_pp_vtable_gentypes, 2, 3, NULL /*CORE21*/,
371             pdl_pnpolyfill_pp_vtable_realdims, pdl_pnpolyfill_pp_vtable_parnames,
372             pdl_pnpolyfill_pp_vtable_parflags, pdl_pnpolyfill_pp_vtable_partypes,
373             pdl_pnpolyfill_pp_vtable_realdims_starts, pdl_pnpolyfill_pp_vtable_realdims_ind_ids, 4,
374             4, pdl_pnpolyfill_pp_vtable_indnames,
375             NULL, pdl_pnpolyfill_pp_readdata, NULL,
376             NULL,
377             0,"PDL::Image2D::pnpolyfill_pp"
378             };
379              
380              
381 1           pdl_error pdl_run_pnpolyfill_pp(pdl *a,pdl *ps,pdl *col) {
382 1           pdl_error PDL_err = {0, NULL, 0};
383 1 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
384 1           pdl_trans *__privtrans = PDL->create_trans(&pdl_pnpolyfill_pp_vtable);
385 1 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
386 1           __privtrans->pdls[0] = ps;
387 1           __privtrans->pdls[1] = col;
388 1           __privtrans->pdls[2] = a;
389 1 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
390 1 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
391 1           return PDL_err;
392             }