Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1621  756 (S26W35 L= 65)   328     84        2 (1593/ 711-1654/ 798) -71.6 W32-W37 S28-S22
      2  464  507 (S19E50 L=341)  1508    237        3 ( 418/ 427- 512/ 610)  72.9 E54-E46 S25-S12
      3  565  487 (S22E42 L=348)   423     58        2 ( 541/ 457- 590/ 518) -90.0 E44-E40 S24-S20
      4 1354  440 (S42W12 L= 42)   260     57        0 (1334/ 413-1375/ 473) -78.7 W10-W13 S44-S39
      5 1464  442 (S44W22 L= 52)   296     54        1 (1440/ 424-1485/ 472) -76.0 W19-W23 S46-S42
      6 1542  410 (S50W31 L= 61)   381     53        1 (1527/ 374-1556/ 440) -71.6 W28-W32 S52-S46
      7  828  321 (S39E32 L=358)   965    221        2 ( 755/ 293- 937/ 371) -35.0 E36-E23 S42-S33
  

    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