Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1339 1805 (N43W60 L=226)   521     57        1 (1308/1776-1364/1830)   4.8 W54-W66 N41-N43
      2 1575 1648 (N25W63 L=229)  1444    141        2 (1528/1603-1631/1688) -14.0 W55-W71 N22-N27
      3 1725 1564 (N15W71 L=237)  1057    134        2 (1667/1520-1787/1589) -36.0 W65-W77 N10-N18
      4 1393 1454 (N21W35 L=201)  1328    422        4 (1228/1364-1551/1508) -43.2 W26-W42 N11-N28
      5  908 1336 (N28W01 L=167)   357    144        1 ( 847/1292- 966/1371) -60.3 E01-W04 N23-N31
      6 1454 1326 (N12W34 L=200)   231     77        0 (1421/1303-1487/1345) -45.0 W32-W35 N10-N13
      7  329 1224 (N35E46 L=120)   725    172        0 ( 288/1176- 401/1256)   0.0 E50-E38 N32-N36
      8  325 1057 (N24E47 L=119)   931    249        0 ( 285/ 973- 407/1154) -52.4 E50-E40 N17-N30
      9  451 1086 (N24E36 L=131)   388    116        0 ( 413/1046- 488/1138) -60.3 E38-E32 N20-N27
     10  269  785 (N09E58 L=108)  1278    278        4 ( 223/ 679- 302/ 882)  85.6 E61-E54 N02-N15
     11  486  666 (S02E43 L=123)   490     83        0 ( 459/ 639- 524/ 702) -71.6 E44-E39 S03-N00
     12 1789  597 (S44W51 L=217)   567     42        1 (1769/ 579-1813/ 623) -31.0 W47-W57 S46-S40
     13  391  484 (S11E60 L=106)   595     89        0 ( 362/ 456- 421/ 520)  16.7 E64-E54 S13-S09
     14 1002  354 (S33E22 L=144)   289     46        0 ( 979/ 330-1020/ 382) -90.0 E23-E20 S35-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