Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  445 1594 (N17E54 L=217)   589     49        1 ( 420/1568- 472/1622)  -8.1 E57-E50 N15-N18
      2 1506 1281 (N19W24 L=295)  2357    798        3 (1371/ 959-1577/1606) -57.4 W09-W32 N01-N37
      3 1296 1533 (N30W06 L=277)   339    134        0 (1272/1482-1331/1600)  84.3 W04-W07 N25-N35
      4  571 1540 (N15E41 L=231)   406     59        0 ( 538/1519- 604/1566)  33.7 E43-E38 N13-N17
      5  887 1461 (N16E18 L=254)   713    162        1 ( 828/1430- 959/1508)  -5.7 E22-E12 N14-N17
      6 1803  970 (N09W53 L=324)  1052    208        2 (1725/ 917-1852/1032)  36.0 W45-W57 N04-N13
      7 1590  931 (N01W36 L=308)   261     59        1 (1560/ 910-1626/ 953)   0.0 W33-W39 N00-N01
      8 1292  719 (S18W23 L=295)   195     46        1 (1258/ 703-1317/ 731)  33.7 W21-W24 S19-S17
      9 1556  609 (S18W45 L=316)   619    119        0 (1506/ 572-1607/ 654)  66.8 W41-W46 S20-S13
     10 1345  601 (S24W31 L=302)   233    138        0 (1298/ 585-1393/ 634)  15.9 W26-W33 S25-S21
     11 1691  552 (S17W60 L=331)  1010    193        2 (1633/ 495-1728/ 625) -83.7 W55-W64 S21-S12
     12 1349  467 (S31W38 L=309)   625    119        0 (1295/ 432-1396/ 502)  63.4 W34-W40 S34-S28
     13 1450  310 (S37W58 L=330)   491     40        0 (1422/ 294-1483/ 329)   7.1 W54-W62 S38-S36
  

    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