Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  629 1759 (N32E49 L=286)  1624    262        2 ( 566/1685- 673/1810) -32.7 E55-E40 N27-N36
      2  507 1715 (N27E57 L=278)   530     95        2 ( 483/1672- 545/1746) -74.1 E59-E54 N23-N30
      3  559 1680 (N25E49 L=286)  1124    169        2 ( 509/1624- 613/1718)  69.4 E52-E44 N20-N28
      4 1406 1620 (N39W13 L=348)   296     63        0 (1373/1602-1439/1637)   0.0 W10-W16 N38-N40
      5  578 1459 (N11E37 L=298)  1781    304        1 ( 502/1352- 677/1595)  80.5 E39-E34 N03-N21
      6  742 1454 (N13E26 L=309)   472    112        1 ( 718/1405- 772/1497) -80.5 E27-E24 N10-N16
      7 1571 1402 (N28W28 L=  3)   339    134        0 (1539/1346-1632/1447) -26.6 W25-W33 N25-N30
      8  942 1337 (N10E11 L=324)   490    143        1 ( 896/1276- 990/1408)  90.0 E12-E08 N05-N14
      9 1845 1222 (N24W55 L= 29)   598     74        0 (1823/1183-1864/1261) -53.1 W52-W57 N22-N26
     10 1555 1194 (N14W29 L=  3)   492    147        0 (1509/1123-1579/1243) -50.2 W25-W31 N10-N16
     11 1383 1194 (N10W18 L=352)   254     63        0 (1369/1159-1398/1232) -63.4 W16-W19 N08-N12
     12  237 1138 (S12E57 L=277)   357     51        0 ( 208/1121- 275/1149)   8.1 E60-E53 S13-S11
     13 1750 1072 (N12W46 L= 20)   270     99        2 (1712/1031-1773/1119) -38.7 W42-W48 N09-N14
     14  197 1058 (S17E61 L=274)   796    106        2 ( 177/1021- 222/1113) -59.0 E63-E57 S19-S14
     15 1611 1039 (N07W35 L= 10)   320     99        1 (1570/1008-1659/1077)   0.0 W32-W39 N05-N08
     16 1799  958 (N07W53 L= 27)   936    235        1 (1768/ 855-1843/1055) -42.0 W48-W60 N02-N12
     17  618  824 (S26E22 L=312)  1136    394        1 ( 495/ 683- 698/ 988)  63.4 E30-E18 S36-S14
     18 1018  899 (S14W02 L=336)   201     93        0 ( 968/ 880-1054/ 915)  33.7 W00-W04 S15-S12
     19 1797  653 (S09W64 L= 39)  1199    148        2 (1745/ 612-1834/ 694)  80.5 W57-W69 S12-S06
     20 1598  500 (S23W54 L= 28)  1599    258        2 (1536/ 396-1650/ 629) -65.0 W49-W58 S30-S15
  

    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