Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1244 1779 (N46W49 L= 71)   427     70        1 (1218/1750-1276/1808)  -9.5 W43-W52 N43-N47
      2  897 1757 (N57W19 L= 41)   670    119        2 ( 854/1723- 951/1803)   7.6 W13-W28 N53-N59
      3 1534 1604 (N25W55 L= 77)  1087    205        3 (1451/1550-1623/1642) -45.0 W48-W59 N19-N29
      4  543 1570 (N54E25 L=357)   300     37        1 ( 522/1550- 562/1593)  26.6 E27-E22 N51-N55
      5 1398 1521 (N25W39 L= 61)   627    206        0 (1306/1467-1467/1576) -59.0 W35-W41 N20-N30
      6 1337 1451 (N23W32 L= 54)   378    105        0 (1288/1434-1398/1465) -23.2 W28-W35 N21-N24
      7 1356 1378 (N18W30 L= 52)   391     86        3 (1329/1340-1389/1404)  21.8 W27-W32 N16-N20
      8 1174 1253 (N16W14 L= 37)   642    136        2 (1115/1204-1222/1292) -66.8 W11-W17 N12-N19
      9  424 1157 (N28E37 L=345)   566    113        1 ( 374/1120- 472/1190) -20.6 E41-E32 N25-N30
     10  882 1110 (N15E06 L= 16)   283     84        1 ( 862/1071- 905/1145)  53.1 E07-E04 N13-N17
     11 1884  977 (S20W62 L= 84)  1391    237        3 (1843/ 862-1923/1063)  45.0 W54-W69 S26-S16
     12 1195  958 (S01W08 L= 30)   906    234        1 (1142/ 856-1252/1056)  41.6 W03-W13 S05-N03
     13  462  999 (N18E36 L=346)   321     71        0 ( 447/ 962- 476/1039)  78.7 E37-E34 N15-N20
     14 1883  831 (S30W61 L= 84)   601     55        1 (1855/ 810-1910/ 851) -20.0 W56-W67 S31-S27
     15 1363  709 (S20W12 L= 35)   438    139        0 (1298/ 666-1406/ 737) -39.8 W08-W14 S23-S17
     16 1259  531 (S28W02 L= 24)   637    194        1 (1174/ 496-1345/ 577)  -5.2 E03-W08 S29-S26
     17 1525  511 (S39W21 L= 43)  1063    184        3 (1461/ 437-1578/ 573)  28.6 W14-W26 S43-S34
     18 1400  414 (S42W09 L= 31)   377     40        1 (1379/ 392-1428/ 444)  63.4 W07-W11 S43-S38
     19 1307  357 (S43W00 L= 22)   371     32        0 (1285/ 332-1331/ 389) -90.0 E01-W01 S45-S40
     20  687  252 (S34E52 L=331)   778     78        0 ( 664/ 222- 725/ 290)  66.8 E55-E48 S37-S30
  

    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