Cheese and mice

[BIGAL]

Found it, big thanks to Kent Cooper for original code. May need this for it to work with image.

(command "imageattach" "santa sleigh.png" "50,50,50" 5.0 90.)

 

 

 

The challenge now is Halloween. 

Edited Friday at 10:28 PM by BIGAL

[fuccaro]

On 10/12/2024 at 1:27 AM, BIGAL said:

Found it, big thanks to Kent Cooper for original code. May need this for it to work with image.

(command "imageattach" "santa sleigh.png" "50,50,50" 5.0 90.)

 

 

OR you could add some code so that the lisp draws the tree AND the Santa!

[BIGAL]

Check my post on page 1 for the tree code.

 

 

[fuccaro]

On 10/10/2024 at 1:22 PM, Steven P said:

am blatantly stealing the mouse!

See here a better mouse:

(defun c:mouse()
  (setq db (list -199.62 -5.44 36.3 3.8 5.9 -191.1 -67.0 54.17 1.09 2.33 -754.94 -667.83 700.5 1.02 1.3 -697.51 -324.45 413.77 0.71 1.1 -947.87 -457.31
		 707.22 0.63 0.81 -366.01 -678.05 584.44 1.16 1.5 -265.54 -967.4 894.62 1.39 1.65 -87.11 58.07 90.74 5.9 0.6 47.68 136.17 65.64 1.87 3.56
		 471.35 -156.12 201.95 1.13 2.0 564.74 45.02 19.86 4.35 5.29 557.17 57.36 34.34 5.28 0.87 637.13 141.41 81.76 3.15 3.93 592.55 141.13
		 37.18 2.2 3.15 572.44 167.6 4.02 5.85 2.0 621.24 137.96 53.11 2.59 4.06 551.2 33.18 73.11 0.19 1.03 572.45 39.75 51.06 4.65 0.15 579.97
		 276.34 287.74 4.5 4.67 477.39 -183.44 183.35 1.34 2.1 49.25 -106.66 265.1 5.88 6.09 303.86 -216.14 12.06 2.77 5.38 255.21 -153.01 91.76
		 5.37 5.69 364.68 -201.21 33.36 2.9 4.18 352.84 -213.17 17.58 4.43 0.24 415.72 -175.59 56.7 3.32 4.14 391.99 -210.51 14.52 4.2 0.34 276.69
		 -270.79 144.49 0.47 0.87 493.12 -25.69 182.54 3.73 3.97 -68.96 -43.55 145.18 5.0 5.9 -141.7 309.86 505.64 4.54 4.94 -19.43 178.0 252.79
		 2.9 3.42 -213.13 215.88 56.49 0.56 2.73 -283.1 181.48 134.29 6.2 0.5 -304.88 -123.4 101.63 3.5 0.2 -330.29 -130.66 76.22 2.7 3.5 99.25
		 -271.7 527.82 2.41 2.81 -32.91 -177.85 367.13 1.55 2.37 -188.74 -214.14 68.96 5.4 6.1 -101.39 -312.24 62.5 2.34 2.89 -151.26 -300.55
		 11.37 2.77 4.97 -152.96 -296.75 15.5 5.02 6.15 -90.48 -301.31 47.18 2.7 3.6 -120.07 -316.43 13.97 3.57 6.22 -28.19 -296.7 80.6 2.85 3.47
		 -98.0 -319.4 7.26 3.6 5.8 -137.12 -301.39 50.32 5.84 0.01 90.74 -290.36 177.85 3.1 3.2 -68.78 -299.39 18.08 3.22 5.07 -69.87 -302.96 15.27
		 5.21 0.86 32.65 -214.32 120.46 3.62 3.84 -42.45 -250.03 37.45 2.84 3.69 17.55 153.72 404.25 4.18 4.8 58.76 -264.74 16.49 0.64 1.84 39.92
		 -261.33 32.67 5.0 0.2 25.81 -151.6 142.97 4.62 4.88 10.79 -336.9 42.95 1.52 2.91 -20.4 -330.07 11.04 2.86 4.79 -22.96 -310.9 30.37 4.82
		 5.56 69.89 -369.77 80.08 2.19 2.69 10.89 -341.18 14.52 2.7 5.3 -11.28 -287.53 72.34 5.14 5.6 87.11 -342.99 43.55 2.2 3.3 56.58 -349.43
		 12.49 3.18 6.19 108.36 -349.04 39.37 2.23 3.18 88.97 -326.19 9.54 6.03 2.08 104.98 -330.53 7.06 2.86 0.28 195.29 -307.68 86.09 1.9 3.39
		 107.09 -72.36 165.28 5.09 0.56 29.04 112.52 108.89 4.6 5.9 -95.86 166.16 244.59 5.81 0.04 87.11 170.59 61.7 0.1 1.9 121.8 -22.59 257.44
		 1.78 2.42 -424.65 -140.1 54.44 5.5 1.0 166.96 10.89 221.4 4.87 1.8 -355.21 -396.57 285.04 0.89 1.45))
  (setq i 0)
  (repeat 76
    (entmake (list (cons 0 "ARC") (list 10 (nth i db) (nth (1+ i) db)) (cons 40 (nth (+ 2 i) db)) (cons 50 (nth (+ 3 i) db)) (cons 51 (nth (+ 4 i) db))))
    (setq i (+ 5 i))
    )
  )

 

