Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1240 1642 (N45W18 L=128)  1333    246        3 (1179/1547-1284/1719)  57.3 W12-W24 N37-N51
      2 1565 1608 (N42W47 L=157)  1150    146        2 (1533/1557-1598/1663)  82.9 W43-W49 N37-N45
      3  481 1530 (N35E44 L= 66)   569    106        1 ( 461/1483- 509/1562) -51.3 E46-E41 N31-N36
      4  763 1453 (N30E19 L= 91)   425    114        1 ( 742/1398- 779/1510) -82.9 E20-E17 N26-N34
      5  435 1385 (N25E44 L= 67)   568    145        0 ( 384/1301- 485/1441)  60.9 E46-E40 N19-N28
      6 1392 1304 (N21W25 L=135)   400     89        0 (1353/1269-1444/1335) -38.7 W21-W27 N18-N22
      7  671 1174 (N12E23 L= 87)   413    112        0 ( 649/1119- 706/1234)  81.9 E24-E20 N08-N15
      8 1393 1217 (N15W24 L=134)   317    121        1 (1332/1194-1453/1234)   0.0 W19-W28 N13-N16
      9  897 1175 (N13E08 L=102)   211     78        1 ( 880/1132- 920/1214) -59.0 E09-E06 N09-N14
     10 1332 1121 (N09W19 L=130)   627    231        0 (1257/1069-1457/1186) -28.3 W14-W27 N06-N13
     11  341 1015 (N01E47 L= 63)   453    118        1 ( 296/ 978- 386/1056)  33.7 E51-E43 S01-N03
     12 1687  861 (S07W46 L=156)   350     74        1 (1671/ 831-1707/ 893) -56.3 W44-W47 S09-S05
     13  599  832 (S09E27 L= 83)   218    104        0 ( 554/ 812- 654/ 858) -15.9 E30-E23 S10-S07
     14  263  709 (S19E57 L= 53)   422     84        2 ( 250/ 666- 279/ 746)  78.7 E58-E55 S21-S16
     15  539  644 (S22E33 L= 77)   539    117        0 ( 491/ 619- 595/ 681) -14.0 E36-E28 S23-S19
     16  364  611 (S25E49 L= 61)   955    233        2 ( 294/ 588- 425/ 643)  12.1 E56-E42 S26-S22
     17  857  379 (S41E13 L= 97)  1420    261        1 ( 780/ 317- 961/ 458)  36.9 E20-E04 S46-S33
     18  698  398 (S39E26 L= 84)   340     56        1 ( 675/ 371- 715/ 424) -56.3 E27-E23 S41-S37
     19 1606  388 (S41W52 L=162)   479     60        1 (1590/ 369-1625/ 414) -63.4 W49-W54 S42-S38
     20 1496  355 (S43W42 L=153)   949    171        1 (1431/ 335-1563/ 372)  10.3 W36-W48 S44-S41
  

    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