Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  982 1670 (N49W11 L=183)  2015    399        5 ( 795/1631-1164/1706) -20.1 E06-W24 N42-N53
      2 1489 1631 (N34W51 L=223)  2223    389        8 (1304/1573-1645/1665) -10.3 W32-W66 N28-N37
      3  841 1530 (N41E04 L=167)   355     88        1 ( 796/1514- 888/1544) -15.9 E07-W00 N39-N42
      4 1014 1501 (N36W08 L=180)   242     54        0 ( 992/1481-1046/1518)   0.0 W06-W10 N34-N36
      5 1670 1422 (N18W54 L=226)   794    139        0 (1635/1385-1715/1471) -56.3 W51-W57 N15-N21
      6  837 1292 (N25E08 L=164)   288     93        2 ( 788/1274- 884/1306) -15.9 E11-E04 N24-N26
      7 1228 1268 (N18W17 L=188)   321    159        0 (1154/1234-1288/1288) -29.7 W12-W20 N14-N19
      8  243 1112 (N21E57 L=115)   631    103        1 ( 228/1064- 276/1151)  51.3 E58-E53 N17-N23
      9 1132 1111 (N10W08 L=180)   383    154        0 (1065/1070-1189/1146)  14.0 W03-W11 N08-N11
     10  904 1072 (N11E07 L=165)   613    258        2 ( 824/1025-1015/1116) -20.0 E11-W00 N08-N14
     11  317 1072 (N18E49 L=123)   457     82        3 ( 283/1045- 359/1100) -18.4 E52-E44 N16-N19
     12  505 1046 (N15E33 L=138)   227    109        0 ( 492/1004- 521/1096)  80.5 E34-E31 N11-N17
     13 1777  961 (S11W51 L=223)  1323    173        3 (1738/ 887-1812/1054)  68.2 W46-W54 S15-S05
     14 1427  993 (S02W24 L=196)   281     50        1 (1400/ 973-1455/1012) -33.7 W22-W25 S03-N00
     15 1022  893 (S01E02 L=170)   683    382        1 ( 847/ 842-1171/ 929) -21.3 E12-W06 S06-N02
     16 1807  791 (S23W54 L=226)  3271    365        7 (1701/ 688-1920/ 890)  18.4 W42-W72 S27-S18
     17 1130  711 (S14W02 L=173)  1259    455       12 ( 991/ 594-1253/ 856)  30.1 E08-W11 S19-S06
     18 1001  746 (S10E06 L=166)   864    201        5 ( 957/ 697-1077/ 823) -54.5 E08-E01 S12-S04
     19  265  619 (S10E65 L=107)  4186    373       12 ( 194/ 474- 330/ 752)  87.0 E72-E59 S20-S01
     20  403  542 (S16E53 L=119)  2680    487       10 ( 287/ 364- 510/ 712) -80.9 E58-E46 S29-S04
     21  923  661 (S14E12 L=160)   257    121        1 ( 877/ 639- 988/ 688) -33.7 E14-E08 S16-S11
     22  407  643 (S09E48 L=123)   387     62        2 ( 387/ 607- 431/ 674)  38.7 E51-E45 S11-S07
     23 1243  520 (S29W06 L=178)   624    127        2 (1199/ 480-1291/ 574)  35.5 W02-W09 S31-S25
     24  852  210 (S48E36 L=136)  1116    174        2 ( 801/ 152- 914/ 267)  22.6 E49-E25 S54-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