Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1002 1547 (N31W04 L=109)   331     75        2 ( 976/1514-1028/1584)  78.7 W02-W05 N29-N34
      2  267 1344 (N26E52 L= 53)  2117    401        7 ( 204/1189- 310/1444) -60.9 E60-E46 N15-N33
      3  616 1277 (N18E23 L= 81)   355    158        3 ( 584/1229- 651/1339)  56.3 E25-E20 N14-N21
      4 1333 1260 (N10W21 L=126)   420    142        0 (1265/1203-1377/1305) -49.4 W17-W23 N06-N13
      5 1784  750 (S24W52 L=157)   351    126        0 (1743/ 737-1823/ 767)  -8.1 W48-W55 S25-S22
      6  495  725 (S14E37 L= 68)   306     78        1 ( 466/ 709- 537/ 750) -26.6 E39-E34 S14-S12
      7  411  480 (S28E52 L= 53)  1583    292        2 ( 354/ 417- 465/ 562)  34.7 E60-E47 S31-S22
  

    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