fixed a bug in draw-line
This commit is contained in:
		
							parent
							
								
									89e23d9df0
								
							
						
					
					
						commit
						e7108c64ca
					
				| 
						 | 
					@ -27,7 +27,7 @@
 | 
				
			||||||
 | 
					
 | 
				
			||||||
;; *** draw lines, polygons ******************************************
 | 
					;; *** draw lines, polygons ******************************************
 | 
				
			||||||
 | 
					
 | 
				
			||||||
(import-lambda-definition draw-line (display drawable gc x1 y2 x2 y2)
 | 
					(import-lambda-definition draw-line (display drawable gc x1 y1 x2 y2)
 | 
				
			||||||
  "scx_Draw_Line")
 | 
					  "scx_Draw_Line")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
;; points has to be a list of (x . y) pairs
 | 
					;; points has to be a list of (x . y) pairs
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue