Names: Segmentations, Target, Runes, Shine, Growing Crystallization, and Glint.

Code for "Segmentations":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"

Code for "Target":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:2=Ans or 2=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"

Code for "Runes":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"

Code for "Shine":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:2=Ans or 4=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"

Code for "Growing Crystallization":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:3=Ans or 2=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"

Code for "Glint":

`:Plot1(Scatter,X,Y,.`

:∟X→P

:∟Y→Q

:Repeat getKey or S<2

:∟P→X

:∟Q→Y

:DispGraph

:DelVar ∟P

:DelVar∟Q

:1→S

:For(X,min(∟X)-1,1+max(∟X

:For(Y,min(∟Y)-1,1+max(∟Y

:sum(1=max(abs(∟X-X),abs(∟Y-Y

:4=Ans or 2=Ans-max(∟X=X and ∟Y=Y

:If Ans

:Then

:X→∟P(S

:Y→∟Q(S

:S+1→S

:End

:End

:End

:End

:PlotsOff

:ClrHome

:"