Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  992 1675 (N49W12 L=182)  2075    412        3 ( 809/1634-1183/1708) -20.8 E04-W26 N41-N53
      2 1527 1642 (N34W55 L=226)  2129    257        3 (1422/1603-1655/1671) -14.6 W44-W68 N28-N36
      3  857 1533 (N41E03 L=167)   303     65        1 ( 823/1518- 896/1548) -21.8 E05-W00 N39-N42
      4 1039 1508 (N36W10 L=180)   238     59        0 (1014/1490-1081/1523)   0.0 W08-W13 N34-N36
      5 1677 1433 (N18W55 L=225)   618     91        0 (1651/1392-1708/1477) -80.5 W53-W57 N15-N21
      6  933 1302 (N24E01 L=169)   621    290        1 ( 806/1278-1077/1315) -13.2 E09-W08 N22-N26
      7 1250 1278 (N18W18 L=188)   334    154        0 (1180/1243-1315/1298) -26.6 W13-W21 N14-N19
      8  252 1111 (N21E56 L=114)   483    100        1 ( 235/1063- 277/1150)  90.0 E58-E53 N17-N23
      9  901 1064 (N11E07 L=163)   349    125        0 ( 855/1037- 965/1101) -33.7 E09-E03 N08-N13
     10  335 1074 (N18E47 L=123)   411     93        2 ( 295/1050- 381/1100)  -6.3 E51-E42 N16-N19
     11 1784 1003 (S09W52 L=222)  1489    253        4 (1737/ 898-1824/1100) -81.3 W48-W56 S15-S02
     12 1673  992 (S07W42 L=212)   450    102        1 (1636/ 941-1704/1032)  38.7 W38-W44 S09-S04
     13  920  908 (N01E08 L=162)   300    104        0 ( 873/ 894- 973/ 921)  -9.5 E10-E04 N00-N02
     14 1896  840 (S23W67 L=237)  1950    136        3 (1858/ 773-1929/ 894)  74.1 W60-W76 S27-S19
     15 1255  844 (S08W11 L=181)   271     80        2 (1223/ 823-1288/ 862) -33.7 W09-W12 S09-S06
     16 1028  753 (S10E04 L=166)   861    161        5 ( 984/ 702-1096/ 825) -56.3 E06-W00 S12-S05
     17 1777  761 (S24W51 L=221)  1542    157        3 (1722/ 695-1831/ 824)  33.7 W44-W57 S27-S20
     18  311  629 (S09E59 L=111)  5300    540       14 ( 177/ 465- 467/ 750) -43.5 E73-E46 S21-S01
     19 1147  670 (S17W02 L=172)   443    133        3 (1107/ 621-1174/ 712)  45.0 E01-W04 S19-S14
     20  292  534 (S16E67 L=103)  2059    145        4 ( 247/ 473- 343/ 591) -66.0 E72-E62 S20-S11
     21 1260  521 (S29W07 L=177)   635    111        0 (1222/ 476-1305/ 560)  33.7 W04-W10 S32-S27
     22  874  216 (S47E33 L=137)  1343    203        2 ( 810/ 151- 943/ 279)  23.7 E48-E22 S54-S42
  

    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