Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1413 1742 (N56W30 L= 86)   749    115        1 (1348/1721-1461/1757)  10.0 W21-W38 N53-N58
      2  749 1698 (N42E33 L= 23)   296     86        0 ( 706/1686- 789/1708)  18.4 E36-E30 N40-N43
      3  500 1509 (N25E45 L= 12)   466     76        1 ( 472/1469- 533/1541)  68.2 E46-E42 N22-N27
      4  583 1505 (N26E38 L= 19)   413    128        0 ( 547/1439- 607/1540) -36.9 E41-E33 N21-N28
      5  382 1451 (N20E53 L=  3)   538     77        1 ( 345/1416- 409/1477) -12.5 E57-E48 N18-N21
      6  333 1307 (N10E52 L=  4)   302     57        1 ( 314/1281- 350/1335) -45.0 E53-E49 N09-N12
      7  590 1140 (N03E28 L= 28)   558    187        1 ( 514/1104- 661/1172)  11.3 E33-E23 N00-N05
      8 1656  906 (N00W43 L= 99)   990    184        3 (1605/ 820-1695/ 975)  66.0 W39-W45 S05-N04
      9 1060  863 (S08W04 L= 60)   369    180        0 (1008/ 800-1118/ 923)  58.0 W01-W06 S12-S04
     10 1840  659 (S13W71 L=128)  1694    164        4 (1814/ 578-1886/ 716) -56.3 W67-W78 S18-S09
     11  782  695 (S22E12 L= 44)   261     58        0 ( 748/ 683- 821/ 713)   0.0 E14-E09 S22-S20
     12 1763  661 (S14W60 L=116)   864    126        5 (1716/ 616-1801/ 707)  49.4 W56-W64 S17-S10
     13 1733  571 (S20W61 L=117)   787    118        3 (1688/ 543-1780/ 594)  16.7 W56-W66 S21-S17
     14 1475  290 (S43W56 L=112)   791     81        1 (1433/ 270-1517/ 318)   4.8 W50-W62 S44-S40
  

    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