Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1021 1772 (N52W33 L= 68)   363     57        2 ( 999/1742-1041/1800)  23.2 W29-W36 N49-N54
      2 1169 1753 (N45W41 L= 77)   782     83        1 (1132/1725-1213/1778) -38.7 W36-W45 N42-N46
      3 1692 1524 (N14W63 L= 99)   687    111        1 (1631/1506-1739/1549) -13.0 W56-W69 N12-N15
      4 1097 1351 (N23W14 L= 49)   295     76        1 (1066/1326-1127/1383)  11.3 W11-W16 N21-N25
      5 1765 1300 (S00W57 L= 92)   589    110        1 (1738/1242-1786/1355)  63.4 W55-W58 S03-N03
      6  885 1318 (N27E00 L= 36)   208     62        0 ( 870/1281- 899/1347)  63.4 E01-W01 N24-N28
      7  830 1147 (N19E08 L= 28)   678    182        1 ( 770/1084- 890/1216)  24.4 E13-E02 N16-N21
      8 1177 1124 (N08W11 L= 47)   254     81        0 (1153/1102-1199/1158)  45.0 W09-W12 N07-N10
      9  280  978 (N21E52 L=344)  2634    521        9 ( 229/ 735- 356/1149) -77.0 E56-E47 N05-N31
     10  462 1061 (N22E34 L=  1)   660    190        1 ( 373/1009- 523/1093) -32.5 E41-E30 N18-N25
     11 1860  939 (S24W57 L= 92)   728    121        1 (1825/ 893-1881/ 993)  18.4 W51-W60 S25-S20
     12  389  920 (N16E43 L=353)   265     58        2 ( 367/ 895- 408/ 943)  71.6 E45-E41 N14-N17
     13 1539  844 (S18W26 L= 62)  1151    367        2 (1373/ 821-1706/ 875) -20.6 W14-W39 S22-S12
     14 1113  747 (S11E02 L= 33)   238     82        0 (1091/ 712-1130/ 782)  36.9 E04-W00 S12-S09
     15 1832  764 (S34W53 L= 88)   592     83        0 (1793/ 748-1876/ 779) -21.0 W47-W60 S36-S31
     16  687  549 (S12E33 L=  2)  1088    398        2 ( 622/ 409- 753/ 714)  38.7 E44-E23 S19-S03
     17  480  339 (S22E64 L=332)  1773    129        6 ( 441/ 292- 524/ 393)  41.6 E73-E56 S25-S17
     18  562  330 (S24E56 L=340)   496     89        0 ( 523/ 313- 590/ 358) -21.8 E58-E50 S25-S22
     19  761  307 (S30E41 L=354)   638    112        0 ( 733/ 255- 803/ 345)  22.6 E47-E35 S33-S27
  

    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