Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1570 1554 (N29W53 L= 65)   516    107        0 (1530/1520-1612/1574) -38.7 W48-W55 N26-N30
      2 1643 1401 (N19W51 L= 63)   888    268        1 (1579/1315-1714/1474) -71.6 W46-W53 N12-N24
      3  452 1297 (N29E38 L=334)  1649    365        5 ( 413/1145- 527/1458) -62.4 E43-E31 N19-N40
      4 1183 1406 (N27W16 L= 29)   251    109        0 (1168/1351-1216/1450) -81.9 W15-W17 N23-N30
      5  766 1305 (N27E13 L=359)   233    112        2 ( 742/1256- 801/1353) -63.4 E15-E11 N23-N29
      6  401 1056 (N15E42 L=330)   287     41        1 ( 383/1034- 426/1076) -14.0 E43-E39 N13-N15
      7 1558  989 (S04W34 L= 46)   362    123        1 (1536/ 929-1585/1036)  63.4 W31-W36 S07-S01
      8 1760  864 (S16W50 L= 62)   691     88        1 (1728/ 831-1797/ 904)  38.7 W46-W53 S17-S13
      9  191  765 (S03E69 L=303)   743    119        2 ( 162/ 704- 219/ 808)  30.3 E78-E63 S07-N00
     10  664  559 (S19E31 L=342)   338     98        1 ( 632/ 539- 715/ 583) -21.8 E32-E27 S20-S16
     11 1009  497 (S27E09 L=  4)   387    144        0 ( 940/ 482-1074/ 519)   0.0 E13-E03 S28-S26
     12  641  455 (S26E36 L=336)   309     63        1 ( 614/ 433- 674/ 478) -26.6 E37-E33 S27-S23
     13  622  391 (S30E41 L=331)   344     78        0 ( 604/ 356- 645/ 426)  71.6 E42-E39 S33-S27
  

    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