Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  707 1812 (N39E47 L=329)   918     82        1 ( 670/1791- 754/1840)  -4.8 E53-E41 N37-N41
      2  957 1748 (N38E22 L=354)  1439    179        3 ( 874/1675-1013/1789) -23.2 E30-E16 N33-N41
      3 1287 1678 (N41W04 L= 20)   306     55        0 (1251/1664-1322/1689)  26.6 W01-W07 N38-N42
      4  362 1461 (N09E54 L=322)   619    111        0 ( 324/1415- 403/1499)  56.3 E56-E51 N06-N12
      5  671 1439 (N12E30 L=347)   395     73        0 ( 644/1407- 704/1470) -31.0 E32-E26 N10-N13
      6  900 1411 (N14E15 L=  1)   343    102        1 ( 849/1381- 937/1428)  -9.5 E17-E11 N12-N15
      7 1754 1220 (N20W45 L= 62)   423     61        0 (1718/1197-1788/1237)   0.0 W42-W48 N19-N21
      8  191 1106 (S14E62 L=314)   780    149        1 ( 139/1051- 210/1158) -50.2 E70-E59 S16-S10
      9  407 1020 (S17E40 L=336)   238     48        1 ( 395/ 988- 422/1049) -76.0 E41-E38 S18-S14
     10  175  786 (S33E68 L=308)  1321    118        1 ( 148/ 727- 201/ 846)  26.6 E76-E61 S36-S29
     11 1124  688 (S24W13 L= 29)   892    215        1 (1099/ 583-1157/ 797) -69.0 W10-W16 S30-S17
     12 1471  612 (S21W38 L= 54)   383    109        0 (1434/ 576-1519/ 652)  63.4 W36-W40 S23-S17
     13 1572  519 (S24W50 L= 66)  1182    297        0 (1456/ 434-1688/ 602)  56.3 W45-W56 S31-S16
     14 1317  482 (S32W33 L= 49)   752    138        2 (1249/ 455-1372/ 515)  35.5 W28-W36 S34-S29
  

    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