Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  697 1640 (N46E28 L=168)   433     79        0 ( 663/1613- 737/1656)  15.9 E30-E23 N43-N47
      2 1365 1545 (N36W29 L=225)   454     62        1 (1330/1517-1403/1569)  -9.5 W25-W31 N34-N38
      3 1759 1514 (N31W70 L=266)   579     51        0 (1733/1499-1789/1529) -15.9 W64-W75 N29-N32
      4  366 1297 (N21E48 L=148)   484    113        0 ( 330/1245- 388/1325) -33.7 E51-E44 N18-N23
      5  241 1212 (N16E59 L=136)  1228    160        3 ( 221/1127- 264/1285) -63.4 E62-E56 N10-N20
      6 1596 1025 (N02W38 L=233)   249     58        0 (1565/1005-1617/1048)  14.0 W35-W39 N00-N03
      7  705  948 (N00E20 L=176)   313     77        1 ( 664/ 924- 738/ 978)  11.3 E22-E17 S01-N01
      8  851  836 (S07E11 L=185)   998    250        2 ( 762/ 752- 942/ 921) -47.7 E16-E05 S12-S01
      9 1476  858 (S08W29 L=224)   448    112        1 (1449/ 806-1501/ 899)  78.7 W26-W30 S10-S05
     10 1246  843 (S08W13 L=209)   199     48        1 (1220/ 826-1269/ 871)  45.0 W11-W14 S08-S06
     11 1319  760 (S13W18 L=214)   484    168        1 (1256/ 716-1355/ 820)  39.8 W14-W20 S15-S09
     12  548  772 (S11E32 L=164)   231     69        0 ( 512/ 761- 585/ 786) -11.3 E34-E29 S11-S09
     13  556  658 (S18E33 L=163)  1921    501        7 ( 402/ 525- 691/ 773) -45.0 E44-E24 S27-S10
     14  510  662 (S18E36 L=159)   379    109        2 ( 462/ 645- 550/ 692)  14.0 E40-E32 S19-S16
     15  892  591 (S23E10 L=186)  1170    254        1 ( 815/ 486- 986/ 677)  45.0 E16-E03 S30-S17
     16 1498  532 (S30W34 L=230)  1778    305        2 (1428/ 430-1610/ 644)  53.7 W29-W41 S37-S22
     17 1457  585 (S26W29 L=225)   507    140        0 (1395/ 543-1506/ 622)  35.5 W25-W32 S28-S23
     18  550  563 (S25E35 L=160)   265     27        0 ( 533/ 544- 571/ 586) -63.4 E36-E33 S26-S23
     19  841  384 (S39E17 L=179)  1233    269        3 ( 723/ 350- 950/ 413)  -3.2 E25-E07 S41-S36
     20 1210  323 (S45W14 L=210)  1338    130        3 (1153/ 285-1265/ 358) -20.0 W08-W19 S48-S41
     21 1099  176 (S61W05 L=201)   528     45        1 (1081/ 153-1129/ 198)  45.0 W02-W08 S65-S58
  

    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