Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  684 1749 (N57E33 L=276)   435     69        0 ( 643/1731- 728/1765)   5.7 E37-E26 N55-N58
      2  887 1531 (N38E07 L=302)   501    154        0 ( 816/1493- 961/1559)  10.3 E12-E01 N35-N39
      3  561 1527 (N39E35 L=274)   351     94        1 ( 519/1503- 608/1553) -18.4 E39-E30 N37-N41
      4 1779 1426 (N23W65 L= 14)  2583    213        9 (1732/1341-1839/1521)  71.6 W60-W71 N17-N29
      5 1670 1427 (N24W52 L=  1)   478     84        0 (1650/1380-1688/1470)  71.6 W50-W54 N21-N27
      6 1474 1391 (N24W34 L=343)   250     99        0 (1429/1376-1528/1408) -26.6 W30-W38 N22-N25
      7  257 1214 (N19E57 L=252)  1198    158        5 ( 228/1140- 288/1296)  90.0 E59-E53 N14-N23
      8 1819 1264 (N12W62 L= 11)   487     47        1 (1796/1244-1840/1286)   9.5 W59-W65 N11-N13
      9  994 1141 (N12E01 L=308)   374    174        0 ( 931/1096-1064/1168) -29.7 E05-W02 N08-N13
     10  122 1106 (N11E75 L=234)   870     81        1 ( 108/1062- 139/1148) -45.0 E79-E71 N08-N13
     11  385 1057 (N09E43 L=266)   385    120        1 ( 358/1014- 435/1090)  23.2 E45-E38 N06-N11
     12  677  892 (S02E22 L=286)  1541    443        1 ( 603/ 766- 808/1072) -58.6 E26-E14 S09-N09
     13 1528  939 (S04W32 L=340)   664    216        0 (1442/ 890-1600/1014)  18.4 W25-W37 S06-N00
     14  313  749 (S10E52 L=257)   436     99        0 ( 296/ 701- 325/ 798)  81.9 E54-E50 S13-S06
     15  314  622 (S18E56 L=252)  2304    375        4 ( 248/ 501- 400/ 730) -75.1 E63-E49 S26-S11
     16  948  565 (S24E08 L=301)   396    168        0 ( 874/ 544-1019/ 592) -24.0 E12-E03 S25-S21
     17 1138  432 (S35W04 L=313)   360     66        1 (1115/ 394-1162/ 467)  71.6 W02-W06 S37-S31
     18 1057  306 (S45E03 L=306)  1274    149        3 ( 996/ 249-1118/ 363)  31.0 E08-W02 S50-S39
     19  626  258 (S47E47 L=262)  1885    189        2 ( 538/ 233- 713/ 289)   7.4 E68-E35 S50-S44
  

    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