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))))))