Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  337 1348 (N28E52 L=151)   525    105        1 ( 286/1328- 393/1368)   0.0 E58-E45 N26-N28
      2 1700 1308 (N16W52 L=254)   361    152        0 (1645/1246-1747/1358) -53.1 W47-W54 N12-N20
      3  943 1221 (N17E04 L=199)   633    339        2 ( 836/1172-1102/1283) -28.1 E10-W05 N13-N21
      4  199 1126 (N13E63 L=139)   480     73        0 ( 186/1086- 211/1164) -53.1 E66-E61 N11-N15
      5  907  945 (N01E08 L=195)   237     95        0 ( 872/ 928- 947/ 983)  26.6 E09-E05 N00-N02
      6 1406  915 (S05W23 L=226)   746    231        1 (1309/ 889-1502/ 963) -17.1 W17-W30 S06-N00
      7  302  749 (S10E54 L=148)   576     84        2 ( 283/ 699- 325/ 780)  45.0 E57-E51 S13-S07
      8  249  726 (S11E61 L=142)   462     51        2 ( 230/ 697- 267/ 759) -76.0 E64-E59 S13-S09
      9 1772  723 (S21W55 L=258)   406     60        2 (1750/ 694-1795/ 750)  56.3 W53-W57 S22-S19
     10 1672  711 (S20W45 L=247)   299     78        0 (1655/ 674-1692/ 747)  76.0 W43-W46 S22-S18
     11  770  570 (S23E20 L=182)  1306    327        3 ( 678/ 468- 894/ 670)  32.3 E29-E10 S29-S16
     12 1324  606 (S24W18 L=220)   278    120        0 (1280/ 570-1353/ 641)  38.7 W14-W19 S26-S21
     13 1461  558 (S29W28 L=231)   364    128        1 (1443/ 500-1479/ 617) -71.6 W26-W30 S33-S24
     14  675  409 (S34E32 L=171)   338     46        2 ( 653/ 382- 701/ 432)  76.0 E33-E29 S36-S32
     15  660  249 (S49E46 L=157)   651     74        0 ( 638/ 225- 697/ 281) -45.0 E50-E41 S51-S45
  

    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