Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1533 (N28W28 L=313)   535     68        2 (1181/1502-1264/1554) -18.4 W24-W30 N25-N29
      2 1610 1530 (N15W54 L=339)   980    127        1 (1541/1504-1678/1549) -18.4 W48-W60 N13-N18
      3  256 1338 (N43E53 L=232)   650    103        1 ( 214/1304- 306/1362)   4.8 E58-E45 N41-N44
      4 1289 1287 (N12W22 L=307)  1218    422        0 (1131/1188-1456/1344) -43.0 W13-W28 N02-N18
      5 1752 1282 (S02W53 L=338)   759    123        1 (1692/1249-1798/1306) -24.0 W47-W56 S04-N00
      6 1856 1187 (S10W60 L=345)  1554    211        3 (1825/1087-1904/1256)  36.0 W54-W69 S15-S06
      7 1794 1168 (S09W53 L=338)   589    107        2 (1773/1110-1818/1222)  56.3 W49-W56 S12-S06
      8  802 1124 (N16E10 L=275)   475    186        1 ( 779/1040- 848/1206)  84.8 E11-E08 N10-N21
      9  315 1010 (N21E46 L=239)   365     93        0 ( 289/ 979- 355/1048) -50.2 E48-E43 N18-N24
     10 1715  791 (S28W38 L=323)  2512    534        0 (1572/ 555-1843/ 979)  31.8 W23-W53 S39-S20
     11  705  895 (N06E21 L=264)   625    127        2 ( 645/ 870- 774/ 928) -29.7 E24-E17 N03-N08
     12  273  891 (N15E52 L=233)   379     75        0 ( 247/ 871- 307/ 921) -31.0 E54-E49 N14-N17
     13  155  747 (N09E72 L=213)  1777    154        3 ( 113/ 705- 204/ 797)   8.1 E86-E65 N06-N11
     14 1363  701 (S22W11 L=296)   518    146        1 (1310/ 648-1415/ 763)  24.0 W06-W15 S23-S19
     15  285  693 (N04E58 L=227)   344     56        1 ( 265/ 664- 304/ 719)  21.8 E61-E55 N02-N05
     16  715  591 (S11E29 L=256)  1308    356        2 ( 641/ 531- 787/ 688) -84.8 E32-E24 S15-S04
     17  384  445 (S13E62 L=223)  4826    652       16 ( 261/ 298- 528/ 567) -74.1 E73-E52 S24-S03
     18  556  502 (S13E44 L=241)   431    100        0 ( 520/ 457- 598/ 539) -81.9 E45-E42 S16-S09
     19 1432  396 (S45W08 L=293)   524    124        2 (1397/ 343-1463/ 459)  58.0 W04-W12 S49-S41
     20 1010  319 (S36E24 L=261)  1010    118        4 ( 955/ 279-1055/ 368)  24.0 E28-E19 S39-S33
     21  894  153 (S46E48 L=237)   567     56        1 ( 867/ 123- 921/ 182)  45.0 E53-E44 S49-S42
  

    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