!
read uv gag_demo:demo-line
uv_map
clean
stat clean
!
begin procedure show
  DISPLAY\SHOW &1
  hard show-&1 /dev png
end procedure show
!
begin procedure  view
  DISPLAY\VIEW &1 /NOPAUSE
  hard view-&1 /dev png
end procedure view
!
begin procedure  inspect
  let show_color -16
  DISPLAY\INSPECT &1 
  color -16
  hard inspect /dev png
end procedure inspect
!
let gtv%nofail yes
let size 16
@ show clean
@ show noise
@ show cct
!
@ view cct
change lut dynamic
!
@ inspect clean
explore
explore /add -1.6 0.1
explore /add  0.1 1.6
explore /add 1.6 -0.1
explore /add -0.1 -1.6
hard explore /dev png
!
