Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  628 1622 (N35E31 L=262)  2020    379        4 ( 503/1476- 760/1715) -31.0 E48-E18 N24-N42
      2 1172 1465 (N24W09 L=302)   218     94        0 (1135/1435-1209/1495) -36.9 W06-W11 N22-N25
      3  338 1403 (N20E50 L=243)   884    227        3 ( 307/1307- 379/1481)  80.5 E53-E47 N13-N25
      4  407 1134 (N03E40 L=253)   614     76        2 ( 381/1101- 440/1179) -45.0 E42-E37 N01-N05
      5 1794 1127 (N05W53 L=346)   837    100        2 (1765/1080-1831/1174)  39.8 W50-W57 N02-N07
      6 1705 1068 (N01W45 L=338)   472     53        1 (1671/1037-1740/1093)  18.4 W42-W48 N00-N02
      7  199  951 (S07E60 L=233)   412     63        3 ( 179/ 925- 221/ 986) -71.6 E62-E57 S08-S05
      8  448  915 (S10E37 L=256)   241     67        0 ( 418/ 887- 478/ 939) -36.9 E39-E35 S11-S08
      9  264  856 (S13E54 L=239)   430    129        0 ( 241/ 790- 288/ 898)  49.4 E57-E51 S17-S10
     10 1311  761 (S19W19 L=312)   456    183        1 (1254/ 719-1347/ 837)  60.3 W15-W20 S21-S14
     11  199  748 (S19E65 L=228)  3897    220       10 ( 137/ 650- 248/ 831) -90.0 E73-E58 S25-S14
     12  474  582 (S31E41 L=252)   800    121        2 ( 446/ 521- 505/ 637)  41.2 E45-E36 S34-S27
     13  300  550 (S32E62 L=231)   932    109        1 ( 258/ 506- 352/ 584)  11.3 E73-E53 S35-S30
     14 1142  217 (S60W16 L=309)  2250    376        6 ( 973/ 183-1292/ 261)   9.5 E04-W34 S64-S55
  

    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