Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  406 1419 (N43E40 L=267)   538    113        0 ( 371/1393- 447/1446) -32.0 E43-E35 N40-N45
      2  298 1356 (N40E50 L=257)   561     96        0 ( 281/1323- 317/1397) -63.4 E52-E47 N37-N43
      3 1372 1361 (N19W29 L=336)   382     57        0 (1338/1335-1404/1389) -53.1 W27-W31 N16-N20
      4 1675 1340 (N10W51 L=358)   395     90        3 (1632/1309-1709/1376) -51.3 W48-W52 N07-N12
      5  774 1321 (N30E10 L=297)   633    115        4 ( 738/1286- 830/1353)   8.1 E12-E05 N27-N32
      6  309 1146 (N26E48 L=259)  1496    292        4 ( 269/1039- 367/1246) -63.4 E51-E43 N19-N33
      7 1415  943 (S06W22 L=329)  1369    359        2 (1331/ 844-1520/1085)  77.9 W16-W27 S13-N01
      8  528  988 (N14E32 L=275)   652    246        3 ( 429/ 941- 618/1034)  -4.1 E39-E25 N11-N16
      9 1542  857 (S14W29 L=336)   260     65        0 (1518/ 830-1558/ 897)  53.1 W26-W29 S15-S11
     10  971  603 (S17E12 L=295)  1539    348        4 ( 889/ 488-1026/ 743)  40.9 E20-E05 S23-S09
     11  341  631 (S05E56 L=251)   693    126        2 ( 293/ 592- 390/ 663) -40.6 E60-E52 S08-S02
     12  421  557 (S11E51 L=256)   947    205        4 ( 370/ 516- 469/ 611)  16.7 E56-E46 S13-S07
     13  542  559 (S12E41 L=266)   310     48        0 ( 513/ 537- 568/ 583) -33.7 E42-E39 S14-S10
     14  475  385 (S23E55 L=252)   818    125        1 ( 433/ 341- 505/ 415) -71.6 E58-E51 S27-S20
     15  978  323 (S37E21 L=286)   686    128        1 ( 945/ 282-1028/ 352)  20.6 E25-E17 S40-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