Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  842 1875 (N58E45 L= 86)   526     73        1 ( 801/1856- 878/1886)   5.7 E52-E40 N55-N59
      2  560 1673 (N35E50 L= 81)   347     48        0 ( 540/1656- 588/1695) -15.9 E53-E46 N33-N36
      3  834 1656 (N38E26 L=105)   304     64        0 ( 812/1630- 866/1675)  11.3 E27-E22 N35-N39
      4 1331 1413 (N28W15 L=146)  2394    608        3 (1106/1247-1592/1502) -14.0 E01-W35 N21-N31
      5  501 1126 (S00E34 L= 96)   882    166        1 ( 457/1066- 538/1207)  76.0 E36-E32 S04-N04
      6 1505 1168 (N15W29 L=159)   326    113        0 (1486/1115-1542/1198)  59.0 W27-W31 N11-N17
      7 1430 1065 (N08W25 L=155)   205     64        1 (1398/1049-1467/1077)  14.0 W22-W26 N06-N08
      8 1802  962 (N06W56 L=186)   615    120        0 (1779/ 900-1824/1022) -54.5 W52-W58 N02-N09
      9  780  778 (S18E12 L=119)   323    155        0 ( 719/ 750- 818/ 832)  45.0 E15-E09 S19-S14
     10 1676  787 (S06W47 L=178)   279     63        0 (1662/ 753-1691/ 822)  90.0 W46-W47 S07-S03
     11 1566  709 (S12W40 L=171)   750    203        0 (1476/ 656-1631/ 773)  41.6 W34-W44 S15-S06
     12 1600  539 (S22W49 L=180)  2223    464        0 (1405/ 487-1734/ 669)  35.5 W35-W58 S27-S11
     13  729  504 (S37E14 L=117)   395     78        1 ( 692/ 476- 770/ 529)  33.7 E16-E10 S39-S34
  

    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