Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  986 1625 (N31E20 L=232)  1973    317        5 ( 880/1532-1076/1692) -17.5 E29-E10 N25-N33
      2  777 1580 (N22E31 L=221)  1173    237        2 ( 715/1504- 869/1658)  77.0 E32-E28 N16-N29
      3 1487 1333 (N26W21 L=272)  2666    517        2 (1350/1117-1554/1502) -51.3 W08-W28 N14-N35
      4  590 1382 (N06E35 L=217)   412    150        1 ( 543/1322- 635/1440)  83.7 E36-E33 N01-N10
      5  179 1229 (S11E67 L=185)   873     90        0 ( 149/1192- 201/1275)  51.3 E71-E64 S12-S07
      6  853 1218 (N03E14 L=238)   207    103        0 ( 823/1203- 889/1252) -14.0 E16-E12 N01-N04
      7  146 1108 (S18E69 L=183)  2545    257        2 (  79/1028- 224/1198)  21.8 E89-E59 S23-S11
      8  400  985 (S21E39 L=213)   761    195        1 ( 335/ 924- 489/1028)  39.3 E43-E32 S25-S16
      9 1764  961 (N12W49 L=301)   447     76        1 (1746/ 918-1777/1009) -80.5 W47-W50 N09-N15
     10  837  854 (S18E07 L=245)   446    196        0 ( 803/ 792- 897/ 898)  71.6 E08-E03 S20-S14
     11  422  863 (S27E35 L=217)   550    122        1 ( 367/ 848- 489/ 880)  21.8 E40-E29 S28-S24
     12 1295  795 (S10W21 L=273)   388    150        0 (1233/ 760-1359/ 817)  12.5 W17-W26 S11-S08
     13  729  401 (S51E02 L=250)  1764    274        3 ( 625/ 315- 829/ 498) -16.9 E13-W10 S54-S45
     14  936  249 (S55W25 L=277)   336     23        0 ( 913/ 232- 957/ 268) -76.0 W22-W27 S57-S53
  

    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