Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1611 1342 (N06W44 L=265)   512     95        2 (1574/1308-1642/1370) -78.7 W41-W47 N03-N08
      2 1484 1227 (N04W31 L=253)   723    208        1 (1413/1151-1557/1314)  21.0 W25-W38 N00-N06
      3 1224 1284 (N14W18 L=239)   267     54        0 (1200/1258-1257/1304)   0.0 W16-W20 N12-N14
      4  954 1069 (N09E03 L=219)   650    139        5 ( 909/1016-1004/1116)  33.7 E05-W01 N06-N11
      5 1607 1029 (S11W34 L=255)   324    119        0 (1572/ 989-1647/1084) -74.1 W32-W36 S13-S06
      6  153  958 (N21E65 L=156)   485     83        3 ( 133/ 912- 170/ 994) -90.0 E68-E62 N17-N22
      7  247  947 (N18E54 L=167)   563     90        1 ( 221/ 904- 285/ 987)  20.6 E57-E49 N16-N20
      8  972  908 (S00E06 L=216)   220    118        0 ( 925/ 889-1026/ 923)  -9.5 E08-E02 S01-N01
      9 1913  890 (S29W63 L=284)   645     88        0 (1879/ 873-1947/ 912)  -8.7 W57-W70 S30-S26
     10  597  770 (N01E31 L=190)   555    167        0 ( 551/ 683- 627/ 826) -90.0 E32-E29 S04-N05
     11 1291  679 (S21W06 L=227)  1133    276        0 (1237/ 557-1351/ 801)  42.5 W00-W12 S27-S15
     12 1751  673 (S37W42 L=263)  1748    177        1 (1674/ 622-1817/ 740)   0.0 W33-W49 S39-S33
     13 1028  671 (S15E09 L=212)   270     67        1 (1009/ 642-1047/ 707)  63.4 E10-E07 S16-S12
     14  537  585 (S08E41 L=180)   986    261        1 ( 496/ 520- 614/ 685) -90.0 E45-E36 S13-S02
     15  734  584 (S12E28 L=193)   864    260        2 ( 638/ 535- 829/ 629)   0.0 E35-E21 S16-S10
     16  801  426 (S24E31 L=190)  1186    318        3 ( 723/ 304- 893/ 537)  84.0 E33-E28 S34-S15
     17  440  411 (S16E59 L=163)  1017    148        5 ( 382/ 363- 476/ 480)  83.7 E62-E55 S20-S11
     18  544  415 (S18E49 L=172)   672    120        3 ( 506/ 379- 572/ 469)  12.5 E53-E44 S20-S14
     19 1135  404 (S35E12 L=210)   467    127        0 (1090/ 357-1168/ 461)  29.1 E16-E07 S37-S31
     20  735  402 (S24E36 L=185)   368     89        0 ( 721/ 349- 751/ 450)  50.2 E40-E33 S26-S20
     21  657  413 (S21E41 L=180)   311     57        0 ( 630/ 392- 691/ 428) -14.0 E42-E38 S22-S19
     22  492  317 (S24E62 L=159)  1838    189        5 ( 424/ 275- 573/ 355)   3.5 E84-E51 S26-S21
     23  665  326 (S27E46 L=175)   303     56        0 ( 641/ 308- 696/ 348) -63.4 E47-E44 S28-S24
  

    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