module SWUtils where

import SWSlide

-- Various utilities defined from the basic combinators

disk :: Number -> Pict
disk d = oval $ blank d d

circle :: Number -> Pict
circle d = ovalFrame $ blank d d

vcAppend :: [Pict] -> Pict
vcAppend = vAppend Hc

vlAppend :: [Pict] -> Pict
vlAppend = vAppend Hl

vrAppend :: [Pict] -> Pict
vrAppend = vAppend Hr

hcAppend :: [Pict] -> Pict
hcAppend = hAppend Vc

htAppend :: [Pict] -> Pict
htAppend = hAppend Vt

hbAppend :: [Pict] -> Pict
hbAppend = hAppend Vb

htlAppend :: [Pict] -> Pict
htlAppend = hAppend Vtl

hblAppend :: [Pict] -> Pict
hblAppend = hAppend Vbl


ltSuperimpose :: [Pict] -> Pict
ltSuperimpose ps = superimpose Hl Vt ps

rtSuperimpose :: [Pict] -> Pict
rtSuperimpose ps = superimpose Hr Vt ps

ctSuperimpose :: [Pict] -> Pict
ctSuperimpose ps = superimpose Hc Vt ps


lbSuperimpose :: [Pict] -> Pict
lbSuperimpose ps = superimpose Hl Vb ps

rbSuperimpose :: [Pict] -> Pict
rbSuperimpose ps = superimpose Hr Vb ps

cbSuperimpose :: [Pict] -> Pict
cbSuperimpose ps = superimpose Hc Vb ps


lcSuperimpose :: [Pict] -> Pict
lcSuperimpose ps = superimpose Hl Vc ps

rcSuperimpose :: [Pict] -> Pict
rcSuperimpose ps = superimpose Hr Vc ps

ccSuperimpose :: [Pict] -> Pict
ccSuperimpose ps = superimpose Hc Vc ps


lblSuperimpose :: [Pict] -> Pict
lblSuperimpose ps = superimpose Hl Vbl ps

rblSuperimpose :: [Pict] -> Pict
rblSuperimpose ps = superimpose Hr Vbl ps

cblSuperimpose :: [Pict] -> Pict
cblSuperimpose ps = superimpose Hc Vbl ps


ltlSuperimpose :: [Pict] -> Pict
ltlSuperimpose ps = superimpose Hl Vtl ps

rtlSuperimpose :: [Pict] -> Pict
rtlSuperimpose ps = superimpose Hr Vtl ps

ctlSuperimpose :: [Pict] -> Pict
ctlSuperimpose ps = superimpose Hc Vtl ps


findLT = find Hl Vt
findLB = find Hl Vb
findLC = find Hl Vc
findLBl = find Hl Vbl
findLTl = find Hl Vtl

findRT = find Hr Vt
findRB = find Hr Vb
findRC = find Hr Vc
findRBl = find Hr Vbl
findRTl = find Hr Vtl

findCT = find Hc Vt
findCB = find Hc Vb
findCC = find Hc Vc
findCBl = find Hc Vbl
findCTl = find Hc Vtl