Credit for the mouse

[fuccaro]

And an other one:

(defun c:mouse2()
  (setq db (list -113.57 -729.5 798.34 0.94 1.21 94.77 -182.15 212.71 1.23 1.63 -273.44 -1127.05 1216.32 1.03 1.18 116.75 -183.15 194.97 1.19 1.75 -208.71
		 42.95 293.05 6.0 6.17 -613.37 -105.85 688.61 6.28 0.11 115.79 -107.61 40.55 3.13 3.92 93.1 -168.57 33.0 1.37 1.76 85.93 -173.84 40.06 0.89
		 1.22 109.62 -144.37 2.26 4.24 0.85 98.2 -155.14 13.59 0.7 1.5 114.61 -143.62 6.63 3.57 4.64 113.51 -153.2 3.03 4.51 1.37 117.55 -139.2 17.59
		 3.9 4.44 97.51 -159.38 10.87 0.84 1.79 86.07 -156.14 11.77 0.1 1.37 94.54 -155.62 3.3 3.59 0.2 83.65 -158.76 8.1 0.21 1.8 74.15 -151.36 7.21
		 5.69 0.4 77.39 -153.76 3.19 3.28 5.75 66.58 -155.24 7.72 0.13 1.48 68.55 -139.53 8.13 2.32 4.55 -77.94 -181.26 148.83 0.33 0.55 15.42 -123.27
		 38.93 0.55 1.15 15.78 -59.74 37.78 4.58 5.31 37.55 50.8 150.38 4.35 4.53 89.5 -213.53 162.38 2.28 2.58 -20.68 -148.2 34.58 2.46 3.31 -42.62
		 -152.04 12.31 3.29 4.03 -51.76 -163.22 2.13 4.33 0.85 -40.51 -151.41 18.31 3.4 3.99 -39.83 -159.4 15.85 3.3 3.86 -53.51 -171.58 2.48 3.73
		 0.79 -982.19 -966.04 1219.67 0.71 0.72 -64.23 -168.62 3.98 1.08 3.3 -292.97 -204.07 227.49 0.13 0.15 -70.16 -175.13 2.92 3.26 0.41 -51.8
		 -169.52 22.07 2.67 3.41 -69.86 -180.59 15.67 1.8 2.71 -86.6 -172.95 2.72 3.02 5.89 -75.36 -173.55 13.98 2.1 3.07 -84.46 -155.24 6.57 5.03 5.78
		 -90.46 -155.03 11.03 4.4 5.06 -93.36 -163.9 1.7 2.21 4.43 -80.49 -176.78 19.89 1.81 2.34 -92.26 -139.21 19.57 5.08 5.96 -315.33 -53.23 258.62
		 5.92 6.2 61.88 -64.14 119.86 2.81 3.23 1.98 16.56 80.74 6.19 3.92 4.69 0.88 54.47 0.94 2.37 0.88 10.86 12.16 3.23 6.05 -13.02 -6.5 13.34 4.44
		 0.23 15.89 -3.73 15.94 3.12 4.92 0.7 -13.77 9.85 4.03 5.43 4.5 11.76 50.33 3.28 6.28 -11.93 -1.61 15.31 2.5 3.76 15.24 -0.57 16.67 5.35 0.71
		 -4.12 4.54 1.13 1.77 1.37 6.23 5.22 1.13 1.77 1.37 25.12 57.62 8.51 5.13 0.02 51.42 56.09 17.88 6.23 3.04 24.98 54.54 44.3 5.39 0.01 -44.91
		 54.89 19.74 1.1 2.98 -19.13 57.09 16.06 2.78 4.09 -23.59 57.52 40.81 3.13 4.28 -39.88 66.75 6.96 5.69 0.96 -24.11 29.69 1.13 1.77 1.37 28.78
		 29.69 1.13 1.77 1.37 -25.29 26.1 8.72 0.56 3.39 -30.28 37.74 14.25 4.47 5.77 27.64 27.4 8.77 5.88 2.38 34.15 37.31 13.43 3.43 4.83 87.13 -58.38
		 15.21 3.68 4.84 89.89 -85.68 12.25 0.98 1.64 121.05 -44.63 39.31 4.05 4.39 107.91 -84.16 2.36 4.64 1.35 110.91 -58.18 28.51 4.16 4.6 83.87 -102.85
		 23.7 1.03 1.35 84.62 -92.52 13.55 0.4 1.24 105.46 -85.2 8.62 3.37 4.51 102.82 -99.3 5.73 0.3 1.41 104.98 -97.96 3.32 4.62 0.11 106.81 -87.68 13.76
		 3.89 4.56 76.98 -110.46 23.87 0.6 1.22 73.7 -107.01 22.17 0.36 1.03 90.91 -100.72 3.85 3.5 0.39 71.14 -107.54 17.06 0.33 1.05 98.51 -93.62 18.9
		 3.1 3.42 77.84 -99.72 2.67 3.33 0.37 -85.27 -36.48 25.07 5.37 0.06 -51.78 -100.25 47.54 1.96 2.39 -92.97 -60.86 9.48 4.72 5.46 -93.14 -73.23 2.9
		 1.5 4.69 -92.37 -63.06 13.08 4.65 5.24 -82.23 -80.02 6.67 1.45 2.13 -71.84 -81.22 12.38 1.89 3.05 -93.68 -78.56 9.63 5.24 6.12 -87.39 -89.5 2.99
		 2.06 5.51 -194.96 -9.33 137.12 5.64 5.73 -63.57 -86.47 15.58 2.3 3.54 -74.75 -91.73 3.28 3.36 0.21 -59.23 -87.0 12.95 2.14 3.46 -64.87 -76.93 1.59
		 5.64 2.6 -55.9 -82.49 8.97 2.6 3.93 -60.84 -87.65 1.83 3.88 6.0 353.88 -83.67 1.12 4.13 0.73))
  (setq i 0)
  (repeat 106
    (entmake (list (cons 0 "ARC") (list 10 (nth i db) (nth (1+ i) db)) (cons 40 (nth (+ 2 i) db)) (cons 50 (nth (+ 3 i) db)) (cons 51 (nth (+ 4 i) db))))
    (setq i (+ 5 i))
    )
  )

