Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1127 1784 (N43E20 L= 18)  2383    385        5 (1007/1652-1259/1919) -20.6 E44-E04 N36-N53
      2  509 1715 (N21E60 L=338)  3741    245        8 ( 424/1628- 613/1791)  65.2 E69-E53 N14-N28
      3  864 1724 (N30E33 L=  5)   350     73        1 ( 847/1684- 884/1761) -56.3 E35-E31 N27-N33
      4  710 1714 (N26E43 L=355)   388    122        0 ( 669/1671- 734/1755) -20.0 E49-E38 N22-N28
      5  592 1691 (N21E50 L=348)   980    178        2 ( 523/1637- 647/1743)  77.5 E53-E47 N16-N25
      6  580 1526 (N10E41 L=357)  1460    381        1 ( 444/1390- 705/1655)  74.1 E46-E38 N00-N21
      7 1718 1450 (N41W37 L= 76)   570     78        1 (1688/1411-1742/1489) -59.0 W34-W40 N38-N43
      8 1667 1229 (N24W34 L= 72)   272     45        0 (1651/1195-1680/1258) -53.1 W32-W35 N21-N25
      9  382 1075 (S20E42 L=356)   425     77        1 ( 352/1045- 407/1110)  53.1 E44-E39 S21-S17
     10  317 1044 (S23E47 L=351)   625    174        1 ( 283/ 948- 342/1100) -53.1 E51-E43 S28-S19
     11  469 1009 (S22E34 L=  4)   360     80        1 ( 432/ 985- 499/1030)  21.8 E36-E31 S23-S19
     12 1158  584 (S27W22 L= 60)   220     61        0 (1135/ 553-1186/ 606)  76.0 W20-W22 S29-S25
     13 1243  241 (S44W53 L= 91)   466    106        0 (1207/ 215-1295/ 278)   0.0 W46-W59 S45-S43
  

    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