Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  393 1496 (N33E53 L=195)   597    113        1 ( 374/1445- 414/1541) -74.1 E56-E49 N29-N36
      2  825 1455 (N31E14 L=234)   465    143        0 ( 770/1426- 907/1489) -20.0 E18-E07 N29-N33
      3 1461 1367 (N24W31 L=279)   500    168        0 (1395/1304-1506/1414) -45.0 W26-W33 N20-N27
      4  306 1189 (N13E52 L=196)   937    149        1 ( 277/1123- 330/1258) -83.7 E54-E49 N08-N17
      5 1636 1033 (N03W41 L=288)   679    181        3 (1611/ 954-1662/1108) -71.6 W39-W42 S02-N07
      6  164  897 (S06E68 L=180)  1163    147        2 ( 136/ 830- 192/ 969) -53.1 E72-E64 S09-S01
      7  364  896 (S05E45 L=203)   353     85        1 ( 341/ 861- 386/ 937)  59.0 E47-E43 S07-S02
      8  516  755 (S13E34 L=214)   646    162        3 ( 446/ 717- 566/ 817)  31.0 E40-E30 S15-S09
      9  255  647 (S22E63 L=185)  1811    195        3 ( 225/ 559- 302/ 729)  37.4 E71-E53 S28-S15
     10  843  691 (S17E12 L=236)   313    132        1 ( 774/ 679- 898/ 706)   7.1 E16-E08 S17-S16
     11  617  580 (S25E29 L=219)   973    200        0 ( 572/ 495- 685/ 636)  42.3 E34-E23 S30-S20
     12 1693  562 (S28W53 L=301)  1898    267        3 (1575/ 484-1765/ 626)  22.4 W43-W61 S33-S23
     13  556  372 (S41E42 L=205)  1764    190        3 ( 482/ 334- 648/ 421)  12.8 E53-E31 S44-S36
  

    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