Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  840 1783 (N60W20 L= 74)   327     55        0 ( 826/1751- 856/1810)  24.0 W15-W24 N57-N62
      2  623 1688 (N61E10 L= 44)  1693    242        2 ( 512/1638- 730/1738)  -6.1 E25-W03 N58-N64
      3  483 1620 (N60E30 L= 24)   343     41        1 ( 465/1598- 502/1647) -50.2 E32-E26 N57-N63
      4 1336 1589 (N28W39 L= 93)   288     77        0 (1297/1568-1366/1607) -53.1 W37-W40 N26-N30
      5  409 1562 (N58E40 L= 14)   427     71        0 ( 391/1524- 436/1593)  68.2 E42-E36 N54-N59
      6  734 1503 (N42E05 L= 49)   672    186        1 ( 688/1424- 794/1570) -77.0 E06-E02 N35-N48
      7 1123 1443 (N27W18 L= 73)   550    250        0 ( 999/1414-1222/1460) -33.7 W11-W23 N22-N31
      8  830 1268 (N25E05 L= 49)   968    267        6 ( 710/1224- 941/1322) -28.3 E12-W01 N20-N28
      9  825 1196 (N21E07 L= 47)   303     95        2 ( 784/1160- 852/1222) -63.4 E09-E04 N18-N22
     10  965 1183 (N17W01 L= 55)   249     63        1 ( 936/1153- 984/1216)  63.4 W00-W02 N14-N18
     11  641 1092 (N20E21 L= 33)   492    172        1 ( 572/1060- 726/1124) -33.7 E25-E16 N16-N22
     12 1672 1025 (S12W39 L= 93)   396    147        2 (1647/ 975-1702/1090)  35.5 W36-W43 S14-S09
     13 1807  913 (S23W49 L=103)  1424    322        0 (1700/ 833-1880/1042)  12.8 W38-W60 S27-S18
     14 1649  892 (S19W34 L= 88)   535     90        1 (1620/ 850-1685/ 932) -71.6 W31-W36 S22-S16
     15 1573  796 (S22W27 L= 81)   523    151        0 (1521/ 737-1618/ 856)  29.1 W22-W31 S24-S19
     16 1563  644 (S32W24 L= 78)   354    115        0 (1519/ 624-1614/ 675)   0.0 W20-W28 S32-S29
     17 1095  562 (S22E09 L= 45)   501    146        0 (1051/ 504-1143/ 617)  32.0 E12-E04 S24-S19
     18  946  369 (S30E26 L= 28)   349    112        0 ( 891/ 349- 983/ 397)   7.1 E30-E22 S31-S28
     19  892  181 (S44E45 L=  9)   431     57        1 ( 872/ 154- 913/ 206)  18.4 E50-E41 S46-S41
  

    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