Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1333 1731 (N46W12 L=358)   643    138        2 (1287/1703-1389/1753)  29.1 W08-W17 N43-N49
      2  406 1568 (N20E52 L=294)  1430    263        2 ( 363/1472- 444/1625) -42.3 E59-E47 N14-N24
      3  519 1549 (N20E42 L=304)   558     71        2 ( 496/1512- 546/1585) -68.2 E44-E39 N17-N22
      4 1749 1501 (N37W49 L= 34)   432    101        0 (1722/1475-1775/1522)  39.8 W45-W52 N34-N39
      5  942 1452 (N18E11 L=335)   252     80        0 ( 910/1420- 970/1486) -38.7 E13-E08 N16-N20
      6  321 1420 (N10E55 L=291)   377     85        0 ( 301/1375- 345/1464)  71.6 E55-E53 N07-N13
      7  923 1354 (N12E11 L=335)   228    110        0 ( 906/1297- 941/1403) -56.3 E12-E08 N08-N15
      8  821 1332 (N09E16 L=330)   198     63        1 ( 790/1306- 852/1356) -14.0 E18-E14 N08-N10
      9  212 1099 (S10E58 L=288)   355     90        1 ( 192/1068- 235/1128) -31.0 E60-E55 S11-S07
     10  686 1084 (S07E21 L=325)   296     60        0 ( 652/1056- 718/1109)  45.0 E22-E19 S08-S05
     11  369  882 (S22E42 L=304)   960    246        4 ( 297/ 837- 463/ 939)  26.6 E48-E34 S24-S17
     12 1105  874 (S14W07 L=353)   313     97        0 (1058/ 839-1168/ 907)  45.0 W04-W10 S16-S10
     13 1673  802 (S09W46 L= 32)   387     81        0 (1651/ 758-1700/ 848)  80.5 W44-W46 S11-S05
     14 1714  636 (S17W55 L= 41)   917    165        1 (1658/ 541-1762/ 702)  79.7 W52-W58 S23-S12
     15  787  649 (S32E10 L=335)   495     76        2 ( 755/ 613- 826/ 688) -53.1 E12-E07 S34-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