Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1351 1714 (N49E01 L=336)   817    101        2 (1316/1672-1388/1759) -32.0 E05-W03 N46-N52
      2  717 1634 (N22E39 L=299)   644    112        5 ( 684/1594- 761/1670)  59.0 E41-E34 N19-N25
      3 1087 1457 (N21E09 L=328)  1226    458        2 (1045/1271-1142/1670) -71.6 E14-E03 N09-N36
      4  909 1620 (N26E26 L=311)   277     87        0 ( 884/1580- 932/1663) -29.7 E29-E22 N24-N28
      5  563 1570 (N14E46 L=291)  1087    210        3 ( 496/1494- 622/1661) -80.5 E49-E43 N08-N20
      6 1595 1510 (N43W25 L=  3)  2193    335        1 (1458/1408-1712/1585)  -6.6 W12-W38 N39-N45
      7 1397 1256 (N18W15 L=352)   620    327        0 (1294/1120-1439/1345) -32.7 W06-W20 N11-N21
      8  200 1153 (S18E63 L=274)  1317    156        3 ( 169/1084- 221/1238)  84.3 E66-E60 S22-S12
      9 1560 1160 (N18W28 L=  5)   590    104        1 (1536/1101-1576/1209) -71.6 W25-W30 N14-N20
     10 1766  900 (N10W51 L= 28)   439     82        2 (1743/ 867-1800/ 938) -21.8 W48-W55 N07-N12
     11  949  715 (S24W05 L=342)  1417    410        2 ( 884/ 617-1095/ 876) -30.5 E01-W16 S28-S15
     12  566  714 (S35E21 L=316)   774    259        0 ( 454/ 692- 700/ 736)  25.3 E30-E11 S39-S30
     13 1145  652 (S22W18 L=355)   203     94        2 (1101/ 635-1191/ 667)  45.0 W15-W20 S24-S20
     14  625  549 (S45E13 L=324)   855    179        3 ( 546/ 520- 693/ 582)  12.1 E20-E06 S47-S41
     15 1545  449 (S21W55 L= 32)   929    248        2 (1434/ 419-1665/ 474)  30.5 W47-W65 S25-S15
  

    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