Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1459 1634 (N26W48 L=137)   785    151        2 (1416/1567-1513/1672)  13.0 W41-W54 N23-N28
      2 1626 1544 (N17W55 L=144)  1004    142        2 (1595/1487-1665/1604)  60.3 W51-W60 N13-N20
      3 1230 1536 (N27W27 L=116)   463    108        0 (1174/1505-1276/1556) -51.3 W24-W29 N24-N29
      4 1108 1339 (N19W13 L=102)   998    327        2 (1003/1275-1246/1449) -54.5 W08-W19 N12-N27
      5 1634 1435 (N11W50 L=139)   297    120        1 (1575/1427-1693/1446) -18.4 W45-W54 N08-N12
      6  609 1333 (N31E18 L= 71)   797    219        0 ( 527/1286- 714/1367)  -8.1 E25-E11 N28-N32
      7 1870 1211 (S08W63 L=152)  2307    388        6 (1811/1027-1907/1366)  54.8 W54-W70 S17-N01
      8  899 1282 (N21E01 L= 88)  1056    356        2 ( 748/1164-1009/1338) -53.7 E09-W04 N11-N27
      9  648 1160 (N20E19 L= 71)   233     89        1 ( 601/1143- 696/1171) -18.4 E21-E15 N18-N21
     10 1403 1040 (S05W22 L=111)   198     75        1 (1391/ 997-1418/1076)  53.1 W20-W23 S06-S02
     11 1723  924 (S20W42 L=131)  1522    311        4 (1610/ 822-1845/ 992)   7.4 W31-W54 S22-S17
     12 1907  876 (S28W63 L=152)   875     71        2 (1867/ 850-1944/ 896)   0.0 W56-W70 S30-S26
     13 1331  862 (S13W13 L=103)   190     54        1 (1304/ 843-1356/ 885)   0.0 W11-W15 S13-S11
     14  981  785 (S08E08 L= 81)   492    171        1 ( 937/ 729-1015/ 860)  50.2 E11-E05 S10-S03
     15  575  558 (S12E39 L= 50)  3830    776       15 ( 362/ 364- 798/ 760) -61.1 E48-E31 S28-N03
     16  165  693 (N03E73 L= 16)  1263    135        2 ( 131/ 655- 218/ 736)  -6.7 E82-E65 N00-N05
     17  449  583 (S08E47 L= 42)   650    131        3 ( 414/ 538- 481/ 650) -90.0 E50-E45 S11-S03
     18  805  543 (S18E25 L= 64)   233     78        0 ( 763/ 530- 840/ 560) -11.3 E27-E22 S19-S17
     19  345  471 (S13E64 L= 26)  1419    197        2 ( 275/ 433- 434/ 544) -39.3 E69-E56 S16-S07
     20  833  428 (S26E28 L= 61)   401     87        0 ( 800/ 399- 864/ 462)  15.9 E31-E24 S27-S24
     21  573  273 (S30E59 L= 31)  4029    283        7 ( 501/ 159- 655/ 374)  33.7 E82-E50 S40-S22
     22 1501  280 (S61W18 L=108)   497     49        1 (1474/ 255-1525/ 314) -60.9 W14-W23 S65-S56
  

    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