x=50 y =90 line red (-120) (-120) (90) (100) line blue (-170) (130) (100) (-70) point green x y colour a b c d jt a b call [wrrt "(" call[wrnum a] gomv 40 0 wrrt "," call[wrnum b] gomv 35 0 wr ")"] color colour[ mt c d] call [wrrt "(" call[wrnum c] gomv 30 0 wrrt "," call[wrnum d] gomv 30 0 wr ")"] jt 0 0 colour a b jt a b solid colour [circle 8] gomv -20 (-20) call [wrrt "(" call[wrnum a] gomv 20 0 wrrt "," call[wrnum b] gomv 20 0 wr ")"] jt 1000 0