Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  877 1857 (N57E38 L= 84)   664     99        1 ( 825/1840- 929/1869)   4.4 E44-E31 N55-N58
      2  775 1701 (N41E32 L= 89)   339     64        1 ( 744/1679- 807/1719) -15.9 E35-E28 N39-N42
      3  662 1633 (N34E38 L= 84)   432     93        0 ( 632/1593- 691/1673) -29.1 E42-E33 N31-N36
      4  945 1632 (N38E16 L=106)   602    142        1 ( 891/1605-1021/1651)   5.7 E20-E10 N35-N39
      5 1426 1405 (N29W22 L=144)  2192    456        2 (1219/1321-1606/1475)  -5.9 W07-W37 N24-N31
      6  405 1130 (S01E42 L= 80)   495    137        1 ( 375/1072- 425/1193)  71.6 E43-E40 S04-N02
      7 1617 1141 (N15W38 L=159)   252     54        0 (1607/1100-1631/1169)  76.0 W36-W38 N12-N16
      8  182 1060 (S08E63 L= 58)  1029    233        0 ( 163/ 960- 220/1159)  81.3 E65-E59 S14-S01
      9  622 1072 (S02E25 L= 96)   445    124        0 ( 568/1030- 668/1103)  33.7 E28-E22 S04-N00
     10 1547 1046 (N08W33 L=155)   241     27        1 (1525/1029-1571/1066)  18.4 W31-W34 N06-N09
     11 1686  700 (S11W50 L=172)   667    145        0 (1634/ 643-1729/ 757)  58.0 W47-W53 S14-S06
     12 1780  592 (S16W67 L=188)   832    120        0 (1744/ 539-1803/ 646)  90.0 W64-W69 S20-S12
     13 1656  498 (S24W58 L=179)  1860    255        3 (1515/ 472-1752/ 528)  11.3 W44-W70 S26-S21
     14  853  480 (S37E04 L=118)   320     83        1 ( 812/ 460- 883/ 500)   9.5 E07-E01 S38-S34
  

    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