From 74c40b6e20a5fb7f77bc95d5a48c2f62259e970e Mon Sep 17 00:00:00 2001 From: Mingye Wang Date: Mon, 16 Jun 2025 21:00:10 +0800 Subject: [PATCH] Bio.CMDraw: fix pair symbols This should fix #6 --- src/Bio/CMDraw.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Bio/CMDraw.hs b/src/Bio/CMDraw.hs index 1e60d3f..aff2679 100755 --- a/src/Bio/CMDraw.hs +++ b/src/Bio/CMDraw.hs @@ -689,7 +689,7 @@ drawCMSplitStateBox _ _ emissiontype _ currentStates sIndex singleSymbolsAndEmissions = zip ["A","U","G","C"] (VU.toList singleEmissionEntries) pairEmissionBitscores = CM._stateEmissions currentState pairEmissionEntries = setEmissions emissiontype 16 pairEmissionBitscores - pairSymbolsAndEmissions = zip ["AA","AU","AG","AC","UU","UA","UG","UC","GG","GA","GU","GC","CC","CA","CU","CG"] (VU.toList pairEmissionEntries) + pairSymbolsAndEmissions = zip ["AA","AC","AG","AU","CA","CC","CG","CU","GA","GC","GG","GU","UA","UC","UG","UU"] (VU.toList pairEmissionEntries) pairSymbolsAndEmissions1 = take 8 pairSymbolsAndEmissions pairSymbolsAndEmissions2 = drop 8 pairSymbolsAndEmissions dState = setState ("D" ++ stateIndx) (negate 0.5) (negate 1) === strutY 1