Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1122 1793 (N51W41 L=289)   526     71        2 (1091/1758-1140/1830)  26.6 W37-W47 N48-N53
      2  657 1420 (N40E15 L=232)   905    222        2 ( 588/1360- 765/1458) -34.7 E20-E07 N33-N42
      3 1212 1412 (N24W22 L=270)  1072    294        2 (1085/1380-1363/1444) -17.5 W13-W32 N20-N27
      4  539 1410 (N42E25 L=222)   256     50        0 ( 522/1383- 558/1435) -76.0 E26-E23 N40-N44
      5 1072 1305 (N22W10 L=258)   333    108        0 (1045/1264-1107/1356) -90.0 W09-W11 N18-N25
      6 1854 1209 (S06W64 L=311)   816    118        2 (1830/1157-1870/1278)  45.0 W59-W68 S08-S02
      7  957 1220 (N20W01 L=248)   328    145        1 ( 884/1199-1018/1251) -14.0 E03-W05 N18-N22
      8  727 1141 (N21E15 L=232)   788    225        2 ( 632/1073- 818/1198) -47.7 E20-E10 N14-N25
      9  292 1010 (N21E51 L=196)   739    128        2 ( 246/ 962- 333/1056) -41.2 E55-E47 N17-N24
     10 1884  907 (S25W61 L=309)  2234    221        3 (1839/ 803-1925/1010)  42.5 W54-W69 S30-S19
     11 1799  672 (S37W51 L=299)  1982    147        5 (1739/ 608-1849/ 724) -51.3 W42-W60 S42-S32
     12 1389  665 (S23W13 L=261)   299    134        0 (1330/ 623-1436/ 701)  12.5 W08-W17 S24-S21
     13  459  607 (S05E47 L=200)   613    137        0 ( 433/ 558- 495/ 663)  32.0 E50-E42 S08-S02
     14 1707  565 (S42W40 L=288)   836    123        1 (1683/ 499-1728/ 603) -63.4 W36-W43 S47-S37
     15 1630  476 (S46W32 L=280)  1174    113        2 (1590/ 434-1668/ 515)  29.7 W27-W36 S49-S42
     16 1454  350 (S50W13 L=260)   456     76        1 (1433/ 330-1488/ 376)   0.0 W10-W16 S52-S46
     17 1377  319 (S50W05 L=253)   507     56        2 (1357/ 291-1403/ 345)  68.2 W02-W07 S52-S47
     18 1074  281 (S42E20 L=227)   623    114        1 (1033/ 252-1114/ 329)  12.5 E23-E14 S44-S39
     19  596  276 (S30E58 L=190)   713     78        0 ( 551/ 262- 628/ 294)  -6.3 E64-E53 S31-S29
     20 1256  248 (S52E09 L=239)   513     65        1 (1230/ 221-1289/ 271)   7.1 E12-E04 S54-S48
  

    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