Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  851 1750 (N53E20 L=157)   602     87        3 ( 800/1723- 889/1772)   0.0 E25-E16 N50-N55
      2  492 1493 (N31E43 L=135)  3214    591        7 ( 298/1427- 731/1610)  -8.3 E83-E21 N27-N37
      3 1329 1552 (N38W23 L=200)   454     90        0 (1291/1531-1371/1573)  -8.1 W19-W26 N36-N39
      4 1431 1437 (N30W29 L=206)  1034    262        2 (1376/1308-1464/1534) -90.0 W25-W31 N21-N36
      5  436 1138 (N08E39 L=138)   626    188        0 ( 391/1066- 479/1212) -45.0 E43-E35 N04-N12
      6 1780 1158 (N11W54 L=232)   577     74        0 (1741/1119-1809/1187) -29.7 W50-W57 N08-N13
      7  786 1052 (N04E15 L=163)   235     76        0 ( 764/1016- 820/1076)  45.0 E16-E12 N02-N05
      8 1834  971 (S00W60 L=237)   634     60        1 (1811/ 932-1852/1007)  56.3 W57-W61 S02-N02
      9  402  778 (S14E42 L=135)   335    101        1 ( 386/ 733- 422/ 830) -80.5 E43-E40 S16-S10
     10 1738  760 (S13W52 L=229)   837     82        1 (1699/ 720-1770/ 803) -59.0 W48-W55 S15-S10
     11 1056  567 (S26W03 L=180)  1078    248        1 ( 985/ 523-1157/ 646) -26.6 E01-W09 S28-S20
     12  861  573 (S26E10 L=167)   415    103        0 ( 810/ 547- 903/ 612)  33.7 E13-E07 S27-S23
     13  632  241 (S56E44 L=133)   506     64        0 ( 604/ 224- 665/ 264) -53.1 E47-E39 S57-S53
     14 1366  217 (S56W44 L=221)   585     30        0 (1350/ 193-1383/ 246) -33.7 W38-W50 S58-S52
  

    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