Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  516 1532 (N26E38 L=  1)  1816    397        3 ( 411/1452- 631/1603) -25.5 E48-E27 N20-N31
      2 1064 1468 (N23W01 L= 39)   377     74        1 (1018/1441-1106/1491)   0.0 E02-W03 N21-N24
      3 1294 1429 (N22W16 L= 55)   267     53        1 (1268/1408-1329/1448) -14.0 W14-W18 N20-N23
      4 1048 1227 (N08W01 L= 39)   297     93        0 (1021/1183-1092/1273) -51.3 E01-W03 N05-N10
      5 1805 1156 (N08W54 L= 93)   452     74        1 (1791/1117-1820/1194)  63.4 W52-W55 N06-N10
      6 1128 1173 (N05W06 L= 44)   208     60        0 (1091/1158-1161/1189)  14.0 W03-W07 N04-N06
      7 1886 1097 (N06W63 L=102)  1597    358        5 (1849/1024-1941/1182)  83.7 W58-W71 N01-N10
      8  781 1130 (N01E15 L= 24)   293    111        0 ( 732/1095- 842/1153)  26.6 E17-E11 S01-N02
      9 1787 1039 (N01W52 L= 91)   672    177        3 (1723/1001-1835/1085)  -5.2 W46-W57 N00-N03
     10 1810  968 (S03W55 L= 94)   442    141        0 (1773/ 933-1860/ 998)  29.1 W51-W60 S05-N00
     11  678  963 (S09E21 L= 18)   224     83        0 ( 636/ 939- 720/ 989)  31.0 E23-E18 S10-S07
     12  231  891 (S14E56 L=343)  1029    296        3 ( 165/ 821- 292/ 978)  31.0 E64-E49 S17-S08
     13 1833  920 (S05W58 L= 97)  1213    239        5 (1790/ 858-1885/ 969)  41.6 W54-W63 S09-S01
     14 1430  870 (S11W26 L= 65)   267     58        0 (1410/ 835-1448/ 904) -53.1 W24-W27 S13-S09
     15 1877  850 (S09W64 L=103)   625     92        3 (1850/ 819-1898/ 885) -63.4 W61-W67 S10-S06
     16 1850  774 (S14W63 L=102)  3242    551        9 (1774/ 697-1937/ 858)  -5.4 W53-W75 S18-S08
     17 1604  790 (S15W39 L= 78)   280     55        0 (1579/ 760-1629/ 816) -36.9 W37-W41 S16-S13
     18  879  664 (S27E08 L= 31)  1657    412        3 ( 724/ 568-1071/ 795)  34.3 E19-W03 S33-S17
     19 1647  647 (S23W46 L= 85)  1328    235        2 (1599/ 565-1680/ 771) -81.3 W43-W48 S28-S15
     20  531  657 (S28E33 L=  6)   786    224        1 ( 465/ 588- 599/ 737)  36.9 E39-E27 S32-S22
     21 1464  722 (S20W30 L= 69)   220     85        1 (1424/ 704-1510/ 734)   9.5 W27-W33 S21-S19
     22 1844  652 (S21W66 L=104)  1269    215        2 (1801/ 628-1891/ 681)  15.3 W60-W71 S22-S19
     23  274  593 (S32E57 L=342)  1617    300        6 ( 212/ 542- 326/ 634) -24.0 E63-E51 S35-S29
     24  606  485 (S40E30 L=  9)   693    142        0 ( 546/ 447- 661/ 520)  20.0 E36-E25 S42-S37
     25 1174  463 (S39W14 L= 53)   508     95        0 (1134/ 429-1218/ 509)  50.2 W11-W17 S41-S35
     26 1622  443 (S37W52 L= 90)   878     71        0 (1586/ 411-1652/ 480)  68.2 W48-W54 S39-S33
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y