Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  505 1729 (N55E44 L= 81)   682     57        0 ( 484/1695- 527/1760) -28.3 E50-E37 N51-N58
      2 1367 1617 (N32W33 L=158)   333     68        0 (1330/1588-1401/1640) -45.0 W30-W35 N29-N34
      3  240 1416 (N33E61 L= 64)   781     81        1 ( 212/1377- 280/1453) -18.4 E68-E53 N30-N36
      4  764 1347 (N22E13 L=112)   580    182        0 ( 676/1316- 831/1391)  10.3 E18-E07 N20-N23
      5  524 1308 (N22E30 L= 95)   382     88        0 ( 474/1289- 561/1328) -15.9 E33-E26 N21-N23
      6 1875  934 (S15W62 L=187)  1740    276        2 (1851/ 807-1899/1064) -86.2 W59-W66 S22-S07
      7  317  717 (S11E53 L= 71)   924    183        0 ( 273/ 655- 341/ 800)  45.0 E59-E49 S14-S05
      8  429  740 (S10E43 L= 82)   351     78        1 ( 412/ 703- 449/ 781)  63.4 E43-E40 S12-S08
      9  583  647 (S18E34 L= 91)   320     84        0 ( 559/ 608- 606/ 687) -90.0 E34-E32 S20-S15
     10  417  582 (S20E49 L= 75)   338     80        1 ( 380/ 552- 448/ 605)  14.0 E53-E45 S21-S18
     11  546  555 (S23E39 L= 85)   292    100        0 ( 506/ 526- 588/ 592) -51.3 E41-E36 S25-S20
     12  346  484 (S25E62 L= 62)   509     58        2 ( 312/ 468- 383/ 501)   0.0 E68-E57 S26-S23
     13  741  348 (S40E33 L= 91)   390     65        1 ( 716/ 327- 780/ 370)   8.1 E36-E29 S41-S38
     14  626  277 (S44E50 L= 74)   425     54        0 ( 592/ 263- 655/ 291)   0.0 E55-E46 S45-S42
  

    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