Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  985 1880 (N47E37 L=111)   709     69        1 ( 962/1850-1018/1910) -21.8 E42-E32 N43-N50
      2  775 1853 (N38E50 L= 99)   873     85        2 ( 732/1833- 814/1879)  68.2 E53-E45 N35-N40
      3 1180 1644 (N34E09 L=140)   726     86        2 (1151/1600-1218/1694) -39.8 E12-E05 N31-N37
      4  621 1477 (N09E36 L=113)   555     85        1 ( 580/1446- 672/1502)  38.7 E38-E33 N06-N10
      5  424 1446 (N03E49 L=100)   382     59        0 ( 401/1412- 451/1475)  90.0 E50-E47 N00-N05
      6  992 1294 (N07E09 L=140)   361    149        0 ( 942/1243-1036/1357)  83.7 E10-E07 N02-N11
      7  214 1278 (S10E63 L= 86)   503    110        0 ( 181/1224- 240/1331)  74.1 E65-E61 S13-S06
      8 1760 1270 (N29W42 L=191)   444     86        0 (1728/1220-1786/1308) -26.6 W38-W44 N26-N30
      9  549 1226 (S07E33 L=116)   466    129        0 ( 503/1169- 584/1277) -26.6 E37-E29 S09-S05
     10  351 1227 (S11E48 L=101)   315     74        0 ( 325/1197- 375/1259)  76.0 E49-E46 S12-S08
     11  136 1132 (S20E70 L= 79)   685     75        2 ( 120/1097- 155/1172) -38.7 E73-E66 S21-S17
     12 1600 1118 (N14W31 L=180)   286     86        1 (1564/1088-1630/1135)  11.3 W28-W33 N12-N15
     13  616 1070 (S14E25 L=124)   639    214        2 ( 548/1028- 724/1102)  20.0 E28-E17 S17-S11
     14  793  723 (S30E06 L=143)   213     15        0 ( 774/ 701- 812/ 743) -18.4 E07-E04 S31-S28
     15 1472  653 (S14W37 L=186)  1417    337        3 (1325/ 609-1616/ 718)  41.2 W29-W45 S21-S07
  

    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