Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  712 1581 (N30E25 L=224)   249     81        1 ( 695/1532- 734/1608)  90.0 E25-E23 N26-N31
      2 1758 1493 (N30W54 L=303)   642    105        2 (1718/1471-1796/1518) -18.4 W49-W58 N29-N32
      3  579 1486 (N23E32 L=216)   772    163        2 ( 508/1459- 646/1508) -10.3 E37-E26 N21-N24
      4 1841 1408 (N26W61 L=310)  1015    164        0 (1808/1364-1865/1447)  63.4 W57-W64 N22-N28
      5  944 1288 (N11E06 L=243)   335     75        1 ( 910/1259- 984/1328) -38.7 E08-E03 N09-N13
      6 1842 1176 (N10W58 L=306)  3705    649        9 (1712/1016-1964/1315) -31.0 W45-W77 N02-N17
      7 1394 1242 (N11W22 L=270)   533    198        1 (1305/1221-1487/1266)  -4.8 W16-W28 N09-N12
      8  270 1045 (S05E52 L=197)  1259    274        6 ( 244/ 932- 311/1153)  85.2 E54-E47 S11-N01
      9  619 1054 (S04E25 L=224)   218     59        1 ( 590/1025- 647/1076) -56.3 E26-E23 S05-S02
     10  694  923 (S12E20 L=229)   254    123        0 ( 626/ 900- 744/ 958)  14.0 E24-E16 S12-S09
     11  911  779 (S20E06 L=243)  1182    298        2 ( 815/ 672-1070/ 862)  38.7 E12-W03 S26-S13
     12 1845  731 (S16W63 L=312)  1561    289        2 (1812/ 662-1870/ 786) -74.1 W59-W68 S19-S12
     13 1682  598 (S26W51 L=299)  2088    375        2 (1552/ 531-1768/ 736)  51.8 W40-W55 S30-S16
     14  734  532 (S36E19 L=230)   559    145        1 ( 673/ 483- 789/ 575)  31.0 E24-E14 S39-S33
  

    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