Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1187 1741 (N49W34 L=178)  1880    382        3 (1019/1704-1351/1772) -12.7 W16-W47 N43-N52
      2 1594 1716 (N36W74 L=218)   754     56        2 (1569/1688-1623/1736)   3.0 W66-W85 N34-N37
      3 1154 1617 (N41W23 L=167)   386     68        1 (1123/1597-1190/1634) -36.9 W20-W26 N38-N42
      4 1317 1609 (N37W35 L=179)   427     75        1 (1284/1584-1361/1629) -26.6 W32-W39 N35-N38
      5 1676 1376 (N14W52 L=197)   435     88        0 (1647/1335-1711/1415) -80.5 W50-W54 N11-N17
      6 1576 1394 (N18W45 L=189)   456    144        0 (1511/1374-1635/1414) -18.4 W39-W49 N15-N19
      7 1333 1189 (N11W22 L=166)   772    261        1 (1234/1145-1433/1235) -18.4 W16-W28 N07-N15
      8 1872 1066 (S08W63 L=207)  4676    367        9 (1767/ 932-1933/1181)  31.4 W49-W75 S13-S02
      9  317 1079 (N19E49 L= 95)   909    197        0 ( 293/ 994- 351/1180) -71.6 E51-E45 N13-N25
     10  729 1032 (N11E18 L=126)   385    117        1 ( 702/ 981- 756/1091)  56.3 E20-E15 N08-N14
     11 1339 1018 (N01W19 L=163)   669    245        0 (1228/ 988-1454/1036)  -7.6 W11-W26 S01-N02
     12  858  941 (N04E11 L=133)   218     53        1 ( 835/ 917- 886/ 969) -56.3 E12-E09 N02-N05
     13 1549  911 (S10W31 L=175)  1174    195        4 (1468/ 859-1632/ 965)  -9.5 W25-W37 S11-S07
     14 1436  861 (S10W23 L=167)   458     89        3 (1397/ 823-1478/ 901) -59.0 W20-W25 S12-S07
     15 1370  841 (S10W18 L=162)   358     69        1 (1351/ 806-1391/ 878)  63.4 W16-W19 S12-S07
     16 1525  799 (S16W28 L=172)   782    209        3 (1456/ 713-1565/ 874)  41.6 W22-W31 S20-S11
     17  342  837 (N04E49 L= 95)   389     73        1 ( 311/ 809- 374/ 871) -38.7 E51-E46 N02-N06
     18  349  656 (S07E53 L= 91)  1435    204        4 ( 300/ 564- 386/ 733)  65.6 E58-E49 S13-S02
     19  749  671 (S11E23 L=121)   446    147        0 ( 691/ 623- 795/ 731)  29.1 E27-E18 S13-S07
     20  460  673 (S07E43 L=101)   334     57        1 ( 435/ 643- 481/ 708)  56.3 E44-E41 S09-S04
     21 1596  606 (S31W33 L=177)  1073    174        2 (1544/ 552-1645/ 663)  36.9 W28-W37 S33-S27
     22  591  626 (S11E34 L=110)   348     67        0 ( 567/ 604- 622/ 656) -76.0 E36-E32 S13-S09
     23  519  560 (S15E42 L=102)  1269    170        4 ( 463/ 494- 586/ 624) -60.9 E46-E39 S20-S10
     24  596  431 (S25E42 L=102)   447    120        0 ( 582/ 375- 614/ 481)  49.4 E44-E38 S28-S21
     25  400  379 (S27E67 L= 77)   813     44        2 ( 377/ 355- 421/ 402) -56.3 E71-E62 S29-S25
     26  723  369 (S31E35 L=109)   320     37        0 ( 696/ 355- 756/ 384) -11.3 E37-E32 S31-S29
     27 1104  222 (S52E13 L=131)   689     87        0 (1073/ 197-1147/ 251) -45.0 E15-E08 S54-S47
  

    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