Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  673 1794 (N39E55 L=120)   499     43        1 ( 645/1777- 704/1806)   9.5 E59-E51 N37-N40
      2  853 1718 (N38E33 L=142)   421     78        0 ( 823/1692- 884/1750) -18.4 E37-E28 N36-N39
      3  905 1576 (N29E22 L=153)   728    187        2 ( 807/1536- 972/1616)  45.0 E26-E18 N24-N33
      4 1648 1286 (N28W37 L=212)  2823    794        2 (1426/ 986-1789/1567) -39.0 W16-W53 N12-N42
      5  583 1441 (N13E38 L=137)   579    123        1 ( 542/1397- 632/1488)  74.1 E39-E35 N10-N17
      6 1313 1359 (N24W11 L=186)   499    233        0 (1224/1326-1387/1434)   0.0 W03-W15 N22-N27
      7 1206 1318 (N19W05 L=180)   517    269        1 (1110/1225-1283/1410) -28.3 E03-W10 N15-N22
      8  577 1339 (N07E35 L=140)   268     69        0 ( 543/1315- 607/1354) -11.3 E37-E32 N06-N08
      9 1353 1299 (N21W14 L=189)   220     40        1 (1331/1280-1375/1320)   0.0 W12-W16 N20-N23
     10  259 1229 (S05E58 L=117)   433     37        0 ( 242/1205- 275/1259) -71.6 E59-E56 S06-S03
     11  743 1110 (S03E18 L=157)   228     52        1 ( 719/1088- 762/1138)  71.6 E19-E16 S04-S01
     12  484 1031 (S13E34 L=141)  1027    242        2 ( 380/ 937- 570/1074)  23.2 E42-E28 S18-S09
     13  249  850 (S29E55 L=120)   713    212        0 ( 211/ 786- 284/ 922)  55.0 E60-E50 S33-S23
     14  983  877 (S11W01 L=176)   410    127        0 ( 919/ 862-1041/ 892)  18.4 E03-W03 S12-S09
     15  707  808 (S21E15 L=160)   308     93        0 ( 666/ 782- 745/ 845)  51.3 E17-E13 S23-S18
     16 1696  703 (S06W53 L=228)   934    239        4 (1630/ 630-1758/ 752) -11.3 W46-W61 S09-S02
     17 1522  674 (S11W40 L=215)   376     61        2 (1490/ 645-1551/ 701) -21.8 W37-W42 S12-S10
     18 1583  547 (S17W51 L=226)  3458    517        9 (1408/ 358-1689/ 685) -65.6 W37-W60 S30-S08
     19 1087  609 (S25W14 L=189)   278     82        1 (1042/ 586-1124/ 630)  45.0 W11-W15 S27-S23
     20  437  541 (S46E37 L=138)   779     97        1 ( 394/ 506- 481/ 577)  26.6 E43-E31 S50-S43
  

    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