Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1642 1608 (N18W63 L=187)   460     19        0 (1626/1583-1660/1632)  21.8 W60-W66 N17-N19
      2 1574 1555 (N18W53 L=177)   302     42        1 (1545/1537-1596/1569) -26.6 W51-W55 N16-N19
      3 1748 1528 (N11W68 L=192)   560     87        4 (1719/1492-1784/1553) -59.0 W65-W71 N07-N12
      4 1841 1366 (S01W67 L=191)   570     76        1 (1800/1331-1868/1392)   0.0 W61-W73 S03-N00
      5 1248 1360 (N18W22 L=147)   495    154        0 (1186/1341-1326/1380) -26.6 W18-W26 N15-N20
      6 1069 1281 (N19W10 L=134)   328    101        0 (1022/1246-1110/1312) -51.3 W07-W11 N16-N21
      7 1867 1125 (S14W60 L=184)  4500    320        9 (1799/1027-1936/1239)  42.3 W51-W70 S21-S07
      8  432 1053 (N23E36 L= 88)  1735    404        2 ( 307/ 913- 551/1194) -54.5 E45-E30 N12-N33
      9  698 1060 (N17E18 L=106)   398    178        0 ( 634/1038- 802/1089) -31.0 E21-E11 N13-N19
     10 1813  947 (S22W49 L=173)   491    112        1 (1782/ 926-1845/ 983) -38.7 W46-W52 S23-S19
     11 1443  837 (S16W19 L=143)   476    180        0 (1411/ 763-1470/ 927)  41.2 W14-W22 S18-S11
     12 1572  660 (S31W24 L=148)  3180    536        3 (1439/ 479-1712/ 891)  31.3 W10-W38 S38-S21
     13  963  780 (S05E10 L=114)   189     45        1 ( 938/ 764- 993/ 799) -18.4 E11-E08 S06-S04
     14 1356  786 (S16W12 L=136)   205     45        0 (1325/ 772-1385/ 798) -45.0 W10-W13 S17-S14
     15  781  717 (S04E22 L=102)   348     92        0 ( 767/ 662- 799/ 761)  63.4 E23-E20 S07-S01
     16 1221  678 (S18W02 L=126)   325     87        0 (1202/ 633-1247/ 727)  51.3 W00-W04 S20-S15
     17  965  557 (S18E17 L=108)   877    311        1 ( 924/ 419-1032/ 698)  45.0 E23-E08 S26-S11
     18  562  666 (S02E37 L= 87)   532    209        1 ( 462/ 638- 650/ 689) -18.4 E43-E31 S05-N00
     19 1160  602 (S21E04 L=120)   278    115        0 (1147/ 550-1174/ 657)  56.3 E06-E02 S23-S17
     20  425  527 (S07E53 L= 71)   327     74        0 ( 396/ 494- 449/ 555) -76.0 E54-E51 S09-S05
  

    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