Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1303 1680 (N39W27 L=  7)  4995    820       14 ( 991/1488-1596/1821) -31.4 W03-W45 N23-N53
      2  629 1588 (N37E26 L=313)   928    252        0 ( 526/1566- 757/1616) -11.3 E36-E15 N34-N39
      3  894 1576 (N34E05 L=334)   427    101        0 ( 845/1550- 944/1601) -20.6 E09-E01 N31-N36
      4 1126 1575 (N32W11 L=350)   231     59        0 (1096/1560-1156/1590)   0.0 W08-W13 N31-N33
      5 1644 1433 (N20W47 L= 26)   715    103        1 (1609/1393-1674/1488)  56.3 W42-W49 N17-N23
      6 1196 1418 (N21W13 L=353)   326    134        0 (1153/1394-1253/1463) -33.7 W11-W17 N19-N24
      7  466 1376 (N23E36 L=303)  2358    443        4 ( 298/1229- 586/1457) -16.5 E53-E26 N13-N29
      8  933 1374 (N20E04 L=336)   341    127        1 ( 900/1335- 986/1422) -56.3 E05-W00 N17-N23
      9  164 1293 (N21E68 L=271)   736     76        2 ( 150/1253- 180/1332) -39.8 E72-E64 N18-N23
     10 1659 1257 (N09W44 L= 23)   346     57        1 (1636/1235-1687/1283) -14.0 W41-W45 N07-N10
     11 1126 1243 (N11W07 L=347)   481    213        1 (1028/1214-1225/1278) -22.6 W01-W13 N08-N13
     12  784 1184 (N09E14 L=326)   210     58        0 ( 754/1162- 805/1200)   0.0 E15-E12 N07-N10
     13 1376  891 (S12W21 L=  0)  1236    427        0 (1284/ 702-1473/1055)  57.0 W14-W27 S23-S02
     14 1859  951 (S10W61 L= 40)   418     50        0 (1835/ 928-1883/ 970)  21.8 W57-W63 S11-S09
     15  771  850 (S11E17 L=323)   883    282        0 ( 702/ 738- 850/ 957)  49.8 E22-E10 S17-S04
     16 1621  879 (S14W38 L= 18)   294     75        1 (1587/ 852-1660/ 907)  31.0 W35-W41 S15-S12
     17 1127  718 (S21W05 L=344)   211     54        1 (1104/ 695-1153/ 740) -45.0 W03-W06 S22-S19
     18  327  546 (S26E59 L=280)   698    134        1 ( 309/ 476- 343/ 608)  48.8 E63-E55 S30-S22
     19  905  486 (S35E13 L=327)   259     56        0 ( 874/ 468- 936/ 505)  11.3 E15-E10 S36-S33
     20  577  388 (S39E43 L=296)  1039    197        0 ( 511/ 364- 663/ 449) -28.6 E48-E34 S41-S34
  

    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