Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1754 (N50E01 L=273)   333     63        1 (1331/1741-1391/1766)  11.3 E03-W02 N48-N52
      2  558 1675 (N20E50 L=224)   790    122        3 ( 502/1650- 612/1695)  29.7 E54-E46 N17-N22
      3  860 1457 (N13E21 L=253)   780    310        0 ( 811/1360- 910/1602) -45.0 E28-E15 N08-N21
      4  255 1325 (S07E60 L=213)   588     68        2 ( 226/1301- 279/1350)  21.8 E63-E57 S08-S05
      5  208 1166 (S17E60 L=214)  4442    936       22 ( 119/1001- 334/1286)   0.0 E70-E46 S27-S09
      6  711  989 (S17E17 L=257)   824    284        0 ( 598/ 956- 874/1020)  19.4 E24-E07 S19-S13
      7  183  948 (S30E58 L=216)   876    208        1 ( 134/ 925- 245/ 983)  18.4 E63-E51 S31-S27
      8  379  940 (S27E40 L=234)   565    138        0 ( 323/ 924- 436/ 960)  12.5 E44-E35 S28-S24
      9 1370  869 (S06W23 L=297)   626    154        2 (1317/ 793-1417/ 922) -21.8 W18-W28 S08-S04
     10  910  807 (S22E01 L=273)  1510    565        2 ( 630/ 708-1155/ 890)  14.8 E18-W16 S30-S16
     11 1365  591 (S21W33 L=307)   374    104        0 (1329/ 548-1396/ 628) -14.0 W29-W37 S22-S19
     12 1095  465 (S37W23 L=297)   732    147        1 (1020/ 409-1143/ 528) -13.0 W15-W28 S38-S34
     13 1610  405 (S22W61 L=335)   466     81        1 (1589/ 378-1635/ 435)  63.4 W58-W62 S24-S20
  

    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