Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  439 1648 (N23E63 L= 41)   471     78        1 ( 404/1625- 478/1662)  -4.8 E68-E56 N22-N24
      2 1107 1528 (N30E07 L= 97)   425    117        0 (1055/1488-1149/1563) -20.6 E11-E03 N28-N31
      3  353 1500 (N12E60 L= 44)   465     72        0 ( 323/1478- 383/1522)  45.0 E63-E57 N10-N14
      4 1136 1447 (N26E03 L=101)   255     85        0 (1092/1431-1175/1461)  31.0 E05-W00 N23-N26
      5  879 1395 (N17E17 L= 87)   846    210        4 ( 802/1325- 954/1435) -16.7 E22-E12 N13-N19
      6 1157 1344 (N20W01 L=105)  1118    214        3 (1089/1278-1238/1414)   0.0 E03-W06 N15-N23
      7  794 1369 (N13E22 L= 82)   280    102        1 ( 747/1329- 830/1389) -18.4 E24-E18 N11-N14
      8 1223 1361 (N22W05 L=109)   203     42        0 (1199/1342-1246/1378) -14.0 W02-W06 N21-N23
      9  191 1070 (S16E63 L= 41)  1315    165        4 ( 162/1000- 217/1148)  90.0 E66-E59 S20-S11
     10 1779 1008 (N14W52 L=156)   547     97        1 (1764/ 955-1795/1061) -51.3 W49-W54 N11-N16
     11  822  677 (S27E05 L= 99)  1593    372        3 ( 652/ 597- 950/ 779)  50.2 E15-W02 S36-S17
     12 1628  421 (S24W65 L=169)  1382     66        2 (1595/ 388-1661/ 454)  63.4 W60-W70 S25-S21
     13  703  401 (S50E08 L= 95)   534     75        2 ( 666/ 382- 751/ 427)  23.2 E11-E03 S52-S47
     14  977  336 (S47W18 L=121)  1615    232        2 ( 863/ 315-1098/ 359)  24.0 W07-W26 S51-S42
  

    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