Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1617 1555 (N28W54 L=102)   365    101        0 (1583/1537-1663/1578) -38.7 W52-W58 N25-N30
      2 1731 1413 (N17W58 L=106)  1091    233        1 (1676/1323-1766/1490)  79.7 W52-W61 N11-N22
      3  760 1380 (N32E13 L= 35)   281    103        1 ( 713/1367- 811/1396) -15.9 E16-E09 N30-N32
      4  422 1292 (N30E40 L=  8)  1933    388        5 ( 285/1231- 570/1341)   4.8 E52-E27 N26-N32
      5 1371 1264 (N15W26 L= 73)   259     88        0 (1341/1216-1389/1308) -80.5 W24-W26 N12-N18
      6  180 1225 (N26E63 L=345)   681    144        3 ( 153/1187- 206/1252) -31.0 E66-E59 N24-N28
      7  893 1154 (N16E06 L= 41)   745    233        2 ( 781/1096- 979/1239) -42.3 E12-E01 N11-N22
      8  172 1064 (N17E64 L=343)   490    100        1 ( 149/1034- 186/1088) -90.0 E67-E62 N14-N18
      9  345  644 (S10E54 L=354)  3213    622        7 ( 276/ 476- 387/ 810)  49.2 E70-E47 S22-N00
     10  557  725 (S06E34 L= 14)   779    183        4 ( 487/ 688- 636/ 760) -29.1 E39-E29 S09-S04
     11 1453  662 (S23W23 L= 71)   326     62        1 (1416/ 628-1482/ 693)  21.8 W20-W25 S24-S20
     12  498  627 (S12E41 L=  7)   562    114        2 ( 479/ 570- 525/ 683)  76.0 E42-E38 S16-S08
     13  464  368 (S30E55 L=352)  1745    365        3 ( 395/ 336- 540/ 422)  11.9 E64-E45 S33-S26
  

    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