Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  538 1488 (N47E25 L=163)   445    146        0 ( 474/1456- 600/1518)   4.4 E31-E18 N45-N47
      2 1478 1414 (N17W39 L=227)   358     95        1 (1428/1387-1524/1435) -26.6 W35-W42 N15-N19
      3 1745 1233 (S00W52 L=240)  2335    407        2 (1645/1033-1829/1327)  26.6 W38-W61 S08-N04
      4  531 1219 (N29E28 L=161)   585    184        1 ( 445/1181- 611/1250)   0.0 E34-E21 N27-N30
      5 1917 1061 (S16W67 L=255)  2977    204        3 (1872/ 969-1956/1145)  15.3 W58-W80 S19-S11
      6  742 1049 (N15E16 L=172)   752    392        3 ( 588/1010- 895/1094)  -2.7 E26-E05 N12-N17
      7  232 1049 (N24E57 L=131)   844    118        2 ( 180/1018- 290/1088)  -8.7 E63-E50 N21-N26
      8  168  907 (N16E67 L=122)  3396    330       12 (  98/ 782- 220/ 992) -58.4 E80-E59 N08-N21
      9 1500  859 (S14W24 L=212)   472    117        2 (1453/ 825-1539/ 889) -38.7 W21-W26 S15-S11
     10  746  866 (N04E20 L=169)   271     94        0 ( 700/ 852- 797/ 880)  -9.5 E22-E16 N03-N05
     11 1309  771 (S14W11 L=199)   209     55        1 (1284/ 753-1338/ 790)  14.0 W08-W12 S14-S12
     12 1315  666 (S21W09 L=197)   614    242        0 (1241/ 585-1382/ 768)  30.3 W02-W14 S23-S15
     13  898  726 (S07E14 L=174)   201    100        1 ( 867/ 691- 941/ 759) -53.1 E15-E12 S09-S04
     14  971  727 (S08E10 L=178)   340     92        2 ( 934/ 689-1000/ 750) -63.4 E11-E07 S10-S06
     15  867  615 (S13E19 L=169)   824    211        5 ( 813/ 564- 951/ 672) -49.4 E21-E14 S16-S08
     16  878  553 (S17E20 L=168)  1334    455        3 ( 705/ 490-1041/ 650)   4.8 E32-E08 S20-S13
     17  386  445 (S15E62 L=126)  3603    296        4 ( 317/ 302- 447/ 578)  52.7 E76-E56 S26-S05
     18  668  432 (S20E38 L=150)   361     63        1 ( 644/ 404- 699/ 457)  76.0 E40-E35 S22-S18
     19 1010  397 (S31E18 L=170)   717    232        0 ( 927/ 317-1090/ 453)  20.6 E26-E10 S34-S27
     20  664  314 (S29E46 L=142)   611    106        1 ( 639/ 266- 686/ 360)  32.5 E52-E41 S32-S25
     21  606  321 (S27E50 L=138)   758     96        3 ( 583/ 279- 635/ 358)  71.6 E54-E46 S30-S24
     22  703  240 (S35E50 L=138)   405     38        0 ( 684/ 219- 718/ 266)  29.7 E53-E46 S37-S33
  

    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