Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1554 1657 (N24W58 L=198)   689     77        0 (1510/1636-1599/1675) -33.7 W54-W60 N22-N26
      2 1499 1624 (N24W50 L=191)   524     86        1 (1458/1594-1548/1646) -51.3 W47-W52 N21-N26
      3 1483 1531 (N20W44 L=184)   822    200        2 (1383/1502-1562/1575) -12.1 W35-W50 N17-N22
      4 1326 1398 (N17W28 L=168)   691    186        2 (1304/1306-1343/1491)  55.0 W24-W32 N11-N21
      5 1782 1084 (S13W50 L=190)  5927    807       10 (1699/ 790-1865/1370)  80.3 W40-W60 S30-N05
      6 1864 1246 (S06W64 L=204)  5280    288       10 (1809/1103-1932/1356) -90.0 W58-W72 S15-N00
      7  785 1323 (N27E06 L=134)   441    103        0 ( 738/1285- 829/1350)   8.1 E10-E03 N25-N28
      8 1664 1122 (S07W41 L=181)   839    225        0 (1630/1029-1701/1212)  38.7 W36-W46 S11-S02
      9  216 1040 (N23E56 L= 85)  2441    411        4 (  92/ 857- 305/1166) -37.6 E78-E48 N11-N32
     10  364 1068 (N22E41 L=100)   935    214        0 ( 329/ 996- 431/1162) -70.0 E43-E36 N16-N27
     11 1862 1087 (S15W58 L=199)   605     81        2 (1823/1062-1895/1109) -20.6 W54-W62 S16-S12
     12 1245  997 (S03W11 L=152)  1096    279        1 (1168/ 859-1292/1077) -90.0 W08-W13 S10-N03
     13 1865 1015 (S19W57 L=198)   527     56        2 (1850/ 981-1888/1045)  26.6 W54-W60 S21-S17
     14 1689 1004 (S14W40 L=180)   400     74        2 (1662/ 963-1715/1033) -90.0 W37-W42 S16-S12
     15 1662  900 (S19W36 L=176)   245     76        2 (1646/ 861-1682/ 930)  53.1 W34-W37 S21-S17
     16 1085  672 (S17E05 L=135)  1810    487        1 ( 925/ 554-1255/ 838)  17.1 E18-W08 S20-S11
     17  314  723 (N03E53 L= 87)   463     81        2 ( 291/ 688- 344/ 762) -68.2 E55-E51 N00-N05
     18 1395  658 (S26W13 L=153)  1269    316        2 (1256/ 593-1523/ 741)   2.9 W02-W22 S27-S24
     19  627  624 (S09E33 L=107)   291     47        1 ( 607/ 595- 650/ 654) -90.0 E34-E32 S10-S06
     20  456  592 (S07E47 L= 94)   749    157        3 ( 398/ 555- 531/ 637) -45.0 E50-E42 S10-S03
     21  299  566 (S05E62 L= 78)  1399    133        1 ( 248/ 505- 336/ 609) -66.8 E66-E58 S09-S02
     22  649  485 (S17E38 L=103)   294     48        0 ( 615/ 471- 679/ 502)  -9.5 E40-E34 S18-S16
  

    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