[分享]：把点集转成image_button里的点

aeo

把点集转成image_button里的点.转过去后,就可以vector_image这些点了.

2. <normalfont>
   
3. (defun trans_image (ptn box midp x y sca / bl midxy p0 x1 xform xform1
   
4.                          xform2 xform3 y1 str pt hi gn color
   
5.                     )
   
6.     (setq y1 (distance (car box) (last box))
   
7.           x1 (distance (car box) (cadr box))
   
8.     )
   
9.     (if (< y1 1e-3) (setq y1 y))
   
10.     (if (< x1 1e-3) (setq x1 x))
    
11.     (setq bl (if (< (/ x x1) (/ y y1))
    
12.                (/ x x1)
    
13.                (/ y y1)
    
14.              )
    
15.     )
    
16.     (setq bl (* bl sca))
    
17.     (setq midxy (list (/ x 2.0) (/ y 2.0) 0))
    
18.     (setq p0 (mapcar '(lambda (x y)  (- x y)) midxy midp ) )
    
19.     (setq xForm (xdrx_matrix_identity 3))
    
20.     (setq xform1 (xdrx_matrix_setTransLation xForm p0))
    
21.     (setq ptn (mapcar '(lambda (x) (xdrx_point_transform x xform1) )ptn ))
    
22.     (setq xform2 (mapcar
    
23.                    '(lambda (x)
    
24.                       (xdrx_matrix_setScale xform bl midxy)
    
25.                     )
    
26.                    ptn
    
27.                  )
    
28.     )
    
29.     (setq ptn (mapcar
    
30.                 '(lambda (x y)
    
31.                    (xdrx_point_transform x y)
    
32.                  )
    
33.                 ptn
    
34.                 xform2
    
35.               )
    
36.     )
    
37.     (setq xform3 (mapcar
    
38.                    '(lambda (x)
    
39.                       (xdrx_matrix_setMirror xform (list midxy (polar midxy 0 1))
    
40.                       )
    
41.                     )
    
42.                    ptn
    
43.                  )
    
44.     )
    
45.     (setq ptn (mapcar
    
46.                 '(lambda (x y)
    
47.                    (xdrx_point_transform x y)
    
48.                  )
    
49.                 ptn xform3
    
50.               )
    
51.     )
    
52.   )
    
53. </font>
    

<normalfont><br /> (defun trans_image (ptn box midp x y sca / bl midxy p0 x1 xform xform1<br />                          xform2 xform3 y1 str pt hi gn color<br />                     )<br />     (setq y1 (distance (car box) (last box))<br />           x1 (distance (car box) (cadr box))<br />     )<br />     (if (< y1 1e-3) (setq y1 y))<br />     (if (< x1 1e-3) (setq x1 x))<br />     (setq bl (if (< (/ x x1) (/ y y1))<br />                (/ x x1)<br />                (/ y y1)<br />              )<br />     )<br />     (setq bl (* bl sca))<br />     (setq midxy (list (/ x 2.0) (/ y 2.0) 0))<br />     (setq p0 (mapcar '(lambda (x y)  (- x y)) midxy midp ) )<br />     (setq xForm (xdrx_matrix_identity 3))<br />     (setq xform1 (xdrx_matrix_setTransLation xForm p0))<br />     (setq ptn (mapcar '(lambda (x) (xdrx_point_transform x xform1) )ptn ))<br />     (setq xform2 (mapcar<br />                    '(lambda (x)<br />                       (xdrx_matrix_setScale xform bl midxy)<br />                     )<br />                    ptn<br />                  )<br />     )<br />     (setq ptn (mapcar<br />                 '(lambda (x y)<br />                    (xdrx_point_transform x y)<br />                  )<br />                 ptn<br />                 xform2<br />               )<br />     )<br />     (setq xform3 (mapcar<br />                    '(lambda (x)<br />                       (xdrx_matrix_setMirror xform (list midxy (polar midxy 0 1))<br />                       )<br />                     )<br />                    ptn<br />                  )<br />     )<br />     (setq ptn (mapcar<br />                 '(lambda (x y)<br />                    (xdrx_point_transform x y)<br />                  )<br />                 ptn xform3<br />               )<br />     )<br />   )<br /> </font><br />

1.ptn: 要转到image_button 的点表.
2.box: 你所要转到image_button 所有点的外框,这四点对应着image_button 的四个角
3.midp:  这一点对应image_button 的中心点.如果要居中,就是box的中心
4.x y : image_button 的x y
5.sca:  这么多点在image_button 里占的比例,1的话充满.

如果居中,box就可以(setq box (apply  'xdrx_pointsbox  ptn) )

XDSoft

最初由 aeo 发布
[B]把点集转成image_button里的点.转过去后,就可以vector_image这些点了.
[code]<normalfont>
(defun trans_image (ptn box midp x y sca / bl midxy p0 x1 xform xform1
                         xform2 xform3 y1 str pt hi gn color
... [/B]

XDRX_API使用的很好，我见到的不多的朋友之一。