The original raster image is from the same place as the previous one.

[Steven P]

Nice!

 

[fuccaro]

More mice will need more cheese

(defun c:cheese()
  (setq db (list 0.0 0.0 -5.0 0.0 0.7 0.0 3.14 0.0 2.9 5.0 0.0 0.7 0.84 6.28 1.39 3.97 5.0 0.0 0.7 6.27 7.12 1.45 3.52 -0.14 -0.03 0.53 1.0 5.08 2.34
3.25 -0.1 0.03 0.62 0.0 6.28 3.27 3.64 -0.17 -0.01 0.5 0.0 6.28 4.68 3.16 -0.13 0.03 0.59 0.0 6.28 5.68 3.48 -0.1 0.02 0.53 0.0 6.28 5.79 2.71 -0.12
-0.04 0.57 0.0 6.28 5.45 1.86 -0.08 -0.04 0.45 0.0 6.28 6.05 1.34 -0.11 0.02 0.52 0.0 6.28 1.36 3.33 -0.1 -0.09 0.52 4.0 7.71 0.84 3.13 -0.07 -0.1 0.45 0.0 6.28))
  (setq i 0)
  (repeat 13
    (entmake (list '(0 . "ELLIPSE") '(100 . "AcDbEntity") '(67 . 0)'(100 . "AcDbEllipse") (list 10 (nth i db) (nth (1+ i) db)) 
(list 11 (nth (+ 2 i) db) (nth (+ 3 i) db)) (cons 40 (nth (+ 4 i) db)) (cons 41 (nth (+ 5 i) db)) (cons 42 (nth (+ 6 i) db))))
    (setq i (+ 7 i))
    )
  (setq db (list -5.0 0.0 -5.0 2.9 5.0 0.0 5.0 2.9 0.0 2.9 3.35 5.49 0.0 2.9 5.0 2.9 1.39 3.97 1.39 3.58 5.0 1.05 6.39 1.03 6.39 1.03 6.39 3.93 6.39
3.93 1.39 3.97 0.0 2.9 4.73 6.57 1.39 3.44 1.39 2.9) i 0)
  (repeat 10
    (entmake (list '(0 . "LINE") (list 10 (nth i db) (nth (1+ i) db)) (list 11 (nth (+ 2 i) db) (nth (+ 3 i) db))))
    (setq i (+ 4 i))
    )
  )