Anubis / Anubis

Commit 115deba827b6ef66126fd578b08757dbcf19b59c

Authored by Olivier Duvernois
1 parent d9a470a4

*** empty log message ***

Showing 1 changed file with 4 additions and 20 deletions   Show diff stats
Inline Side-by-side
anubis_dev/library/graphism/geometrical_figures.anubis
  Show/Hide comments   View file @115deba
... ... @@ -247,27 +247,13 @@ public define One
247 247 RGBA color,
248 248 Int32 y1,
249 249 Int32 y2,
250   - Int32 x,
251   - Int32 -> Int32 xx,
252   - Int32 -> Int32 yy
  250 + Int32 x
253 251 ) =
254 252 if y1>y2 then unique
255   - else draw_pixel(img,xx(x),yy(y1),color);
256   - draw_V_line(img,color,y1+1,y2,x,xx,yy).
  253 + else draw_pixel(img,x,y1,color);
  254 + draw_V_line(img,color,y1+1,y2,x).
257 255  
258 256  
259   -public define One
260   - draw_V_line
261   - (
262   - RGBAImage img,
263   - RGBA color,
264   - Int32 y1,
265   - Int32 y2,
266   - Int32 x
267   - ) =
268   - draw_V_line(img,color,y1,y2,x,
269   - (Int32 i) |-> i,
270   - (Int32 j) |-> j).
271 257  
272 258  
273 259 public define One
... ... @@ -281,9 +267,7 @@ public define One
281 267 (Int32,Int32) origin
282 268 ) =
283 269 if origin is (xo,yo) then
284   - draw_V_line(img,color,y1,y2,x,
285   - (Int32 i) |-> xo+i,
286   - (Int32 j) |-> yo-j).
  270 + draw_V_line(img,color,yo-y1,yo-y2,xo+x).
287 271  
288 272  
289 273  
... ...