Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  519 1657 (N24E51 L=104)  3306    329        4 ( 474/1519- 611/1816) -43.8 E70-E40 N14-N37
      2 1316 1735 (N47W06 L=160)   415     58        0 (1280/1719-1349/1749)  18.4 W02-W08 N45-N48
      3  872 1705 (N33E26 L=129)   656    139        0 ( 809/1663- 927/1731)  -5.7 E30-E20 N30-N35
      4  374 1551 (N15E58 L= 97)   642    119        1 ( 348/1490- 399/1608) -58.0 E60-E54 N11-N19
      5 1082 1548 (N26E07 L=148)   631    134        0 (1057/1491-1110/1606) -69.4 E08-E04 N22-N30
      6  607 1553 (N18E38 L=117)   507    114        2 ( 562/1526- 640/1586)  63.4 E41-E35 N16-N20
      7 1882 1232 (N25W61 L=216)  3995    394        6 (1821/1067-1928/1346) -70.6 W53-W72 N15-N33
      8 1678 1200 (N17W39 L=193)   833    111        2 (1646/1138-1703/1260)  82.9 W36-W40 N13-N21
      9 1742 1077 (N11W46 L=200)   539     65        0 (1716/1040-1761/1115)  78.7 W43-W47 N08-N13
     10  452 1054 (S14E37 L=118)   647    179        1 ( 412/ 983- 506/1096)  54.5 E39-E33 S18-S11
     11  909  910 (S15E05 L=150)   238     85        0 ( 868/ 885- 945/ 933)  45.0 E06-E02 S17-S13
     12  288  892 (S26E50 L=104)   535     99        0 ( 239/ 855- 322/ 920) -20.6 E55-E46 S27-S24
     13  259  743 (S35E56 L= 99)   605     60        2 ( 228/ 719- 300/ 768)  -6.3 E60-E51 S36-S33
     14  576  696 (S34E25 L=130)   240     31        0 ( 559/ 672- 596/ 715)  45.0 E25-E22 S35-S32
     15  982  649 (S30W05 L=160)  1302    409        4 ( 792/ 598-1151/ 689)   9.1 E08-W17 S32-S26
     16 1600  594 (S19W49 L=203)   464    148        0 (1540/ 553-1632/ 651)  66.8 W45-W50 S22-S15
     17  440  574 (S45E39 L=116)  1464    242        1 ( 337/ 540- 545/ 617)   7.4 E50-E27 S47-S41
     18 1104  512 (S36W17 L=172)   356     69        0 (1073/ 484-1142/ 536)  63.4 W15-W19 S37-S33
     19  613  392 (S56E22 L=132)   325     38        0 ( 597/ 369- 626/ 423)  51.3 E24-E20 S58-S53
     20  538  286 (S68E44 L=111)   826    112        2 ( 489/ 266- 598/ 310)   0.0 E58-E31 S69-S66
  

    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