Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  903 1784 (N59W23 L=230)   324     61        1 ( 882/1750- 925/1813)  29.1 W18-W27 N56-N61
      2  524 1593 (N56E27 L=180)   404     44        1 ( 505/1569- 556/1617)   9.5 E29-E22 N54-N58
      3  290 1213 (N34E50 L=157)  1451    376        4 ( 166/1165- 443/1266) -10.0 E69-E35 N28-N38
      4 1467 1084 (S01W27 L=234)   519    121        1 (1407/1066-1531/1105) -14.0 W23-W31 S02-N01
      5 1610  818 (S20W31 L=238)   795    259        0 (1517/ 717-1687/ 893)  17.4 W22-W38 S24-S17
      6 1046  813 (S05E04 L=203)   260     62        1 (1023/ 775-1063/ 846)  76.0 E04-E03 S07-S03
      7 1658  732 (S27W34 L=241)   837    196        1 (1618/ 642-1693/ 823)  51.3 W29-W38 S32-S22
      8  986  538 (S20E15 L=192)  1415    415        2 ( 835/ 428-1094/ 663)  19.2 E28-E05 S24-S14
      9 1150  467 (S29E07 L=200)   258    108        0 (1129/ 424-1189/ 509)  39.8 E09-E03 S32-S27
     10  467  421 (S17E56 L=151)   891     76        2 ( 446/ 378- 496/ 459)  35.5 E60-E52 S19-S14
     11 1344  395 (S41W04 L=211)   436     71        1 (1311/ 367-1386/ 426)   8.1 W00-W07 S43-S39
     12  435  343 (S22E69 L=139)   656     67        0 ( 406/ 328- 468/ 365) -26.6 E72-E63 S23-S20
     13  708  319 (S29E43 L=164)   403     75        0 ( 672/ 297- 740/ 339)  14.0 E47-E39 S29-S27
     14 1109  244 (S46E21 L=187)   371     59        0 (1074/ 233-1142/ 258)  -9.5 E23-E17 S47-S44
  

    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