Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  982 1827 (N61W29 L=199)   500     97        0 ( 947/1793-1024/1855)  11.3 W21-W36 N59-N62
      2 1284 1798 (N48W52 L=222)   474     74        2 (1256/1760-1309/1827)  20.0 W46-W57 N45-N49
      3 1007 1680 (N48W18 L=188)  1172    204        4 ( 919/1626-1085/1719) -12.1 W09-W25 N44-N50
      4  402 1588 (N56E50 L=120)   736     96        1 ( 367/1555- 447/1606)  -3.8 E57-E42 N53-N57
      5  930 1496 (N37W05 L=175)   237     78        0 ( 895/1478- 972/1510) -31.0 W02-W07 N35-N38
      6 1171 1448 (N29W19 L=190)   536    136        1 (1134/1391-1205/1494)  50.2 W16-W23 N24-N31
      7 1744 1392 (N11W59 L=230)   458     65        2 (1713/1367-1773/1423) -31.0 W56-W62 N08-N12
      8  409 1379 (N40E40 L=130)   441     65        1 ( 382/1353- 440/1402)  11.3 E43-E36 N37-N41
      9  562 1354 (N36E25 L=145)   232     74        0 ( 538/1328- 604/1371)   9.5 E27-E21 N34-N36
     10 1512 1281 (N11W36 L=206)  1296    288        2 (1401/1199-1614/1366) -57.3 W30-W40 N03-N18
     11  362 1311 (N36E44 L=126)   573     61        2 ( 331/1281- 392/1344) -59.0 E47-E41 N33-N38
     12  304 1056 (N21E49 L=121)  1220    258        2 ( 268/ 942- 344/1175) -75.1 E53-E46 N13-N28
     13 1030 1065 (N09W01 L=171)   232     86        2 ( 994/1042-1077/1091) -45.0 W00-W03 N07-N10
     14 1291  965 (S02W14 L=185)   329    166        0 (1268/ 888-1319/1034)  54.5 W12-W17 S06-N01
     15  792  877 (N03E16 L=154)   196     61        2 ( 776/ 840- 805/ 911)  63.4 E17-E15 N00-N04
     16 1541  827 (S16W28 L=198)   452    110        1 (1502/ 786-1573/ 877)  38.7 W24-W30 S17-S13
     17  256  766 (N04E59 L=111)  1451    201        4 ( 226/ 678- 284/ 874)  65.6 E64-E54 S01-N10
     18  296  794 (N05E54 L=116)   404     46        0 ( 276/ 767- 313/ 824) -90.0 E56-E52 N03-N07
     19 1627  732 (S24W33 L=204)   276     38        0 (1604/ 705-1648/ 755)  33.7 W31-W35 S25-S22
     20 1672  643 (S32W37 L=208)   328     44        1 (1649/ 624-1701/ 663)   0.0 W35-W40 S32-S30
     21 1088  536 (S24E06 L=164)  1134    261        3 (1020/ 432-1156/ 648)  40.2 E13-W00 S29-S17
     22  682  513 (S17E33 L=137)   378     59        2 ( 647/ 492- 709/ 535) -14.0 E35-E30 S18-S15
     23  467  439 (S19E53 L=117)  3840    310       10 ( 369/ 347- 564/ 534) -70.3 E62-E44 S26-S11
     24  789  467 (S22E27 L=143)   370    102        2 ( 760/ 422- 814/ 502)  71.6 E30-E25 S25-S19
     25  655  305 (S32E46 L=124)  1652    264        3 ( 588/ 224- 754/ 423)  22.8 E62-E31 S38-S24
     26 1174  346 (S40E06 L=164)   404     53        1 (1142/ 328-1211/ 364) -11.3 E08-E03 S41-S37
     27 1313  249 (S54W02 L=173)  1688    255        5 (1193/ 205-1417/ 299)   0.0 E10-W13 S56-S51
  

    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