Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  863 1527 (N38E09 L=301)   543    162        0 ( 794/1490- 944/1555)  14.0 E14-E02 N35-N39
      2 1775 1413 (N22W64 L= 14)  3130    331        6 (1721/1300-1837/1492) -72.9 W58-W71 N14-N27
      3 1653 1441 (N26W51 L=  2)   323     29        0 (1637/1418-1669/1468)  76.0 W49-W52 N23-N27
      4  246 1216 (N19E58 L=252)  1292    177        1 ( 217/1138- 278/1303) -84.8 E60-E55 N13-N24
      5  184 1165 (N15E65 L=245)   442     71        3 ( 166/1131- 205/1195) -63.4 E68-E62 N13-N17
      6  940 1143 (N12E05 L=306)   330    154        0 ( 878/1107-1001/1163)   7.1 E08-W00 N10-N13
      7  370 1057 (N09E44 L=266)   477    133        1 ( 337/1010- 423/1089)  23.2 E47-E39 N06-N10
      8  626  932 (N01E25 L=285)  1281    292        1 ( 582/ 802- 669/1073) -79.4 E27-E23 S07-N09
      9 1508  938 (S04W30 L=340)   691    216        0 (1417/ 889-1582/1010)  18.4 W23-W36 S06-N00
     10  731  777 (S09E20 L=291)   324    104        0 ( 677/ 764- 783/ 791)  -8.1 E23-E16 S09-S08
     11  282  641 (S17E59 L=251)  1746    184        6 ( 232/ 582- 327/ 714) -45.0 E65-E55 S21-S12
     12  904  570 (S23E11 L=300)   328    126        0 ( 851/ 553- 967/ 600) -23.2 E13-E06 S24-S20
     13 1124  433 (S35W03 L=314)   376     27        0 (1108/ 402-1142/ 464) -90.0 W02-W04 S37-S32
     14 1037  308 (S45E04 L=306)  1467    182        6 ( 969/ 254-1108/ 377)  32.5 E10-W01 S49-S38
     15  622  262 (S47E47 L=263)  1847    163        2 ( 534/ 237- 696/ 302)   7.6 E67-E36 S50-S43
  

    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