Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  855 1811 (N37E41 L=138)   628     78        1 ( 814/1791- 889/1832)  -6.3 E46-E37 N35-N38
      2  812 1744 (N31E38 L=141)   508     59        1 ( 787/1715- 843/1769)  56.3 E40-E35 N28-N32
      3 1008 1509 (N21E15 L=164)   770    293        1 ( 949/1391-1071/1641) -36.9 E23-E07 N15-N27
      4 1640 1621 (N53W30 L=209)   490     49        1 (1610/1599-1670/1638)  14.0 W26-W34 N50-N54
      5  576 1529 (N11E42 L=137)   417     69        0 ( 541/1501- 602/1552)   0.0 E44-E39 N09-N12
      6  503 1389 (N01E41 L=138)  1024    212        2 ( 459/1291- 532/1481) -48.0 E46-E37 S04-N06
      7  235 1405 (S03E67 L=112)   616     58        0 ( 207/1388- 269/1426)   0.0 E72-E62 S03-S01
      8  273 1278 (S10E57 L=122)   503     95        1 ( 259/1229- 291/1329) -50.2 E59-E53 S12-S06
      9  951 1213 (N02E09 L=170)   182     67        0 ( 936/1178- 967/1248) -76.0 E09-E08 N00-N04
     10 1398 1186 (N13W16 L=195)   531    150        1 (1359/1112-1418/1247) -60.3 W12-W18 N09-N16
     11  289 1057 (S22E50 L=130)   420     95        0 ( 267/1008- 319/1100) -45.0 E52-E45 S24-S19
     12  607  996 (S18E23 L=156)  1139    301        2 ( 486/ 910- 707/1087)  53.7 E30-E19 S25-S10
     13 1848  938 (N15W57 L=236)   571     72        2 (1834/ 896-1865/ 979)  90.0 W55-W59 N12-N17
     14 1779  859 (N08W53 L=232)   332     54        0 (1766/ 825-1789/ 890) -45.0 W50-W54 N06-N09
     15  860  784 (S23E03 L=176)  1595    398        2 ( 667/ 745-1036/ 833)  33.0 E14-W06 S30-S16
     16  404  677 (S43E35 L=144)  1242    170        2 ( 338/ 631- 491/ 716)  25.2 E43-E26 S47-S38
     17 1548  631 (S12W43 L=223)   533    149        0 (1501/ 572-1586/ 700) -83.7 W42-W45 S15-S06
     18 1323  525 (S24W34 L=213)   428     86        0 (1277/ 502-1371/ 548)  45.0 W31-W36 S26-S21
     19 1722  470 (S13W70 L=249)  2002    126        3 (1686/ 428-1763/ 516) -71.6 W64-W77 S16-S10
     20 1321  421 (S30W40 L=219)   620    214        0 (1233/ 403-1425/ 452)  23.2 W32-W47 S32-S26
     21 1122  233 (S49W44 L=223)  1932    309        2 ( 982/ 170-1221/ 315)   0.0 W26-W60 S50-S45
  

    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