Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  851 1729 (N35E28 L=152)   308     50        1 ( 821/1712- 877/1753)   0.0 E30-E25 N33-N36
      2  749 1670 (N29E32 L=148)   700    186        0 ( 715/1601- 827/1712)  63.4 E35-E27 N23-N32
      3  374 1548 (N16E57 L=123)  1453    148        6 ( 321/1474- 418/1596) -31.6 E64-E51 N10-N18
      4  345 1471 (N10E56 L=124)   389     63        1 ( 318/1440- 371/1505)  76.0 E57-E53 N08-N12
      5 1784 1279 (N25W49 L=229)  1755    357        5 (1653/1161-1918/1375) -11.3 W36-W66 N21-N27
      6 1488 1307 (N19W24 L=204)   285     78        0 (1450/1281-1522/1326) -11.3 W21-W26 N17-N20
      7  254 1022 (S18E54 L=126)  1278    197        3 ( 205/ 946- 297/1095) -66.0 E59-E49 S22-S13
      8 1324  900 (S08W20 L=200)   203     77        0 (1293/ 870-1349/ 928)  63.4 W18-W21 S10-S06
      9  588  755 (S30E24 L=156)   253     52        1 ( 566/ 732- 610/ 784) -76.0 E25-E22 S31-S27
     10  714  740 (S29E15 L=165)   635    196        1 ( 623/ 717- 808/ 771)   8.7 E21-E08 S29-S27
     11  273  601 (S44E60 L=120)   704     83        0 ( 230/ 576- 313/ 628)  10.0 E70-E53 S45-S41
     12 1414  542 (S27W37 L=217)   230     72        0 (1375/ 530-1451/ 556)  21.8 W33-W39 S27-S25
     13  438  431 (S55E46 L=134)   533     63        0 ( 415/ 408- 470/ 462)   0.0 E50-E40 S57-S52
     14 1617  387 (S30W66 L=246)  3677    296        6 (1471/ 342-1739/ 443)  24.8 W52-W80 S36-S23
  

    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