Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1795 (N57W30 L= 39)   372     59        1 ( 947/1774-1000/1814) -76.0 W26-W33 N54-N58
      2 1489 1523 (N22W46 L= 55)   885    177        3 (1413/1491-1561/1553) -37.9 W40-W50 N18-N25
      3 1510 1449 (N18W43 L= 52)   269     90        3 (1481/1422-1548/1471)   9.5 W40-W46 N16-N18
      4 1327 1351 (N18W27 L= 36)   457    106        1 (1280/1324-1374/1377) -59.0 W24-W29 N15-N20
      5 1142 1255 (N17W13 L= 22)   267     71        0 (1110/1232-1174/1280) -45.0 W11-W14 N15-N19
      6  598 1204 (N27E23 L=347)   211     53        0 ( 573/1183- 622/1227)   0.0 E24-E20 N26-N28
      7 1395 1064 (N00W22 L= 31)  1075    263        4 (1343/ 954-1448/1190)  39.3 W17-W28 S05-N05
      8 1525  807 (S18W25 L= 34)   291     70        1 (1496/ 789-1563/ 825) -45.0 W22-W27 S20-S16
      9 1691  612 (S37W37 L= 46)   763     61        1 (1650/ 581-1726/ 636) -18.4 W32-W41 S39-S34
     10 1395  588 (S28W12 L= 21)   485    128        2 (1340/ 566-1453/ 611) -20.6 W08-W16 S30-S25
     11 1571  496 (S42W25 L= 34)  1031    191        3 (1494/ 442-1651/ 541)   3.6 W17-W33 S43-S39
     12 1452  424 (S43W13 L= 22)   411     65        0 (1425/ 404-1485/ 451) -45.0 W11-W16 S45-S39
     13  810  296 (S33E38 L=332)   472     37        0 ( 791/ 271- 834/ 327)  68.2 E39-E35 S35-S30
     14  519  284 (S28E66 L=303)   662     68        0 ( 492/ 258- 545/ 310)  59.0 E68-E62 S30-S25
  

    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