Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1490 1363 (N12W38 L=282)  2035    578        6 (1340/1282-1718/1396) -17.2 W26-W55 N04-N17
      2  174 1087 (N29E60 L=185)  1161    135        1 ( 155/1025- 200/1153) -90.0 E62-E56 N25-N33
      3  790 1056 (N15E12 L=232)  1985    415       11 ( 590/1021- 986/1114) -20.6 E25-E01 N09-N20
      4 1908 1065 (S18W63 L=308)   805    232        0 (1872/1039-1950/1084)  -9.5 W57-W69 S20-S17
      5 1120  964 (N01W04 L=249)   197     32        1 (1103/ 940-1142/ 988) -63.4 W02-W04 N00-N02
      6 1816  903 (S24W49 L=294)   731    136        2 (1784/ 828-1834/ 972)  45.0 W44-W51 S27-S20
      7 1428  870 (S13W19 L=264)   427    146        1 (1400/ 799-1465/ 948)  53.1 W15-W22 S16-S08
      8  162  804 (N12E69 L=176)  1473    207        3 ( 120/ 749- 185/ 856)  71.6 E74-E65 N09-N15
      9  457  687 (N01E44 L=201)   718    115        2 ( 415/ 638- 492/ 730) -71.6 E46-E41 S02-N04
     10 1783  706 (S36W44 L=289)   522    153        1 (1737/ 688-1828/ 719) -21.8 W39-W49 S37-S33
     11 1428  624 (S28W13 L=258)   333     63        0 (1401/ 591-1457/ 661)  26.6 W10-W16 S29-S25
     12  839  452 (S22E28 L=217)  1930    355        3 ( 739/ 303- 912/ 575)  79.7 E33-E25 S33-S11
     13  308  494 (S08E68 L=177)   679     76        0 ( 275/ 468- 335/ 521) -38.7 E71-E65 S10-S06
     14  688  364 (S24E42 L=203)   709    228        2 ( 660/ 288- 719/ 440)  45.0 E46-E36 S29-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