;esempio uso di SET-PEN-MODE nei 16 modi diversi...pen1.mar
(prog1
 (ask(front-window)
  (set-pen-mode 1)
  (paint-rect 10 10 400 300)
  (sleep 1)
  (set-pen-mode 0)
  (paint-rect 20 20 40 40)
  (sleep 1)
  (set-pen-mode 1)
  (paint-rect 50 20 100 40) 
  (sleep 1)
  (set-pen-mode 2)
  (paint-rect 110 20 150 40) 
(sleep 1)
  (set-pen-mode 3)
  (paint-rect 160 20 200 40) 
(sleep 1)
  (set-pen-mode 4)
  (paint-rect 210 20 240 40) 
(sleep 1)
  (set-pen-mode 5)
  (paint-rect 250 20 280 40) 
(sleep 1)
  (set-pen-mode 6)
  (paint-rect 20 50 40 80) 
(sleep 1)
  (set-pen-mode 7)
  (paint-rect 60 50 100 80) 
(sleep 1)
  (set-pen-mode 8)
  (paint-rect 110 50 150 80) 
(sleep 1)
  (set-pen-mode 9)
  (paint-rect 160 50 190 80) 
(sleep 1)
  (set-pen-mode 10)
  (paint-rect 200 50 240 80) 
(sleep 1)
  (set-pen-mode 11)
  (paint-rect 250 50 290 80) 
(sleep 1)
  (set-pen-mode 12)
  (paint-rect 20 100 60 140) 
(sleep 1)
  (set-pen-mode 13)
  (paint-rect 70 100 100 140) 
(sleep 1)
  (set-pen-mode 14)
  (paint-rect 110 100 150 140)
(sleep 1)
  (set-pen-mode 15)
  (paint-rect 200 100 250 140)  
  (set-pen-mode 10)
  (print"fine")
))

;esempio uso di SET-PEN-MODE nei 16 modi diversi...pen4.mar
(prog1
 (setq cw3(oneof *color-window*))
 (ask(front-window)
 (set-pen-rgb-pat(random 60000)(random 60000)(random 60000))
  (set-pen-mode 14)
  (frame-rect 10 10 400 300)
  (sleep 1)
  (set-pen-mode 0)
  (paint-rect 20 20 40 40)
  (sleep 1)
  (set-pen-mode 1)
  (paint-rect 50 20 100 40) 
  (sleep 1)
  (set-pen-mode 2)
  (paint-rect 110 20 150 40) 
(sleep 1)
  (set-pen-mode 3)
  (paint-rect 160 20 200 40) 
(sleep 1)
  (set-pen-mode 4)
  (paint-rect 210 20 240 40) 
(sleep 1)
  (set-pen-mode 5)
  (paint-rect 250 20 280 40) 
(sleep 1)
  (set-pen-mode 6)
  (paint-rect 20 50 40 80) 
(sleep 1)
  (set-pen-mode 7)
  (paint-rect 60 50 100 80) 
(sleep 1)
  (set-pen-mode 8)
  (paint-rect 110 50 150 80) 
(sleep 1)
  (set-pen-mode 9)
  (paint-rect 160 50 190 80) 
(sleep 1)
  (set-pen-mode 10)
  (paint-rect 200 50 240 80) 
(sleep 1)
  (set-pen-mode 11)
  (paint-rect 250 50 290 80) 
(sleep 1)
  (set-pen-mode 12)
  (paint-rect 20 100 60 140) 
(sleep 1)
  (set-pen-mode 13)
  (paint-rect 70 100 100 140) 
(sleep 1)
  (set-pen-mode 14)
  (paint-rect 110 100 150 140)
(sleep 1)
  (set-pen-mode 15)
  (paint-rect 200 100 250 140)  
  (set-pen-mode 10)
  (print"fine")
))

ritorna