Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1756 (N37W50 L=271)   348     75        0 (1348/1722-1411/1780) -90.0 W49-W52 N34-N39
      2  786 1664 (N48W00 L=220)   295     47        1 ( 756/1642- 807/1681) -56.3 E02-W02 N45-N49
      3 1592 1643 (N25W59 L=279)   973    137        5 (1537/1617-1658/1668) -20.0 W53-W67 N22-N26
      4  591 1625 (N51E18 L=202)   412     63        0 ( 558/1600- 618/1656)  31.0 E21-E15 N49-N52
      5 1243 1601 (N31W30 L=250)  2071    395        9 (1054/1555-1424/1637) -24.6 W16-W40 N24-N35
      6 1618 1590 (N21W57 L=277)   486     60        2 (1586/1562-1650/1611) -31.0 W53-W60 N19-N22
      7 1637 1528 (N17W54 L=275)  1456    267        4 (1512/1465-1734/1588) -10.3 W45-W68 N13-N20
      8 1654 1341 (N06W47 L=267)  1060    269        1 (1527/1301-1724/1401) -39.8 W39-W52 N02-N12
      9  596 1166 (N20E23 L=197)  1343    386        7 ( 407/1109- 749/1230) -27.6 E36-E13 N13-N27
     10  129 1103 (N25E68 L=152)   737     82        1 (  99/1069- 162/1131) -26.6 E74-E62 N22-N27
     11  318  948 (N13E47 L=173)   378     91        2 ( 290/ 918- 352/ 993) -68.2 E49-E43 N10-N15
     12 1429  933 (S11W21 L=241)   408    151        3 (1357/ 908-1487/ 961) -14.0 W16-W24 S13-S09
     13 1405  827 (S16W18 L=238)   255    122        1 (1370/ 805-1447/ 847) -11.3 W15-W20 S18-S15
     14  874  701 (S12E16 L=204)   539    181        0 ( 845/ 645- 914/ 765)  74.1 E17-E11 S15-S08
     15 1876  740 (S35W61 L=281)  1091    122        0 (1818/ 713-1935/ 758)  -4.8 W52-W76 S36-S33
     16 1481  631 (S30W20 L=240)   796    189        0 (1392/ 579-1539/ 704)  14.0 W13-W25 S32-S26
     17  848  438 (S27E26 L=194)  1849    493        2 ( 670/ 358-1049/ 585)  10.6 E41-E09 S29-S22
     18  402  401 (S21E63 L=157)   986     87        7 ( 384/ 352- 423/ 449)  33.7 E70-E58 S23-S17
     19 1226  340 (S44E05 L=216)  1774    386        3 (1054/ 287-1368/ 440)   6.3 E19-W08 S47-S40
  

    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