mjhjmtu

I need to visualize a sequence, with the ability to emphasize certain segments.

For example, take this sequence seq:

seq = -----------------DTLCIGYHANNSTDTVDTVLEKNVTVTHSVNLLEDKHNGKLCK
LRGVAPLHLGKCNIAGWILGNPECESLSTASSWSYIVETPSSDNGTCYPGDFIDYEELREQLSSVSSFER
FEIFPKTSSWPNHDSNKGVTAACPHAGAKSFYKNLIWLVKKGNSYPKLSKSYINDKGKEVLVLWGIHHPS
TSADQQSLYQNADTYVFVGSSRYSKKFKPEIAIRPKVRDQEGRMNYYWTLVEPGDKITFEATGNLVVPRY
AFAMERNAGSGIIISDTPVHDCNTTCQTPKGAINTSLPFQNIHPITIGKCPKYVKSTKLRLATGLRNIPS
G----LFGAIAGFIEGGWTGMVDGWYGYHHQNEQGSGYAADLKSTQNAIDEITNKVNSVIEKMNTQFTAV
GKEFNHLEKRIENLNKKVDDGFLDIWTYNAELLVLLENERTLDYHDSNVKNLYEKVRSQLKNNAKEIGNG
CFEFYHKCDNTCMESVKNGTYDYPKYSEEAKLNREEIDS-------------------------------
--------------------------------------------------------------------

The list of segments I want to emphasize: segments = "AGSGIIISDTPVHDC", "AIDEITNKVNSVIEK", AKSFYKNLIWLVKKG.

I'm thinking that something that looks like this would work for the emphasis, where the black line is the length of the sequence, and the blue boxes are the segments:

To get start and ending positions of each segment, we can use StringPosition[seq, #] & /@ segments.

Now I'm not sure which visualization tool would help me visualize this sequence and emphasize the segment using these start and end positions.

Graphics[Gray, EdgeForm[Gray], FaceForm[LightBlue], 
 SequenceReplace[Flatten[Join[1, #[[1]] - 1, 
 Rectangle[#[[1]], -5, #[[2]], 5], #[[2]] + 1 & /@ 
 StringPosition[seq, s : Alternatives @@ segments], StringLength @ seq]],
 a_Integer, b_Integer :> Line[a, 0, b, 0]], ImageSize -> 80]

Alternatively, use NumberLinePlot:

NumberLinePlot[Interval/@StringPosition[seq, Alternatives @@ segments], 
 Spacings -> 0, Ticks -> None, ImageSize -> 600, 
 PlotStyle -> Directive[Opacity[1], PointSize[0], CapForm["Butt"], Thickness[.02]], 
 PlotRange->0, StringLength @ seq, Automatic]

seq must be a string

Graphics[Blue, Line[0, 15, StringLength@seq, 15], 
Rectangle[#, 0, #2, 30] & @@@ StringPosition[seq, segments]]