ynhh 发表于 2024-4-6 18:10:12

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



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

;;; Writed by Lee Mac
(defun c:bored (/ cir cnt gr lst n d)
(setq lst (list (getvar 'viewctr) (getvar 'viewctr)) cnt 0)

(while (eq 5 (car (setq gr (grread nil 5 1))))
    (redraw)
    (setq cir nil n 0 lst (append lst (list (last lst) (cadr gr))) cnt (1+ cnt))
   
    (if (< 100 cnt) (setq lst (cddr lst)))
   
    (repeat 50 (setq d (/ (distance (car lst) (last lst)) 4.))
      (repeat 4
      (setq cir (cons (polar (car lst)
                               (* (setq n (1+ n)) (/ (* pi 2) 50)) d) cir))
      (setq d (/ d 2.))))
   
    (grvecs (append (list (rem (/ cnt 100) 255)) lst cir)))

(princ))


zj20190405 发表于 2024-4-6 18:18:06

老大，这个动态能搞嘛

飞雪神光 发表于 2024-4-6 18:45:08

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

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

zhaoxt 发表于 2024-4-7 21:12:25

以前对这些很感兴趣，慢慢慢慢觉得 没意思了，玩这些用别的语言方便多了。lisp解决工程效率来的，不过这种奇淫技巧玩的好的lisp都玩得很溜
页: [1]
查看完整版本: 如何把动态太阳花搞成CAD屏保