Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1625 (N46E33 L=305)   350     79        1 ( 583/1603- 664/1642)  15.9 E36-E29 N44-N47
      2 1306 1621 (N42W27 L=  5)   587    152        1 (1225/1598-1373/1638)  -4.8 W20-W32 N40-N43
      3  550 1500 (N36E35 L=303)  1819    359        3 ( 442/1413- 646/1549) -21.8 E45-E25 N30-N39
      4 1634 1440 (N27W48 L= 26)   344     50        0 (1606/1422-1663/1458) -21.8 W45-W50 N25-N27
      5  968 1370 (N26E02 L=336)   906    281        3 ( 811/1322-1089/1416) -18.4 E13-W05 N22-N29
      6 1222 1236 (N17W14 L=352)   875    162        2 (1156/1160-1277/1296) -52.1 W09-W16 N11-N20
      7 1826 1249 (N13W62 L= 40)   968    206        0 (1766/1185-1883/1295) -30.3 W56-W69 N08-N15
      8  502 1193 (N16E34 L=304)   448    177        0 ( 479/1106- 530/1267) -73.3 E36-E32 N10-N20
      9  286  912 (S01E53 L=285)   524    112        3 ( 246/ 892- 324/ 941)   0.0 E57-E49 S02-N00
     10 1633  877 (S08W40 L= 18)   828    196        0 (1577/ 824-1705/ 940) -36.0 W35-W46 S12-S03
     11 1223  784 (S11W11 L=350)   317     79        2 (1202/ 746-1245/ 833)  68.2 W10-W12 S13-S08
     12 1338  547 (S28W20 L=358)  2345    456        6 (1159/ 439-1506/ 694)  32.0 W07-W31 S35-S18
     13 1059  623 (S21W01 L=339)   589    150        1 ( 986/ 577-1119/ 670)  32.0 E04-W04 S23-S18
  

    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