Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1574 (N29E24 L=224)   430     91        1 ( 700/1526- 750/1611)  90.0 E25-E21 N25-N31
      2  596 1484 (N23E31 L=217)   719    166        0 ( 523/1455- 665/1503)  -5.2 E36-E25 N20-N23
      3  405 1353 (N14E43 L=204)   452     79        0 ( 386/1312- 423/1395)  90.0 E44-E41 N11-N16
      4  970 1284 (N11E04 L=243)   426     97        0 ( 927/1242-1025/1327) -35.5 E07-W00 N08-N13
      5 1851 1172 (N10W59 L=306)  3851    648        9 (1724/1007-1968/1308) -30.0 W46-W77 N01-N17
      6 1410 1242 (N11W23 L=270)   605    221        0 (1309/1212-1506/1275) -13.0 W16-W29 N09-N12
      7  281 1029 (S06E51 L=197)  1381    267        2 ( 255/ 912- 318/1153)  81.3 E53-E47 S12-N01
      8  635 1054 (S04E24 L=224)   243     72        0 ( 599/1024- 662/1075) -14.0 E26-E22 S05-S02
      9  713  923 (S11E19 L=229)   223    111        0 ( 654/ 899- 758/ 960)  23.2 E22-E15 S13-S09
     10  930  779 (S19E05 L=243)  1231    293        1 ( 834/ 669-1085/ 863)  38.2 E10-W04 S26-S13
     11 1847  724 (S16W64 L=311)  1745    329        6 (1810/ 657-1874/ 794)  71.6 W60-W68 S20-S11
     12 1752  706 (S19W54 L=301)   441     62        1 (1731/ 673-1778/ 737)  63.4 W52-W55 S20-S16
     13 1682  571 (S27W51 L=299)  1739    260        2 (1579/ 530-1760/ 644)  26.6 W43-W57 S30-S22
     14  772  556 (S34E16 L=232)   213     52        0 ( 747/ 539- 799/ 576) -14.0 E17-E13 S35-S33
     15  718  508 (S38E21 L=227)   336     88        0 ( 682/ 474- 754/ 538)  39.8 E23-E17 S40-S35
  

    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