Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  437 1661 (N58E58 L= 29)   773     94        1 ( 391/1638- 479/1679)   3.2 E69-E50 N56-N59
      2 1565 1408 (N20W44 L=131)   741    200        0 (1519/1355-1628/1441) -26.6 W40-W49 N16-N21
      3 1281 1211 (N13W19 L=106)   236     71        0 (1242/1194-1313/1229)   0.0 W16-W21 N12-N14
      4  250 1060 (N17E56 L= 30)   508     42        3 ( 225/1037- 276/1083) -36.9 E59-E53 N15-N18
      5 1845  989 (S11W59 L=146)   661     51        1 (1815/ 967-1878/1006)   0.0 W55-W64 S12-S09
      6 1702  650 (S30W45 L=131)   367     14        0 (1683/ 630-1720/ 670) -36.9 W42-W46 S31-S28
      7 1011  565 (S22E08 L= 79)   929    267        1 ( 925/ 486-1090/ 666)  35.5 E15-E01 S26-S16
      8  534  548 (S17E41 L= 45)   606    150        1 ( 505/ 481- 572/ 601)  53.1 E44-E36 S21-S13
      9 1481  547 (S32W25 L=111)   377    116        0 (1441/ 500-1520/ 596)  39.8 W21-W27 S34-S29
     10 1544  501 (S37W31 L=117)   627    135        0 (1491/ 469-1599/ 545)  26.6 W25-W35 S38-S34
     11 1092  473 (S30E05 L= 82)   625    237        0 (1012/ 420-1188/ 528)  17.1 E11-W02 S32-S27
     12  642  420 (S27E38 L= 48)   641     87        1 ( 619/ 381- 668/ 461)  71.6 E40-E35 S30-S24
     13 1321  437 (S37W11 L= 98)   285     84        0 (1284/ 420-1359/ 457)   9.5 W08-W14 S38-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