Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  854 1856 (N63W23 L=360)  1873    246        3 ( 754/1777- 949/1932)   7.0 W06-W48 N58-N67
      2  994 1691 (N44W19 L=357)   783    136        0 ( 934/1648-1063/1725)  -4.8 W13-W25 N42-N45
      3 1233 1655 (N35W33 L= 10)  1272    291        0 (1115/1570-1354/1697) -54.5 W26-W38 N26-N40
      4 1552 1594 (N22W52 L= 29)   296     31        0 (1531/1571-1570/1614)  71.6 W50-W54 N20-N23
      5  706 1567 (N44E07 L=330)   278     53        1 ( 684/1540- 724/1593)  71.6 E08-E04 N42-N45
      6 1646 1432 (N11W51 L= 28)   580     97        0 (1617/1385-1676/1477) -90.0 W48-W52 N07-N13
      7 1384 1197 (N05W24 L=  2)   508     98        1 (1342/1149-1421/1239) -80.5 W22-W25 N01-N07
      8  421 1115 (N23E36 L=301)   310     80        2 ( 391/1082- 462/1136)  -9.5 E38-E32 N20-N23
      9  241 1037 (N22E53 L=284)  1161    191        3 ( 200/ 950- 285/1126) -70.0 E57-E48 N16-N27
     10 1744 1069 (S11W46 L= 23)   442     80        0 (1714/1029-1771/1105) -63.4 W44-W48 S14-S08
     11 1396  942 (S09W19 L=356)  1129    287        0 (1351/ 814-1426/1088)  54.5 W13-W23 S15-S01
     12  321 1028 (N19E45 L=292)   635    123        2 ( 293/ 970- 348/1080) -90.0 E48-E42 N15-N22
     13  183 1038 (N23E60 L=277)  1044     95        3 ( 143/ 996- 224/1076) -29.1 E65-E55 N19-N25
     14  591  981 (N11E26 L=311)   991    242        1 ( 496/ 920- 690/1063) -53.1 E31-E20 N05-N17
     15  224  823 (N10E59 L=278)   608     77        1 ( 196/ 785- 255/ 857)  45.0 E62-E55 N07-N11
     16  206  736 (N05E65 L=273)  3046    215       12 ( 127/ 674- 286/ 792) -25.2 E75-E53 N00-N08
     17 1829  642 (S41W55 L= 32)  1102    125        0 (1773/ 619-1888/ 664) -17.7 W46-W71 S45-S37
     18 1669  546 (S43W35 L= 12)  1260    274        0 (1560/ 467-1762/ 627)  13.4 W23-W45 S45-S39
     19 1046  497 (S27E12 L=325)   343     72        1 (1016/ 464-1077/ 529)  31.0 E15-E10 S28-S24
     20  637  214 (S36E60 L=277)   754     72        1 ( 604/ 186- 667/ 251)  13.2 E69-E52 S38-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