Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1372 1699 (N45W42 L=223)   934    154        1 (1305/1656-1451/1727)  -3.4 W35-W52 N42-N46
      2 1144 1452 (N31W13 L=194)   961    176        2 (1069/1403-1220/1503) -41.2 W08-W17 N27-N34
      3 1730 1424 (N20W59 L=240)   495     59        0 (1698/1406-1763/1440) -18.4 W56-W63 N19-N21
      4  298 1351 (N31E56 L=125)  1651    230        4 ( 196/1315- 394/1386)   0.0 E71-E44 N28-N33
      5 1746 1306 (N13W56 L=236)   668    145        1 (1686/1272-1810/1334) -24.4 W50-W62 N10-N15
      6  191 1197 (N21E65 L=116)  1862    191        4 ( 162/1113- 228/1291) -37.6 E74-E58 N16-N26
      7  106 1048 (N12E79 L=102)  1032     50        1 (  91/1023- 122/1074) -36.9 E84-E74 N10-N13
      8  514  953 (N05E33 L=147)   490    105        2 ( 486/ 904- 543/1004) -80.5 E35-E31 N02-N08
      9  962  930 (N01E05 L=176)   242    122        0 ( 945/ 885- 989/ 994)  63.4 E06-E02 S02-N04
     10 1651  821 (S14W40 L=221)   344     66        0 (1621/ 790-1678/ 855)  31.0 W37-W42 S16-S12
     11  503  698 (S10E38 L=143)   469    136        2 ( 470/ 630- 540/ 754) -82.9 E39-E35 S14-S06
     12 1810  659 (S28W60 L=241)   712     93        1 (1786/ 613-1827/ 710)  71.6 W57-W62 S31-S24
     13 1458  586 (S27W25 L=206)   239     71        0 (1443/ 550-1470/ 627)  90.0 W24-W26 S29-S24
     14  391  589 (S17E51 L=130)   771    105        1 ( 355/ 548- 426/ 625) -68.2 E53-E47 S19-S14
     15  510  557 (S19E41 L=140)   618    108        1 ( 467/ 519- 552/ 609) -60.3 E43-E38 S22-S15
     16  873  543 (S23E15 L=165)   593    141        1 ( 817/ 498- 913/ 597)  26.6 E19-E11 S26-S19
     17 1066  419 (S34E04 L=177)  3235    547        7 ( 889/ 340-1210/ 586)  20.0 E15-W07 S40-S23
     18  477  440 (S28E50 L=131)   701     90        2 ( 440/ 411- 524/ 478) -38.7 E53-E45 S30-S24
     19 1530  325 (S51W41 L=222)  1089    106        2 (1484/ 304-1589/ 345)  -3.8 W33-W50 S53-S47
     20 1432  306 (S51W29 L=209)   423     38        1 (1416/ 282-1454/ 329)  90.0 W26-W31 S52-S48
     21 1365  277 (S52W22 L=203)   453     29        0 (1344/ 255-1386/ 297)  76.0 W20-W24 S54-S49
     22 1235  229 (S55W09 L=189)  1538    169        2 (1162/ 204-1317/ 257)   0.0 W00-W17 S57-S51
  

    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