Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  653 1596 (N36E35 L= 66)   367     99        0 ( 619/1555- 680/1635)  80.5 E36-E33 N32-N38
      2  359 1581 (N31E65 L= 35)   505     76        2 ( 335/1554- 381/1623) -59.0 E69-E61 N29-N34
      3  300 1537 (N28E70 L= 30)  2039    133        3 ( 250/1486- 337/1594) -74.1 E80-E60 N24-N31
      4  969 1445 (N28E07 L= 94)  1046    204        5 ( 905/1369-1037/1508) -38.7 E12-E01 N23-N31
      5 1260 1386 (N26W13 L=114)   392    125        2 (1223/1322-1287/1435) -74.1 W10-W15 N22-N29
      6 1549 1309 (N23W34 L=135)   289     57        0 (1527/1281-1571/1339) -71.6 W32-W36 N21-N25
      7  152  919 (S12E69 L= 32)  1792    192        7 ( 114/ 865- 192/ 995) -82.9 E77-E62 S15-S07
      8  378  924 (S09E43 L= 58)   347    144        0 ( 326/ 875- 436/ 960)  33.7 E47-E38 S12-S06
      9 1182  670 (S19W13 L=114)  2874    758        4 ( 879/ 517-1406/ 901)  42.0 E06-W24 S31-S03
     10  719  804 (S14E18 L= 83)   261     77        0 ( 676/ 786- 756/ 818)   0.0 E20-E15 S14-S12
     11 1759  721 (S12W57 L=157)   696    113        1 (1723/ 667-1796/ 757)  39.8 W54-W60 S15-S10
     12  304  629 (S30E55 L= 45)  1768    217        2 ( 236/ 543- 382/ 688)  19.0 E76-E44 S37-S24
     13 1720  571 (S22W59 L=160)  2682    315        6 (1645/ 497-1796/ 627)  18.4 W49-W74 S27-S18
     14  599  438 (S41E30 L= 71)  1055    137        5 ( 555/ 394- 660/ 482)  30.3 E35-E23 S44-S36
     15  763  286 (S53E18 L= 83)   439     59        1 ( 733/ 271- 801/ 307)  -7.1 E21-E13 S54-S50
  

    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