Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  537 1704 (N24E57 L=222)  2842    438        6 ( 408/1604- 683/1782)  53.1 E62-E48 N15-N32
      2 1115 1485 (N25E07 L=271)  2026    502        6 (1010/1248-1165/1653) -46.4 E19-W01 N11-N34
      3  680 1467 (N13E32 L=246)   292     78        2 ( 650/1446- 708/1496)  76.0 E34-E30 N10-N14
      4  480 1371 (N03E42 L=236)   286     65        0 ( 457/1338- 499/1394) -21.8 E44-E39 N01-N04
      5 1867 1137 (N26W58 L=336)  2846    379        5 (1795/1022-1937/1273) -34.5 W48-W71 N19-N33
      6 1446 1125 (N12W22 L=300)   282     75        0 (1433/1086-1458/1174) -68.2 W20-W22 N10-N15
      7  158 1027 (S23E66 L=213)  2350    308        2 ( 111/ 949- 228/1127)  34.5 E74-E56 S27-S16
      8  628 1060 (S12E24 L=254)   329    200        1 ( 587/ 972- 667/1123)  78.7 E24-E22 S17-S07
      9  461  985 (S20E34 L=244)   456    147        0 ( 437/ 941- 510/1042) -38.7 E35-E29 S21-S16
     10 1638  899 (N05W40 L=319)   973    241        3 (1574/ 825-1679/1019)  85.2 W36-W42 N00-N12
     11 1099  576 (S27W17 L=295)   593    107        1 (1051/ 554-1150/ 610)  18.4 W14-W20 S29-S25
     12  489  517 (S50E27 L=251)  1746    274        0 ( 395/ 444- 603/ 605) -12.3 E37-E14 S52-S45
     13 1666  470 (S17W64 L=342)  1521    313        4 (1543/ 402-1771/ 527)  43.0 W55-W73 S24-S10
     14 1522  342 (S28W61 L=340)   545     78        1 (1488/ 310-1542/ 363)   0.0 W57-W67 S29-S26
  

    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