Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1550 1655 (N24W57 L=198)   683     94        0 (1504/1628-1594/1677) -38.7 W53-W60 N21-N26
      2 1494 1623 (N24W50 L=191)   487     85        0 (1454/1593-1540/1645) -59.0 W47-W52 N21-N26
      3 1476 1528 (N20W43 L=184)   854    202        0 (1380/1498-1555/1568)  -8.1 W35-W50 N17-N22
      4 1320 1392 (N17W27 L=168)   684    187        0 (1298/1301-1340/1484)  55.0 W24-W31 N11-N21
      5  780 1324 (N27E07 L=134)   527    114        1 ( 731/1282- 825/1369)  26.6 E10-E03 N25-N29
      6 1780 1118 (S11W50 L=191)  6087    629       15 (1695/ 877-1893/1366)  73.5 W40-W62 S23-N04
      7 1860 1233 (S07W63 L=204)  4062    276       11 (1810/1105-1929/1356) -86.2 W57-W71 S15-N00
      8  877 1180 (N16E04 L=137)   231     44        2 ( 849/1156- 901/1201)   0.0 E06-E02 N15-N17
      9  206 1054 (N24E57 L= 84)  2119    392        1 (  89/ 896- 300/1167) -33.7 E79-E48 N13-N32
     10  357 1067 (N22E42 L=100)   952    216        0 ( 323/1000- 419/1163) -70.0 E44-E37 N16-N27
     11 1148  804 (S11W01 L=143)  2821    796        4 ( 919/ 552-1300/1073)  32.3 E18-W13 S19-N03
     12 1827  916 (S24W51 L=192)  1293    282        2 (1784/ 790-1882/1039)  40.2 W45-W59 S30-S17
     13 1681 1002 (S14W39 L=180)   360     63        2 (1656/ 964-1704/1029) -76.0 W37-W41 S16-S12
     14 1646  890 (S19W34 L=176)   409    125        2 (1606/ 857-1677/ 929)   9.5 W31-W37 S21-S17
     15 1385  656 (S26W12 L=153)  1710    512        2 (1173/ 552-1586/ 767)   1.9 E03-W27 S27-S23
     16  306  725 (N04E54 L= 87)   490     96        2 ( 282/ 686- 339/ 766) -68.2 E55-E52 N01-N06
     17  619  622 (S09E34 L=107)   312     48        0 ( 597/ 595- 642/ 651) -90.0 E35-E32 S10-S06
     18  453  591 (S07E47 L= 94)   727    160        3 ( 393/ 546- 530/ 634) -45.0 E50-E42 S10-S03
     19  298  563 (S06E63 L= 79)  1319    124        3 ( 252/ 504- 342/ 606) -74.1 E66-E57 S09-S02
     20  639  482 (S17E38 L=103)   241     49        0 ( 607/ 468- 666/ 497) -26.6 E40-E36 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