Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  836 1800 (N61W20 L=355)   330     51        1 ( 818/1770- 857/1831)  32.0 W16-W25 N58-N63
      2 1297 1763 (N39W49 L= 24)  1006    136        1 (1214/1743-1369/1778) -26.6 W43-W55 N36-N42
      3  667 1717 (N61E03 L=331)   704    148        2 ( 599/1680- 740/1754)  -3.2 E12-W06 N58-N62
      4 1650 1649 (N21W68 L= 43)  1053     77        2 (1609/1612-1687/1679) -71.6 W65-W73 N17-N23
      5 1305 1626 (N31W39 L= 14)   480    112        1 (1255/1585-1355/1664)   5.2 W33-W44 N30-N32
      6 1385 1525 (N23W38 L= 13)  1021    361        0 (1248/1482-1526/1548) -26.6 W28-W46 N17-N27
      7  835 1516 (N40W03 L=338)   516     85        1 ( 792/1493- 883/1538) -18.4 W00-W06 N37-N41
      8 1802 1480 (N07W71 L= 46)  1309    127        2 (1767/1439-1857/1521) -49.4 W66-W80 N02-N09
      9  401 1376 (N43E36 L=299)   764    116        1 ( 353/1340- 459/1420) -28.6 E41-E30 N39-N46
     10 1008 1304 (N22W07 L=342)   594    200        0 ( 934/1250-1075/1338) -40.6 W01-W09 N17-N24
     11 1796 1248 (S04W56 L= 31)   769    101        2 (1767/1188-1833/1296)  24.0 W51-W61 S06-S02
     12  134 1028 (N26E70 L=265)  1212    127        3 ( 101/ 976- 175/1090) -30.3 E77-E63 N22-N29
     13 1310  720 (S18W08 L=343)   569    136        0 (1277/ 648-1338/ 778)  54.5 W04-W10 S21-S14
     14  737  626 (S09E27 L=308)   935    193        0 ( 708/ 539- 780/ 726)  45.0 E31-E21 S13-S03
     15  839  268 (S34E38 L=296)  3221    475        3 ( 649/ 162-1010/ 391)   8.9 E71-E20 S38-S30
  

    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