[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv19234

Modified Files:
	sdl.lisp 
Log Message:
Fixed the flags.


--- /project/gsharp/cvsroot/gsharp/sdl.lisp	2006/06/03 05:40:07	1.24
+++ /project/gsharp/cvsroot/gsharp/sdl.lisp	2006/06/03 22:03:08	1.25
@@ -1322,7 +1322,6 @@
 			   extreme-point &
 			   extreme-point ++
 			   (c (- (round (* 0.88 sld)) st) (* -2.5 sld)) up ++
-			   (c (* 0.75 sld) (* -2.5 sld)) up ++
 			   (c 0 (* -1.3 sld)) &
 			   (c 0 (* -1.3 sld)) -- (c 0 0)))))
 
@@ -1333,7 +1332,6 @@
 			   extreme-point &
 			   extreme-point ++
 			   (c (- (round (* 0.88 sld)) st) (* -2.5 sld)) up ++
-			   (c (* 0.75 sld) (* -2.6 sld)) up ++
 			   (direction #c(-1 2)) (c 0 (* (- -1.3 0.625) sld)) &
 			   (c 0 (* (- -1.3 0.625) sld)) -- 
 			   (c 0 (* -1.4 sld))))))