Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  433 1649 (N36E62 L= 65)   810    111        0 ( 392/1612- 478/1686)  63.4 E65-E59 N32-N39
      2 1059 1605 (N40E04 L=124)   639    149        1 ( 987/1575-1107/1640) -11.3 E10-W00 N37-N42
      3  599 1490 (N27E35 L= 92)  1151    189        4 ( 542/1411- 653/1557) -33.7 E42-E29 N22-N30
      4  868 1381 (N22E14 L=114)   295    120        1 ( 827/1338- 896/1431)  63.4 E15-E11 N19-N25
      5 1179 1364 (N24W07 L=135)   324     99        2 (1159/1308-1197/1411) -74.1 W05-W08 N20-N27
      6  175 1060 (S04E65 L= 63)  1239    136        5 ( 154/ 989- 197/1118) -69.4 E68-E61 S08-N00
      7  817  780 (S15E11 L=117)  1987    535        1 ( 638/ 632- 965/ 972)  52.8 E22-E02 S26-S01
      8 1455  759 (S11W30 L=158)   263     63        1 (1433/ 727-1479/ 786)  76.0 W28-W32 S13-S09
      9 1643  742 (S11W45 L=173)   404     71        2 (1628/ 699-1659/ 780)  90.0 W43-W46 S13-S08
     10 1777  680 (S14W61 L=188)   749     99        2 (1726/ 653-1826/ 706)  -4.1 W54-W68 S15-S12
     11 1459  615 (S20W34 L=161)   629    215        3 (1370/ 577-1533/ 645)  31.0 W27-W38 S23-S17
     12  571  595 (S30E29 L= 99)   650     88        3 ( 525/ 570- 612/ 627)   8.1 E32-E25 S32-S27
     13 1601  462 (S30W53 L=180)  1963    410        4 (1457/ 391-1729/ 583)  41.4 W41-W62 S35-S20
     14  347  489 (S41E58 L= 70)  1402    152        1 ( 303/ 434- 408/ 540)  16.4 E79-E45 S46-S36
     15  545  327 (S53E42 L= 86)   479     57        0 ( 523/ 311- 579/ 348)  -9.5 E46-E36 S54-S50
  

    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