Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1573 1704 (N27W64 L=139)   544     73        2 (1548/1677-1596/1727)   6.3 W59-W68 N25-N27
      2 1399 1612 (N27W42 L=117)   677    117        1 (1345/1575-1455/1643) -63.4 W38-W44 N23-N30
      3 1726 1549 (N14W65 L=141)  1496    172        5 (1691/1488-1765/1615)  53.1 W60-W72 N09-N17
      4 1671 1513 (N14W57 L=132)   589     81        1 (1646/1477-1700/1550)  78.7 W54-W59 N11-N16
      5 1354 1415 (N17W30 L=105)  1335    420        2 (1198/1359-1540/1513) -43.3 W22-W40 N10-N26
      6  983 1390 (N25W07 L= 82)  2211    616        0 ( 727/1271-1227/1450) -30.7 E09-W18 N12-N32
      7  875 1244 (N19E03 L= 72)   368    133        0 ( 810/1232- 947/1257) -33.7 E07-W00 N17-N21
      8 1596 1130 (S05W36 L=111)   494    118        1 (1575/1056-1612/1184)  60.3 W34-W38 S08-S01
      9 1880 1011 (S19W59 L=134)  1664    151        3 (1819/ 967-1949/1047)  -2.9 W51-W71 S20-S17
     10  800  939 (N04E14 L= 61)   222     65        1 ( 779/ 904- 828/ 966)  33.7 E16-E12 N02-N05
     11 1193  916 (S06W07 L= 82)   184     13        0 (1173/ 899-1212/ 936)  26.6 W05-W07 S07-S05
     12 1196  850 (S10W05 L= 81)   257     87        0 (1157/ 827-1230/ 885)  11.3 W03-W08 S11-S08
     13 1864  822 (S30W57 L=132)   438     63        0 (1834/ 801-1893/ 851)   8.1 W52-W60 S31-S29
     14  691  694 (S07E27 L= 48)  1516    298        7 ( 582/ 631- 792/ 769)  -4.1 E33-E19 S10-S03
     15  282  719 (N03E56 L= 19)  1561    185        2 ( 208/ 673- 357/ 761) -11.3 E66-E51 S01-N04
     16  299  524 (S09E65 L= 10)  4878    334       10 ( 237/ 408- 396/ 659) -86.6 E78-E58 S17-N00
     17 1024  629 (S18E10 L= 65)   402    114        2 ( 963/ 606-1078/ 654)  -8.1 E13-E06 S19-S17
     18  853  486 (S23E24 L= 51)  2196    555        5 ( 654/ 416-1057/ 605) -32.5 E33-E11 S28-S12
     19  463  516 (S13E49 L= 26)  1239    233        2 ( 390/ 468- 565/ 588) -38.7 E53-E42 S16-S07
     20  710  296 (S32E45 L= 31)  3903    341        6 ( 643/ 132- 775/ 442)  34.4 E73-E36 S45-S21
  

    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