Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  929 1715 (N43E06 L= 77)   727    156        2 ( 894/1650- 967/1776) -55.0 E09-E02 N37-N48
      2 1575 1555 (N30W42 L=125)  2613    407        4 (1402/1475-1740/1645) -25.6 W30-W56 N24-N36
      3  632 1557 (N31E27 L= 56)   505     98        1 ( 579/1532- 678/1580) -14.0 E31-E23 N29-N33
      4 1342 1473 (N24W22 L=105)   301    104        0 (1284/1459-1388/1485)  -8.1 W18-W25 N23-N24
      5 1534 1334 (N15W34 L=116)   624    174        0 (1511/1240-1555/1405) -90.0 W32-W34 N09-N19
      6 1709 1360 (N17W48 L=131)   413     65        0 (1696/1318-1728/1396)  59.0 W46-W50 N14-N19
      7 1841 1278 (N12W60 L=143)  2872    278        8 (1794/1198-1929/1366) -35.5 W55-W71 N07-N17
      8 1903 1274 (N12W69 L=152)   635     66        2 (1882/1243-1922/1311) -90.0 W65-W72 N10-N14
      9  309  773 (S15E51 L= 32)  3202    658        9 ( 215/ 487- 354/1053)  75.2 E65-E46 S33-N01
     10  157  971 (S03E64 L= 19)   408     54        4 ( 127/ 954- 185/ 992) -15.9 E67-E60 S03-S01
     11 1066  927 (S09W02 L= 85)   296     69        1 (1043/ 890-1089/ 960) -45.0 W00-W03 S10-S06
     12  166  803 (S13E66 L= 16)  4747    318       11 (  83/ 695- 262/ 943) -65.0 E79-E56 S19-S04
     13  466  872 (S10E36 L= 46)   303     90        1 ( 428/ 853- 511/ 901)   0.0 E39-E32 S11-S08
     14 1048  853 (S13W01 L= 84)   290    111        0 (1021/ 815-1083/ 900) -68.2 W00-W03 S15-S10
     15  249  829 (S12E55 L= 27)   383     76        0 ( 233/ 788- 265/ 871) -78.7 E56-E54 S14-S09
     16  814  741 (S19E14 L= 69)   800    272        1 ( 746/ 653- 858/ 845)  70.0 E19-E10 S24-S12
     17  615  679 (S23E28 L= 55)   830    239        1 ( 534/ 642- 721/ 750) -36.0 E32-E20 S25-S17
     18 1564  622 (S28W38 L=120)   390     71        1 (1534/ 593-1599/ 654)  45.0 W35-W40 S29-S25
     19 1394  551 (S33W26 L=108)   643    182        1 (1301/ 533-1484/ 572)   8.1 W18-W32 S33-S31
     20 1001  387 (S44E04 L= 79)  1098    328        2 ( 852/ 321-1134/ 443)  19.2 E17-W06 S48-S39
  

    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