##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October, 2016 # Modified: 2016-10-16/14:45-0400 ##+ # # Couple.icn, demonstrate w1 coupling # procedure main() w1 := open("window 1", "g", "size=110,60", "canvas=hidden") write(w1, "Couple 1") write(w1) w2 := open("window 2", "g", "size=110,60", "canvas=hidden") Fg(w2, "vivid orange") write(w2, "Couple 2") other := Couple(w1, w2) write(other, "From the Couple") # save image of w1 WSync(other) WriteImage(other, "../images/Couple.png") close(other, w2, w1) end