Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  967 1879 (N62W45 L= 33)   657    112        0 ( 914/1839-1011/1911)   2.5 W33-W56 N60-N63
      2 1174 1685 (N40W35 L= 23)   387    142        0 (1107/1675-1248/1696) -36.9 W30-W39 N36-N42
      3  518 1646 (N61E25 L=324)   744    128        2 ( 460/1619- 570/1671)   0.0 E33-E17 N58-N63
      4 1699 1488 (N11W60 L= 49)  8806    509       17 (1509/1327-1812/1617) -63.4 W49-W75 N01-N23
      5 1134 1526 (N31W23 L= 11)   675    184        1 (1067/1485-1219/1578)   0.0 W17-W30 N30-N32
      6 1583 1507 (N16W51 L= 40)   291     51        1 (1550/1498-1613/1524) -31.0 W48-W53 N14-N17
      7 1182 1427 (N24W21 L= 10)  1172    388        3 (1060/1389-1317/1473) -12.5 W13-W31 N21-N27
      8  633 1429 (N40E15 L=334)   829    168        2 ( 564/1393- 722/1456)  -8.7 E20-E07 N37-N42
      9 1135 1350 (N21W16 L=  4)   409    164        1 (1066/1311-1204/1379)  -5.7 W10-W20 N19-N22
     10  256 1318 (N43E55 L=294)  1320    132        3 ( 203/1277- 319/1368)  -9.5 E63-E45 N39-N46
     11 1214 1288 (N16W18 L=  7)   282     96        0 (1198/1242-1231/1339)  71.6 W16-W20 N12-N18
     12 1735 1202 (S05W49 L= 38)  3207    436        5 (1591/1046-1871/1317)   7.9 W34-W70 S08-N00
     13  791 1201 (N22E09 L=340)   910    255        2 ( 707/1145- 876/1241) -15.3 E15-E04 N17-N24
     14  829 1086 (N15E09 L=339)   565    177        1 ( 789/1019- 870/1148)  36.9 E13-E05 N11-N17
     15  185 1105 (N30E62 L=286)   512    104        0 ( 170/1050- 198/1147) -63.4 E64-E60 N26-N32
     16 1090  589 (S20E08 L=340)   836    258        1 (1016/ 488-1142/ 691)  34.7 E15-E02 S24-S14
     17 1088  626 (S18E07 L=341)   218      0        0 (1070/ 585-1103/ 657)  78.7 E08-E05 S20-S15
     18  540  558 (S08E43 L=306)  1709    220        2 ( 496/ 471- 586/ 648)  34.7 E49-E36 S13-S02
     19 1674  519 (S46W34 L= 23)  2297    257        4 (1565/ 449-1777/ 584)   0.0 W21-W48 S47-S42
     20  755  245 (S34E47 L=301)  3222    274        3 ( 642/ 156- 858/ 321)  10.8 E83-E33 S40-S30
  

    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