Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  814 1766 (N39E30 L=137)   335     72        1 ( 779/1751- 858/1778)  21.8 E32-E26 N36-N40
      2  526 1612 (N23E44 L=123)   765    248        2 ( 479/1527- 560/1679) -42.3 E51-E40 N17-N27
      3  325 1485 (N13E57 L=110)  3648    538        5 ( 264/1317- 376/1624) -62.4 E68-E50 N02-N23
      4  247 1439 (N10E64 L=103)  1008    156        2 ( 213/1408- 282/1485)  51.3 E68-E60 N08-N13
      5 1745 1365 (N27W45 L=212)  1276    238        4 (1685/1326-1801/1417)  20.0 W39-W50 N24-N31
      6  781 1324 (N08E19 L=148)   250     53        1 ( 757/1297- 808/1346)  56.3 E20-E17 N06-N09
      7  876 1167 (S00E11 L=156)   586    267        0 ( 797/1060- 915/1278) -48.0 E16-E07 S05-N05
      8 1584 1063 (N05W34 L=201)   555    254        2 (1493/ 948-1628/1117) -36.9 W27-W37 S01-N08
      9 1050  956 (S10W02 L=169)   208    103        0 (1031/ 907-1066/1007) -68.2 W00-W03 S12-S07
     10 1195  835 (S15W13 L=180)   397    149        1 (1117/ 811-1273/ 858)  24.0 W08-W17 S16-S12
     11 1319  742 (S18W23 L=190)   864    207        1 (1226/ 690-1424/ 821)  50.7 W17-W27 S22-S11
     12  347  743 (S32E44 L=123)   400    117        1 ( 307/ 724- 384/ 778)  20.6 E48-E40 S32-S29
     13 1727  519 (S22W61 L=228)  2241    333        5 (1617/ 422-1818/ 599)  59.0 W55-W69 S30-S15
     14  382  501 (S48E46 L=121)  1129    221        1 ( 315/ 482- 458/ 528)   0.0 E53-E38 S49-S46
     15  864  208 (S66W06 L=173)   649     90        2 ( 834/ 180- 897/ 241)  20.6 W02-W10 S69-S62
  

    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