Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  350 1348 (N28E51 L=150)   520    105        2 ( 301/1328- 410/1372)   0.0 E56-E44 N26-N29
      2 1730 1299 (N15W54 L=255)   418    119        0 (1690/1247-1766/1344) -54.5 W51-W56 N11-N18
      3 1032 1193 (N15W02 L=203)   339    166        1 ( 944/1179-1099/1207) -14.0 E03-W05 N13-N16
      4 1592 1163 (N09W39 L=240)   306    105        0 (1554/1123-1628/1200) -45.0 W36-W41 N06-N11
      5  215 1119 (N13E61 L=140)   438     67        1 ( 201/1090- 238/1149) -56.3 E63-E58 N11-N14
      6  936  940 (N00E06 L=195)   253     62        1 ( 905/ 916- 968/ 958)  14.0 E07-E03 S01-N01
      7 1440  915 (S05W26 L=227)   700    177        2 (1363/ 886-1522/ 948) -15.3 W20-W31 S06-S02
      8  316  752 (S10E53 L=148)   645    120        2 ( 292/ 693- 353/ 792)  74.1 E56-E48 S13-S06
      9  262  727 (S11E59 L=142)   413     51        1 ( 248/ 699- 279/ 758) -76.0 E61-E57 S13-S09
     10  867  650 (S18E13 L=188)   425    112        2 ( 822/ 623- 925/ 685)   8.1 E15-E08 S19-S15
     11 1490  589 (S27W30 L=231)   609    208        0 (1461/ 501-1528/ 680)  85.6 W28-W32 S33-S20
     12  741  509 (S27E24 L=177)   707    125        2 ( 701/ 467- 786/ 562)  36.9 E27-E19 S29-S23
     13  690  384 (S36E32 L=169)   584    107        1 ( 675/ 329- 719/ 430)  66.0 E35-E27 S41-S32
     14  669  250 (S49E44 L=157)   587     69        0 ( 648/ 228- 701/ 282) -63.4 E48-E41 S51-S45
  

    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