;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