Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1021 1574 (N36W17 L=103)   520    104        0 ( 968/1551-1079/1594) -15.9 W13-W20 N34-N38
      2 1286 1552 (N27W32 L=118)   311     85        2 (1244/1535-1328/1570)  -9.5 W29-W35 N25-N27
      3 1512 1461 (N15W43 L=128)   350     72        1 (1492/1417-1534/1487)  31.0 W39-W44 N13-N16
      4 1282 1313 (N14W23 L=108)   498    154        3 (1195/1268-1358/1374) -52.1 W18-W25 N09-N18
      5 1585 1336 (N06W42 L=128)   267     84        0 (1572/1287-1596/1370)  53.1 W39-W44 N04-N08
      6  461 1037 (N19E34 L= 52)   377    111        1 ( 415/1002- 511/1063) -39.8 E37-E30 N16-N21
      7 1804  981 (S20W49 L=135)  1169    232        2 (1749/ 868-1839/1062) -81.3 W45-W52 S26-S13
      8 1345  757 (S18W11 L= 97)   306    106        2 (1321/ 709-1380/ 788)  76.0 W08-W13 S20-S16
      9 1486  567 (S35W17 L=102)  1089    192        0 (1426/ 487-1517/ 670)  48.0 W10-W20 S39-S28
     10  923  464 (S24E22 L= 63)   930    267        3 ( 885/ 363- 967/ 558)  58.4 E25-E16 S32-S19
     11 1680  451 (S53W36 L=122)   440     92        1 (1659/ 431-1704/ 481) -40.6 W32-W40 S55-S49
     12 1570  374 (S55W23 L=109)  2181    324        4 (1420/ 318-1681/ 429)  -7.4 W06-W37 S58-S50
     13  628  361 (S24E46 L= 40)   779    143        0 ( 608/ 311- 656/ 422)  53.1 E49-E42 S27-S19
  

    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