Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  557 1587 (N14E46 L= 57)   300     59        0 ( 543/1559- 569/1621) -63.4 E47-E44 N11-N15
      2  901 1525 (N18E22 L= 82)   776    211        0 ( 875/1432- 923/1617) -63.4 E24-E17 N12-N24
      3  310 1575 (N08E70 L= 34)   807    139        2 ( 290/1537- 343/1599)  78.7 E74-E66 N05-N10
      4 1276 1516 (N29W00 L=104)   581    102        1 (1244/1457-1301/1562) -45.0 E02-W03 N25-N31
      5 1090 1388 (N15E07 L= 97)   563    175        0 (1063/1312-1107/1470) -56.3 E10-E04 N10-N19
      6  506 1365 (S01E40 L= 63)   369     93        1 ( 477/1336- 542/1400)  -9.5 E43-E37 S01-N01
      7  876 1108 (S06E10 L= 93)   581    131        0 ( 836/1049- 903/1181) -83.7 E12-E08 S10-S01
      8 1617 1139 (N17W32 L=135)   260     72        0 (1597/1099-1642/1170)  78.7 W30-W32 N14-N19
      9  303  927 (S30E45 L= 58)  3371    613        5 ( 148/ 773- 419/1111)  50.0 E61-E38 S42-S17
     10 1631  976 (N09W37 L=140)   248     62        1 (1600/ 955-1663/ 994)  21.8 W34-W39 N06-N09
     11 1853  944 (N15W57 L=160)   458     58        1 (1831/ 915-1870/ 973)  90.0 W54-W58 N12-N16
     12  625  784 (S31E18 L= 86)   972    267        2 ( 553/ 680- 700/ 892)  72.6 E21-E15 S38-S22
     13 1711  836 (N04W48 L=151)  1006    308        2 (1584/ 793-1800/ 891)  33.7 W38-W53 S01-N09
     14  954  795 (S21W03 L=106)   644    192        0 ( 861/ 740-1036/ 854)  61.4 E01-W05 S26-S15
     15 1176  724 (S19W17 L=121)   484    116        0 (1115/ 689-1243/ 754)  54.5 W14-W20 S22-S15
     16 1678  716 (S03W50 L=153)   316     43        0 (1655/ 693-1705/ 736)  53.1 W47-W51 S05-S01
     17  960  618 (S31W09 L=112)   218     73        0 ( 925/ 606-1007/ 628)  38.7 W06-W11 S32-S28
     18 1548  566 (S15W47 L=150)   365     80        0 (1512/ 545-1582/ 589)  36.9 W44-W48 S16-S13
     19  467  522 (S53E28 L= 75)   396     71        1 ( 444/ 499- 500/ 543)  29.7 E31-E24 S55-S51
     20 1722  498 (S12W66 L=170)   510    130        2 (1701/ 474-1750/ 525)  90.0 W63-W70 S14-S10
     21 1287  444 (S30W36 L=140)  1348    232        2 (1178/ 406-1398/ 483)  42.3 W30-W42 S34-S24
  

    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