Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  654 1719 (N24E47 L=239)   652     82        1 ( 612/1691- 700/1741)   0.0 E51-E42 N22-N25
      2 1232 1669 (N38E08 L=279)   518    159        0 (1162/1625-1300/1704)  -4.8 E13-E01 N37-N39
      3 1336 1612 (N38W01 L=288)   275     27        1 (1312/1589-1360/1632)  56.3 W00-W02 N35-N39
      4 1460 1560 (N39W12 L=299)   370     78        1 (1422/1527-1499/1586)  -8.1 W08-W15 N37-N39
      5  746 1470 (N11E29 L=258)   630    223        1 ( 681/1393- 810/1556) -24.8 E35-E22 N07-N14
      6  353 1491 (N04E58 L=229)   785    107        3 ( 321/1436- 381/1538) -28.6 E64-E53 N00-N06
      7  209 1282 (S11E64 L=223)   438     61        1 ( 189/1260- 242/1305)  31.0 E67-E60 S12-S09
      8 1605 1249 (N23W29 L=315)   294     68        0 (1571/1224-1641/1273)   0.0 W25-W31 N22-N24
      9  122 1117 (S22E73 L=214)   622    131        1 (  99/1048- 153/1170)  45.0 E77-E68 S25-S18
     10 1830 1137 (N25W51 L=338)   550    133        1 (1781/1086-1865/1164)  -7.1 W45-W55 N22-N26
     11 1867  883 (N12W61 L=348)  3386    404       11 (1786/ 776-1947/1042) -27.8 W48-W80 N07-N17
     12 1300  997 (S00W16 L=303)   243     87        0 (1255/ 980-1331/1028)  53.1 W13-W16 S02-N02
     13  730  990 (S16E16 L=271)   219     53        0 ( 699/ 971- 758/1005)  45.0 E17-E13 S17-S14
     14  845  963 (S14E08 L=279)   289     48        1 ( 823/ 934- 875/ 990)  90.0 E09-E06 S16-S12
     15 1208  814 (S13W16 L=303)   419    128        0 (1168/ 762-1251/ 874) -23.2 W12-W19 S14-S10
     16 1108  730 (S20W13 L=300)   342    125        0 (1044/ 716-1178/ 744)  26.6 W09-W17 S21-S17
     17 1828  714 (N02W64 L=351)   797     79        0 (1785/ 691-1870/ 735)  21.8 W59-W69 N00-N04
     18  263  660 (S48E54 L=233)   502     70        1 ( 230/ 645- 298/ 679)  13.0 E61-E48 S49-S45
     19  955  656 (S28W07 L=294)   379    137        0 ( 904/ 621-1028/ 674)  35.5 W04-W11 S31-S25
     20 1567  526 (S16W51 L=338)  1077    247        2 (1459/ 476-1677/ 556)  35.5 W45-W59 S22-S11
     21  703  471 (S48E04 L=283)   367     42        0 ( 677/ 445- 726/ 496) -26.6 E05-E01 S49-S46
     22  924  407 (S45W16 L=303)   826    291        2 ( 786/ 355-1032/ 465)   2.5 W03-W26 S47-S42
     23 1492  309 (S30W63 L=350)  1066    151        1 (1434/ 270-1554/ 359)   5.7 W54-W74 S31-S28
  

    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