Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  660 1421 (N33E23 L= 52)   836    133        4 ( 598/1383- 732/1444)   5.2 E28-E17 N30-N34
      2  533 1336 (N28E33 L= 43)   494    117        2 ( 516/1288- 564/1397) -54.5 E34-E29 N25-N32
      3  525 1134 (N15E32 L= 43)   356     40        0 ( 499/1112- 558/1153) -21.8 E34-E29 N14-N16
      4  672  651 (S15E26 L= 49)   670    297       -1 ( 635/ 586- 742/ 690)  50.2 E28-E21 S19-S13
      5  790  642 (S17E19 L= 57)   302      0       -1 ( 743/ 625- 827/ 663) -21.8 E21-E15 S17-S15
      6  487  613 (S17E41 L= 34)   275    102        0 ( 465/ 577- 521/ 639)  38.7 E43-E38 S19-S15
      7  485  416 (S31E51 L= 25)   486     63        1 ( 468/ 386- 518/ 437)  20.6 E54-E46 S33-S29
  

    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