Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1455 1738 (N51W24 L= 75)   426     28        1 (1434/1714-1479/1759) -90.0 W21-W26 N48-N53
      2  320 1596 (N21E68 L=343)  2002    114        1 ( 262/1553- 366/1633)  26.6 E76-E62 N18-N24
      3 1886 1118 (N16W62 L=113)  4495    302        4 (1819/1023-1944/1195) -39.3 W53-W72 N10-N20
      4  586  864 (S22E26 L= 25)   382    114        0 ( 543/ 845- 641/ 893)  26.6 E28-E22 S22-S19
      5  475  373 (S58E47 L=  3)  1078     93        0 ( 426/ 354- 528/ 399)   3.2 E56-E38 S59-S55
      6 1412  365 (S39W47 L= 97)   408     45        1 (1387/ 346-1438/ 387)  26.6 W44-W49 S40-S37
      7  875  267 (S60W05 L= 56)   326     48        0 ( 848/ 248- 903/ 290)  -8.1 W01-W08 S61-S58
  

    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