如何把动态太阳花搞成CAD屏保

ynhh

http://bbs.mjtd.com/thread-91313-1-1.html
其中这个太阳花看上去好象可做成CAD屏保
我是这样想的
是不是把光标设置成在屏幕范围内随机移动就可以了
谢谢

2. ;;; Writed by Lee Mac
   
3. (defun c:bored (/ cir cnt gr lst n d)
   
4.   (setq lst (list (getvar 'viewctr) (getvar 'viewctr)) cnt 0)
   
5.   
   
6.   (while (eq 5 (car (setq gr (grread nil 5 1))))
   
7.     (redraw)
   
8.     (setq cir nil n 0 lst (append lst (list (last lst) (cadr gr))) cnt (1+ cnt))
   
9.    
   
10.     (if (< 100 cnt) (setq lst (cddr lst)))
    
11.    
    
12.     (repeat 50 (setq d (/ (distance (car lst) (last lst)) 4.))
    
13.       (repeat 4
    
14.         (setq cir (cons (polar (car lst)
    
15.                                (* (setq n (1+ n)) (/ (* pi 2) 50)) d) cir))
    
16.         (setq d (/ d 2.))))
    
17.    
    
18.     (grvecs (append (list (rem (/ cnt 100) 255)) lst cir)))
    
19.   
    
20.   (princ))
    

;;; Writed by Lee Mac<br /> (defun c:bored (/ cir cnt gr lst n d)<br />   (setq lst (list (getvar 'viewctr) (getvar 'viewctr)) cnt 0)<br />   <br />   (while (eq 5 (car (setq gr (grread nil 5 1))))<br />     (redraw)<br />     (setq cir nil n 0 lst (append lst (list (last lst) (cadr gr))) cnt (1+ cnt))<br />     <br />     (if (< 100 cnt) (setq lst (cddr lst)))<br />     <br />     (repeat 50 (setq d (/ (distance (car lst) (last lst)) 4.))<br />       (repeat 4<br />         (setq cir (cons (polar (car lst)<br />                                (* (setq n (1+ n)) (/ (* pi 2) 50)) d) cir))<br />         (setq d (/ d 2.))))<br />     <br />     (grvecs (append (list (rem (/ cnt 100) 255)) lst cir)))<br />   <br />   (princ))<br />

zj20190405

老大，这个动态能搞嘛

飞雪神光

zj20190405 发表于 2024-4-6 18:18
老大，这个动态能搞嘛

这种动态用lisp语言 只有bo能搞 图元少了还好说 图元多了就会卡顿还不准

zhaoxt

以前对这些很感兴趣，慢慢慢慢觉得 没意思了，玩这些用别的语言方便多了。lisp解决工程效率来的，不过这种奇淫技巧玩的好的lisp都玩得很溜