Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  398 1575 (N11E58 L=297)   425    119        2 ( 373/1540- 417/1600) -26.6 E61-E54 N09-N12
      2 1713 1405 (N36W37 L= 32)  1294    206        3 (1636/1358-1784/1462)  -4.1 W29-W43 N33-N37
      3  431 1383 (N00E46 L=309)   328     96        1 ( 392/1347- 466/1430)  59.0 E48-E44 S02-N03
      4  261 1199 (S13E55 L=300)  1458    242        5 ( 207/1096- 309/1299)  90.0 E58-E51 S19-S07
      5  134 1127 (S19E67 L=288)   973    275        3 (  93/1084- 174/1165) -19.7 E75-E61 S21-S16
      6  301 1082 (S20E49 L=307)   757    259        1 ( 224/1049- 397/1100)  18.4 E55-E40 S22-S17
      7 1423  619 (S18W35 L= 31)   834    221        1 (1386/ 536-1443/ 718) -59.0 W30-W39 S23-S13
      8 1081  566 (S31W17 L= 12)  1366    406        2 ( 889/ 505-1276/ 606)  14.5 W03-W30 S35-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