Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  359 1504 (N53E50 L=  0)   522     85        1 ( 318/1485- 402/1520)   0.0 E57-E42 N51-N54
      2  772 1072 (N16E14 L= 37)   833    188        4 ( 694/1015- 825/1142) -59.0 E17-E10 N11-N21
      3  185 1100 (N28E64 L=346)   553     78        1 ( 156/1078- 221/1124) -10.3 E69-E58 N26-N29
      4 1789  883 (S22W49 L= 99)  3530    637        6 (1583/ 669-1924/1109)  19.7 W27-W70 S30-S13
      5  814  926 (N06E14 L= 36)   646    157        3 ( 782/ 857- 840/ 999)  49.4 E17-E11 N03-N10
      6  492  954 (N14E35 L= 16)   353    142        0 ( 474/ 909- 541/ 989)  68.2 E36-E30 N11-N16
      7  196  917 (N17E64 L=347)   632    148        0 ( 178/ 853- 230/ 986) -63.4 E65-E60 N12-N20
      8 1620  838 (S19W33 L= 83)  1209    253        2 (1559/ 724-1684/ 923)  36.9 W26-W39 S24-S15
      9  729  726 (S03E24 L= 26)   431    119        0 ( 705/ 676- 757/ 789)  63.4 E25-E22 S06-N00
     10 1831  731 (S34W55 L=105)   674     82        1 (1797/ 697-1858/ 764)  23.2 W49-W58 S35-S31
     11  951  536 (S20E17 L= 34)   326     86        1 ( 903/ 510- 990/ 552) -38.7 E19-E14 S22-S17
     12 1160  347 (S39E10 L= 40)  1562    268        2 (1077/ 265-1232/ 454)  31.4 E20-E02 S43-S32
     13  869  378 (S29E28 L= 22)   395     94        0 ( 828/ 364- 916/ 398) -36.9 E30-E24 S30-S26
  

    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