Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  786 1677 (N46E24 L=127)  2825    475        6 ( 657/1584- 935/1728)  15.3 E33-E09 N38-N50
      2 1155 1630 (N44W09 L=160)   507    115        2 (1118/1587-1201/1661)  45.0 W05-W13 N40-N46
      3 1563 1541 (N37W43 L=193)   427     85        1 (1533/1527-1599/1559)   9.5 W39-W45 N36-N38
      4  803 1314 (N20E15 L=136)   415     79        2 ( 770/1289- 845/1347) -31.0 E17-E12 N18-N22
      5  743 1230 (N15E19 L=132)   952    243        5 ( 651/1189- 861/1285)  21.0 E24-E11 N12-N18
      6  333 1213 (N12E50 L=101)   580    115        0 ( 309/1159- 357/1261) -50.2 E52-E46 N08-N14
      7  837 1177 (N12E12 L=139)   264     45        0 ( 823/1145- 851/1210)  78.7 E13-E11 N09-N14
      8  688 1141 (N09E22 L=129)   663    190        1 ( 627/1094- 780/1202) -24.4 E26-E15 N06-N12
      9 1392 1060 (N06W23 L=174)   225     88        2 (1359/1028-1425/1095) -36.9 W21-W25 N03-N08
     10 1063  890 (S05W03 L=154)   315    117        0 (1045/ 831-1080/ 944)  90.0 W01-W03 S08-S01
     11  217  792 (S15E61 L= 90)  1066    168        3 ( 170/ 757- 250/ 824)   0.0 E67-E56 S17-S12
     12  811  708 (S17E13 L=138)   204     40        1 ( 795/ 683- 833/ 727) -90.0 E14-E11 S18-S16
     13  406  448 (S38E51 L=100)  1736    351        1 ( 341/ 394- 468/ 503)  27.8 E62-E43 S44-S33
     14 1295  407 (S38W23 L=174)   316     63        0 (1261/ 394-1333/ 421)  18.4 W20-W26 S38-S36
     15 1109  369 (S41W09 L=160)   763    153        1 (1024/ 343-1194/ 398)   8.7 W02-W15 S43-S38
  

    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