It is probable, so it is better...
(defun c:clo (/ A1 GR I S)
;; ElpanovEvgeniy, Russia, Moscow, 2006
;; Clock that show time in the screen
(setq a1 (/ pi 30))
(while (= (car (setq gr (grread nil 5 1))) 5)
(setq s (/ (getvar "viewsize") 8.)
gr (trans (cadr gr) 1 3)
i 0
) ;_ setq
(redraw)
(grvecs ;SS
'(2 (-0.01 0.) (1. 0.))
((lambda (a)
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos a) s)
(* (sin a) s)
(car gr)
(cadr gr)
s
)
) ;_ lambda
(- (/ pi 2.) (* (/ pi 30.) (atof (menucmd "M=$(edtime,$(getvar,date),SS.MSEC)"))))
)
) ;_ grvecs
(grvecs ;MM
'(3 (-0.01 0.) (0.8 0.)
3 (-0.01 -0.01) (0.6 -0.01)
3 (-0.01 0.01) (0.6 0.01)
3 (-0.01 -0.02) (0.4 -0.02)
3 (-0.01 0.02) (0.4 0.02)
3 (0.4 -0.02) (0.8 0.)
3 (0.4 0.02) (0.8 0.)
)
((lambda (a)
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos a) s)
(* (sin a) s)
(car gr)
(cadr gr)
s
)
) ;_ lambda
(- (/ pi 2.) (* (/ pi 30.) (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))))
)
) ;_ grvecs
(grvecs ;H
'(1 (-0.01 0.) (0.5 0.)
1 (-0.01 -0.01) (0.4 -0.01)
1 (-0.01 0.01) (0.4 0.01)
1 (-0.01 -0.02) (0.3 -0.02)
1 (-0.01 0.02) (0.3 0.02)
1 (-0.01 -0.03) (0.2 -0.03)
1 (-0.01 0.03) (0.2 0.03)
1 (0.2 -0.03) (0.5 0.)
1 (0.2 0.03) (0.5 0.)
)
((lambda (a)
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos a) s)
(* (sin a) s)
(car gr)
(cadr gr)
s
)
) ;_ lambda
(- (/ pi 2.)
(* (/ pi 6.)
(+ (atoi (menucmd "M=$(edtime,$(getvar,date),H)"))
(/ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)")) 60.)
) ;_ +
) ;_ *
) ;_ -
)
) ;_ grvecs
(repeat 4
(grvecs
'(6 (0.8 0.) (0.82 0.02)
6 (0.82 0.02) (1. 0.02)
6 (1. 0.02) (1. -0.02)
6 (1. -0.02) (0.82 -0.02)
6 (0.82 -0.02) (0.8 0.)
)
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos (* a1 i)) s)
(* (sin (* a1 i)) s)
(car gr)
(cadr gr)
s
)
) ;_ grvecs
(repeat 3
(grvecs
'(5 (1. 0.01) (0.92 0.01) 5 (1. -0.01) (0.92 -0.01)5 (0.92 0.01)(0.89 0.) 5 (0.92 -0.01)(0.89 0.))
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos (* a1 i)) s)
(* (sin (* a1 i)) s)
(car gr)
(cadr gr)
s
)
) ;_ grvecs
(repeat 5
(grvecs
'(3 (-0.25 1.2) (0 1.3) 3 (0 1.3) (0.25 1.2) 3 (0.25 1.2) (0 1.1) 3 (0 1.1) (-0.25 1.2))
((lambda (c s x y sc)
(list (list c (- s) 0. (+ s s (* s 0.5) x))
(list s c 0. y)
(list 0. 0. sc 0.)
'(0. 0. 0. 1.)
) ;_ list
) ;_ lambda
(* (cos (* a1 i 1)) s)
(* (sin (* a1 i 1)) s)
(car gr)
(cadr gr)
s
)
) ;_ grvecs
(grvecs
'(5 (0.9 0) (1 0)); 5 (1.05 -0.9) (1.05 0.9)
((lambda (c s x y sc)
(list (list c (- s) 0. x) (list s c 0. y) (list 0. 0. sc 0.) '(0. 0. 0. 1.))
) ;_ lambda
(* (cos (* a1 i)) s)
(* (sin (* a1 i)) s)
(car gr)
(cadr gr)
s
)
) ;_ grvecs
(setq i (1+ i))
) ;_ repeat
) ;_ repeat
) ;_ repeat
) ;_ while
(redraw)
)