Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1197 1670 (N39W11 L=162)   549    137        0 (1143/1637-1262/1691)  11.3 W06-W16 N36-N40
      2  362 1615 (N34E55 L= 96)  1857    286        3 ( 315/1577- 415/1668) -21.8 E64-E49 N30-N39
      3  232 1395 (N19E61 L= 91)   655    147        3 ( 209/1354- 253/1439) -78.7 E63-E57 N16-N21
      4  257 1309 (N13E56 L= 96)   606    108        2 ( 220/1252- 285/1355)  63.4 E59-E53 N09-N15
      5  718 1261 (N10E19 L=132)   193     84        0 ( 692/1224- 740/1310) -59.0 E21-E17 N07-N12
      6  622 1243 (N08E26 L=126)   297    107        0 ( 565/1230- 671/1256)  -8.1 E29-E22 N07-N09
      7  595 1096 (S00E27 L=125)   268     74        3 ( 561/1068- 621/1127) -14.0 E28-E24 S02-N01
      8  321 1029 (S04E47 L=104)   309     42        0 ( 301/1006- 339/1056)  45.0 E48-E45 S05-S02
      9  255 1025 (S04E53 L= 98)   341     68        2 ( 234/ 999- 281/1050)  71.6 E55-E50 S05-S02
     10 1566  800 (S15W36 L=188)   943    286        2 (1458/ 681-1646/ 919)  58.0 W30-W41 S23-S07
     11 1365  853 (S13W22 L=173)   496    104        1 (1306/ 820-1415/ 891)  33.7 W18-W24 S15-S10
     12  277  713 (S23E54 L= 97)  1024    218        2 ( 231/ 657- 323/ 774)  32.5 E60-E49 S26-S19
     13  578  574 (S33E31 L=120)   790    225        5 ( 497/ 542- 652/ 617)  15.9 E38-E24 S34-S29
  

    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