Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1562 1680 (N55W20 L= 25)   432     45        1 (1537/1660-1590/1694)  29.7 W16-W23 N52-N58
      2 1663 1129 (N19W36 L= 41)   255     63        0 (1632/1115-1703/1140)  31.0 W33-W38 N17-N20
      3  720  981 (S17E16 L=349)   227     46        1 ( 695/ 957- 740/1001) -18.4 E17-E14 S18-S15
      4  212  883 (S35E58 L=306)  2492    242        3 ( 133/ 794- 308/ 963)  23.4 E78-E46 S41-S28
      5  555  852 (S29E24 L=341)  1240    412        2 ( 423/ 811- 717/ 923)  17.7 E35-E13 S33-S22
      6  934  811 (S21W01 L=  6)   355     94        2 ( 903/ 781- 970/ 845) -33.7 E01-W02 S21-S18
      7  867  789 (S24E02 L=  3)   290     90        1 ( 830/ 761- 917/ 815)  11.3 E04-W01 S24-S22
      8 1267  592 (S23W28 L= 33)  1443    372        1 (1104/ 563-1430/ 642)  37.4 W18-W36 S27-S14
  

    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