Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1651 1608 (N25W66 L= 77)   945    110        2 (1594/1576-1692/1644) -45.0 W62-W72 N22-N28
      2  630 1447 (N40E20 L=351)  1139    233        0 ( 556/1399- 739/1510) -36.3 E26-E11 N35-N46
      3 1295 1343 (N20W24 L= 35)   223     86        0 (1281/1299-1311/1382)  68.2 W22-W25 N16-N21
      4  175 1287 (N36E72 L=299)  1514    130        5 ( 146/1229- 215/1342) -26.6 E84-E63 N32-N39
      5  309 1122 (N24E49 L=322)   517     93        2 ( 291/1082- 333/1168)  68.2 E51-E46 N22-N27
      6  412  917 (N11E42 L=329)   483    120        0 ( 373/ 871- 462/ 943)  14.0 E45-E37 N08-N12
      7  168  868 (N10E69 L=302)   688    102        2 ( 143/ 822- 201/ 919)  40.6 E74-E62 N07-N13
      8 1622  876 (S15W35 L= 46)   369    100        0 (1587/ 839-1654/ 919)  18.4 W31-W37 S16-S12
      9  409  578 (S10E51 L=320)  1498    307        4 ( 336/ 487- 488/ 663) -72.9 E55-E45 S16-S03
     10  590  598 (S11E36 L=335)   851    192        2 ( 503/ 533- 655/ 658)  15.9 E44-E30 S14-S07
     11 1600  503 (S40W32 L= 43)   655     74        0 (1570/ 477-1624/ 535)  45.0 W29-W35 S42-S37
     12  633  466 (S20E38 L=333)   269     68        0 ( 602/ 445- 667/ 487) -45.0 E39-E36 S22-S18
     13 1294  417 (S38W05 L= 16)   277     55        0 (1275/ 394-1313/ 450)  45.0 W03-W07 S39-S35
     14 1126  392 (S35E08 L=  3)   276     69        0 (1094/ 378-1158/ 412)   9.5 E10-E04 S36-S34
     15  802  339 (S32E32 L=339)   422    113        0 ( 773/ 299- 822/ 386)  29.1 E37-E28 S35-S29
  

    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