Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  656 1750 (N30E50 L=225)   640     87        1 ( 631/1708- 691/1777) -80.5 E53-E47 N26-N32
      2  554 1699 (N24E55 L=220)  1551    154        2 ( 499/1632- 621/1758) -73.3 E57-E51 N19-N29
      3  718 1721 (N30E43 L=232)   322     35        0 ( 700/1700- 735/1746) -56.3 E44-E41 N28-N31
      4 1163 1480 (N26E04 L=271)  1894    424        2 (1060/1278-1213/1636) -48.2 E14-W03 N14-N34
      5  475 1612 (N17E55 L=220)   425     30        1 ( 452/1595- 506/1632)  11.3 E57-E51 N15-N18
      6 1881 1134 (N26W60 L=335)  2155    264        1 (1825/1017-1930/1260) -42.7 W52-W69 N20-N33
      7  649 1178 (S04E25 L=250)   206     46        0 ( 631/1156- 664/1204)  90.0 E26-E24 S05-S02
      8  363 1136 (S13E45 L=230)   360    104        0 ( 348/1087- 382/1190) -51.3 E46-E42 S15-S09
      9 1490 1104 (N12W25 L=300)   279     70        0 (1478/1064-1501/1151) -78.7 W24-W26 N10-N15
     10  188 1079 (S20E62 L=213)   778    159        0 ( 154/1013- 247/1118)  38.7 E66-E55 S24-S16
     11  503  982 (S19E31 L=244)   592    171        0 ( 477/ 921- 540/1050) -76.0 E32-E27 S22-S14
     12  226  969 (S26E56 L=219)   856    163        0 ( 156/ 941- 281/1031)  28.1 E65-E50 S28-S20
     13 1669  869 (N04W44 L=319)   903    220        0 (1587/ 806-1717/ 958)  65.6 W39-W45 S01-N10
     14  517  500 (S50E24 L=251)  1640    263        1 ( 418/ 427- 622/ 588) -15.3 E34-E12 S53-S45
     15 1681  456 (S17W66 L=341)  1880    285        4 (1561/ 387-1790/ 522)  43.0 W59-W78 S24-S10
  

    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