Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  392 1417 (N43E41 L=267)   549    124        2 ( 355/1389- 435/1445) -32.0 E45-E36 N40-N45
      2  287 1367 (N41E51 L=257)   682    117        2 ( 269/1330- 310/1416) -56.3 E53-E48 N38-N44
      3 1650 1339 (N11W48 L=357)   567    121        0 (1605/1304-1700/1382) -54.5 W46-W51 N07-N14
      4 1304 1337 (N19W24 L=333)  1229    278        5 (1195/1287-1402/1379) -30.3 W17-W29 N14-N23
      5  752 1311 (N29E12 L=297)   603     98        3 ( 712/1278- 808/1345)  -8.1 E14-E07 N27-N32
      6  294 1144 (N26E49 L=259)  1295    260        2 ( 259/1031- 349/1243) -66.8 E52-E44 N18-N32
      7 1387  945 (S05W20 L=328)  1327    351        1 (1314/ 837-1497/1068)  77.0 W15-W25 S12-N01
      8  658  894 (N06E25 L=284)   309    106        1 ( 594/ 880- 706/ 909) -15.9 E28-E21 N04-N07
      9  943  583 (S18E14 L=294)  1233    263        2 ( 864/ 486- 998/ 684)  37.6 E21-E08 S23-S12
     10  395  547 (S11E54 L=254)   652    159        1 ( 360/ 510- 415/ 605)  60.3 E58-E50 S14-S07
     11  449  547 (S12E49 L=259)   351     83        2 ( 429/ 520- 471/ 586) -90.0 E51-E47 S13-S09
     12  460  389 (S23E57 L=252)   668    115        2 ( 423/ 361- 496/ 412)   0.0 E59-E52 S25-S21
     13  933  301 (S38E25 L=283)   899    173        2 ( 898/ 242- 987/ 344)  30.3 E31-E19 S42-S34
  

    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