Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1368 1642 (N43W33 L=215)   606    155        0 (1302/1618-1428/1672) -24.0 W28-W38 N41-N46
      2 1652 1499 (N31W54 L=235)   495     97        0 (1614/1478-1697/1521) -14.0 W50-W58 N28-N32
      3 1207 1487 (N33W15 L=197)   329     56        0 (1172/1461-1235/1511) -31.0 W12-W17 N31-N34
      4  226 1311 (N22E65 L=117)   521    101        0 ( 201/1270- 264/1335)  59.0 E68-E60 N19-N24
      5  516 1300 (N22E35 L=147)   501    130        0 ( 465/1268- 559/1322)   8.1 E38-E31 N20-N23
      6 1229 1244 (N17W14 L=195)   282    126        0 (1186/1202-1264/1299) -56.3 W11-W15 N14-N20
      7  370 1210 (N16E46 L=136)   395     65        2 ( 348/1174- 393/1241) -63.4 E47-E43 N14-N18
      8  853 1056 (N07E10 L=171)   219     85        0 ( 814/1042- 902/1066)   0.0 E12-E07 N05-N07
      9 1067  869 (S06W02 L=184)   693    203        1 ( 986/ 809-1135/ 934) -45.0 E02-W06 S09-S01
     10 1489  872 (S07W29 L=211)   238     75        0 (1474/ 848-1513/ 911)  90.0 W28-W31 S08-S04
     11 1591  798 (S12W37 L=219)   330     33        0 (1576/ 769-1606/ 826)  90.0 W36-W38 S14-S10
     12 1538  772 (S14W33 L=215)   492    104        1 (1510/ 731-1559/ 824)  71.6 W31-W34 S16-S10
     13  242  746 (S13E61 L=121)  1019    184        1 ( 224/ 655- 272/ 817)  55.0 E65-E55 S18-S08
     14 1734  717 (S19W51 L=233)   482    118        1 (1699/ 677-1767/ 752)  59.0 W48-W55 S21-S16
     15  717  691 (S16E21 L=160)  1287    289        3 ( 590/ 638- 829/ 742)  -7.1 E29-E13 S19-S12
     16 1094  574 (S25W03 L=185)  1354    369        1 ( 964/ 435-1199/ 676)  46.8 E06-W10 S34-S18
     17 1530  603 (S25W35 L=216)   514    168        1 (1483/ 542-1581/ 667)  60.9 W31-W38 S29-S20
     18  823  583 (S23E15 L=166)   493    113        4 ( 780/ 535- 861/ 624)  45.0 E18-E12 S26-S20
     19  989  228 (S54E08 L=174)   437     33        1 ( 970/ 205-1008/ 255) -80.5 E09-E06 S56-S50
     20 1085  207 (S57W02 L=183)   550     52        0 (1064/ 186-1112/ 232) -45.0 W00-W05 S59-S53
     21 1208  189 (S61W18 L=199)   714     71        0 (1183/ 161-1226/ 224) -48.4 W14-W22 S64-S55
  

    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