Pensieve header: Project SeifertBox, a Seifert surface toolbox with container TG[{seq}, BX[uc,ui,uj,lc,li,lj]..., BT[?]] with TG: Thick Graph, BX: Band Xing, uc: upper colour, etc., BT: Band Twist. With conversions to/from PD, with Draw, DeTwist, DeXing, reductions, and Δ.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SeifertBox"];
Once[<<KnotTheory`]

TG[pd_PD]:=